Pascal есептен комектесіп жіберініздерш отініш

Question

Взять задание из таблицы  написать программу для вычисления переменной R, используя для ввода данных, операторы READ и READLN. Вывести значения исходных данных, подобрав к ним форматы по операторам WRITE и WRITELN. Значение переменной R вывести в стандартной форме.

Из таблицы 2 взять задание и написать программу, используя оператор условного перехода. Из таблицы 3 взять задание и написать программу, используя оператор варианта.

Answer 1

Program esep3;

var

r,f,s,p,x,y,i,a:real;

begin

writeln('x,y,i,a=?');

readln(x,y,i,a);

p:=sqrt(y*y*y-cos(sqr(x)));

f:=8.3*0.001*lg(abs((x*x*x)/y));

s:=(exp(i+4)+sqrt(x-a));

r:=((p\s)-f);

writeln('r=',r);

end.

Answer 2

program esep4;

var

x,y:real;

begin

if (x=< 0.1) and (x<0.9) then y:=sqr(sin(x));

if (x=1.3) then y:=cos(x) else  y:=-x;

writeln('y=',y);

end.