Задание: Вычислить на ЭВМ значения y и p, используя расчетные формулы:
y= a tg3 x2 + z2/Ö(a2 + x2); p = ln (a+ x2) + sin2(z/a)
при значениях a = 0,59; z= -4,8; x = 2,1.
Program Prim1;
Var
a, x, z, C, y, p: real;
begin
writeln(’Введите a, z, x’);
read(a, z, x,);
c:= sin(x*x)/cos(X*X);
y:=a*EXP(3*ln(c))+SQR(Z)*sqrt(a*a+x*x));
p:=ln(a+x*x) + sqr(sin(z/a));
writeln(‘y=’, y:8:3, ‘ p=’, p:8:3)
end.
Контрольные вопросы
1. Как выполняются действия в линейных программах?
2. Для чего служит оператор присваивания?
3. Какой оператор служит для ввода данных?
4. Какой оператор служит для вывода данных?
5. Как записываются арифметические выражения в Паскале?
Программирование алгоритмов разветвляющейся