Поделитесь своими знаниями, ответьте на вопрос:
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 меньше 103)Запусти Паскаль и введи программу:vara, b, c:integer;begina:=−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.