Текст задания
Разработать программу для вычисления:
1) значения заданного арифметического выражения:
2) значения заданной функции:
c = x^2+y^2+sin(x), при x-y=0;(x-y)^2+cos(x), при 0<x-y<=36;(y-x)^2+tg(x), при x-y<0.
и вывода на экран полученных результатов.
Значения исходных данных выбираются произвольно. Ввод исходных данных организовать любым известным вам способом (использовать не менее двух способов).
Исходный код программы
Program Lab1;
Var
a,x,y,c:real;
begin
x:=1;
Write ('y=');
readln(y);
a:=ln(exp(-1*sqrt(abs(x))*ln(y)))*(sin(x)+exp(x+y));
Writeln('a=',a:8:3);
c:=0;
if (x-y)=0 then c:=sqr(x)+sqr(y)+sin(x);
if (x-y>0) and (x-y<=36) then c:=sqr(x-y)+cos(x);
if x-y<0 then c:=sqr(y-x)+sin(x)/cos(x);
writeln('c=',c:8:3);
readln;
end.
