Задание 1

procedure TForm1.Button1Click(Sender: TObject);

var pi,x,y,a1,a2,a3,a4: real;

begin

x:=12.75;

pi:=3.141;

Memo1.Clear;

Memo1.Lines.Add('= Задание 1 =');

Memo1.Lines.Add('Записать на языке арифметическое выражение.');

Memo1.Lines.Add('Запись осуществить двумя способами:');

Memo1.Lines.Add('1. С разбивкой выражения на части;');

Memo1.Lines.Add('2. Полным выражением;');

Memo1.Lines.Add('');

Memo1.Lines.Add('x=' + FloatToStr(x) + ';');

Memo1.Lines.Add('');

Memo1.Lines.Add('Расчет:');

Memo1.Lines.Add('-------------------------');

a1:=sin(sqr((pi/8)-1));

a2:=sqrt(sqrt(3+sqr(x)));

// к вычислению ArcSin(х/2)

// т.к. Х = 12.75, скорее всего, задан в градусах (arcsin(12.75/2) не существует...),

// то для вычисления "arcsin" переведем Х в радианы: "X*pi/180"

// (Delphi работает с радианами...)

a3:= arcsin( (x*pi/180) /2 ) - 5.236e-2;

a4:=ln(abs(3.12-x));

y:=(a1+a2)/a3 + a4;

Memo1.Lines.Add('1. С разбивкой выражения на части:');

Memo1.Lines.Add('"y=(a1+a2)/a3+a4"');

Memo1.Lines.Add('a1=' + FloatToStr(Round(a1*100)/100) + '; a2=' + FloatToStr(Round(a2*100)/100) + '; a3=' + FloatToStr(Round(a3*100)/100) + '; ' + 'a4=' + FloatToStr(Round(a4*100)/100) + ';');

Memo1.Lines.Add('y=(a1+a2)/)a3+a4=' + FloatToStr(Round(y*100)/100) + ';');

Memo1.Lines.Add('-------------------------');

y:=0;

y:= ( sin(sqr((pi/8)-1)) +  sqrt(sqrt(3+sqr(x))) ) / (arcsin( (x*pi/180) /2 ) - 5.236e-2) + ln(abs(3.12-x));

Memo1.Lines.Add('2. Полным выражением:');

Memo1.Lines.Add('y=' + FloatToStr(Round(y*100)/100) + ';');

end;