Предмет: Информатика,
автор: demilovato135
Составить программу для вычисления х и у по формулам:
Паскаль
Приложения:
Ответы
Автор ответа:
0
Program pr;
uses crt;
Var c,b,a, x, y:real;
Begin
Writeln('Введите a, b, c');
readln(a, b, c);
x:=exp(1/3*ln(sqr(cos(b))-c*sin(a*a*a)));
y:=ln(sin(a-b)/sin(4)/cos(4)*c);
Writeln('x=', x);
Writeln('y=', y);
readln;
end.
uses crt;
Var c,b,a, x, y:real;
Begin
Writeln('Введите a, b, c');
readln(a, b, c);
x:=exp(1/3*ln(sqr(cos(b))-c*sin(a*a*a)));
y:=ln(sin(a-b)/sin(4)/cos(4)*c);
Writeln('x=', x);
Writeln('y=', y);
readln;
end.
Автор ответа:
0
Спасибо)
Интересные вопросы
Предмет: Химия,
автор: moshniaha07
Предмет: Алгебра,
автор: ShikWei
Предмет: Английский язык,
автор: olgaharak123
Предмет: Биология,
автор: alina57
Предмет: Литература,
автор: Аноним