1)Выражение на языке Паскаль: sqrt(sqr(x)−7∗x+11).
Данное выражение на математическом языке:
√x2−7x+11
(x3−7x+11)2(степени)
√5x2−7x+11
∣∣x2−7x+11∣∣
2)Дано логическое выражение: (a>10)and(a<48) .
Такое логическое выражение возвращает истину, лишь в том случае, когда истинны оба выражения, т.е., (выбери несколько вариантов ответа)
если a входит в диапазон от 10 до 48
10<a<48
если a равно 10, но меньше 48
если a меньше 10
3)Запусти Паскаль и введи программу:
var
a,b,c:integer;
begin
a:=−10;
b:=abs(a);
writeln('abs(−10)=',b);
c:=sqr(b);
writeln('sqr(b)=',c);
c:=sqr(b+b);
writeln('sqr(b+b)=',c);
end.
При запуске программы вывод на экран:
abs(−10)=
sqr(b)=
sqr(b+b)=
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls;
type
TForm1 = class(TForm)
Image1: TImage;
Button1: TButton;
OpenDialog1: TOpenDialog;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
if OpenDialog1.Execute then
begin
Image1.Picture.LoadFromFile(OpenDialog1.FileName);
Image1.Stretch:=true;
Image1.Left:=form1.Width div 2-image1.Width div 2;
Image1.top:=form1.Height div 2-image1.Height div 2;
end
end;
end.