Составить программу на языке Pascal

Question

Составить программу на языке Pascal

Денис Загитов Ученик (171), на голосовании 1 год назад

Составить программу на языке PASCAL для вычисления на ЭВМ значений переменных. Вывести на экран значения исходных данных и результатов промежуточных и окончательных вычислений, сопровождая вывод именами переменных.

Answer 1

Program hui;
var a, b, x, y :real;
begin
writeln ('введите a');
readln (a);
writeln ('введите b');
readln (b);
writeln ('введите x');
readln (x);
y:=((2x)*ln(a)+(-x)*ln(b)*cos(a+b)*x)/(x+1);
writeln ('y='; y);
end.

Program pizda;
var a, b, x, R :real;
begin
writeln ('введите a');
readln (a);
writeln ('введите b');
readln (b);
writeln ('введите x');
readln (x);
R:=sqrt(sqr(x)+b)-sqr(b)*sqr(sin(x+a))*sin(x+a)/x;
writeln ('R='; R);
end.