Даны x, y, z. Составить программу для вычисления a, b по форму-лам

[echelone]

Даны x, y, z. Составить программу для вычисления a, b по форму-лам
1.png

[whatever]

  a:=(3+exp(y-1))/(1+sqr(x)*abs(y-tan(z)));
  b:=1+abs(y-x)+sqr(y-x)/2+abs(sqr(y-x)*(y-x))/3;

[echelone]

А можно пожалуйста полный программный код на Delphi?

[Mad_Cat]

та легко

var a,b,x,y,z:double;
begin
readln(x,y,z);
a:=(3+exp(y-1))/(1+sqr(x)*abs(y-tan(z)));
b:=1+abs(y-x)+sqr(y-x)/2+abs(sqr(y-x)*(y-x))/3;
writeln(a,b);
readln;
end.

[echelone]

Сообщение от Mad_Cat

та легко

var a,b,x,y,z:double;
begin
readln(x,y,z);
a:=(3+exp(y-1))/(1+sqr(x)*abs(y-tan(z)));
b:=1+abs(y-x)+sqr(y-x)/2+abs(sqr(y-x)*(y-x))/3;
writeln(a,b);
readln;
end.

Спасибо))
А через Edit если делать, то что присваивать надо?

[Mad_Cat]

А через Edit если делать, то что присваивать надо?

сначала x,y,z к эдитам
ну а потом к эдитам a, b

[echelone]

Сообщение от Mad_Cat

сначала x,y,z к эдитам
ну а потом к эдитам a, b

А примерно как это выглядеть должно?

[Mad_Cat]

А примерно как это выглядеть должно?

примерно как

переменная:= strtofloat(Эдит.Тext);// в первом случае;
Эдит.Тext:=floattostr(переменная); //во втором случае

[echelone]

К сожалению пишет:
There is overloaded version of floattostr that can be called with these arguments