Предмет: Информатика,
автор: NDV
Помогите, срочно Паскаль
Составить программу для вычисления функций
Q=2,8sin x+│y│
При любых значениях X и Y
и еще фото во вложениях.
Приложения:
Ответы
Автор ответа:
0
Program Pr2;
uses crt;
var z,x,y:real;
Begin
clrscr;
readln(x,y);
z:=(x+((2+y)/sqr(x)))/(y+(1/sqrt(sqr(x)+10)));
writeln(z);
end.
Автор ответа:
0
Var q,x,y:real;
BEGIN
read(x);
read(y);
q:= 2,8 * sin(x) + abs(y);
write(q);
END.
Для вложения:
Var x,y:integer;
z:real;
BEGIN
read(x);
read(y);
z:=(x + (2 + y)/x) / (y + 1/(sqrt( sqr(x) + 10 ));
write(z);
END.
Похожие вопросы
Предмет: Другие предметы,
автор: Аноним
Предмет: Другие предметы,
автор: yvrubdedduubeyvubdyv
Предмет: История,
автор: Аноним
Предмет: Геометрия,
автор: с123