Здесь в примере b, котангенс 45 -видимо имеется ввиду градусов (и поэтому там умножено на Pi / 180, чтобы перевести в радианы- ведь в Паскале все тригонометрические функции используют радианы). Но, если это имеется ввиду 45 радиан, то этот множитель нужно убрать.
Там же, вместо котангенса используется единица делённая на тангенс (т.к. функции котангенса в Паскале вроде нет).
Ну, можно и выписать оттуда сами выражения отдельно, как просят в задаче (только работать вне программы это всё равно не будет):
a) Log10(Exp(x + 2))
b) 2 * Pi / Tan(45 * Pi / 180)
c) 3.14 * ArcSin(x)
d) Sqr(Tan(Sqr(x))) + Exp(Cos(x))
2 votes Thanks 2
Ziorar
Если что, я изменял только пояснение, почему умножено на пи/180. Саму программу и выражения я не изменял.
dinarazhaypbekova02
Учитывая начало и конец программы, найдите тело. Program paralli; Var p,s:integer; h:real; Begin read(p,s); ……………. Write(h); End. ;
Answers & Comments
Запишу сразу в виде готовой программы:
var
x, a, b, c, d: real;
begin
x := 0.33;
a := Log10(Exp(x + 2));
b := 2 * Pi / Tan(45 * Pi / 180);
c := 3.14 * ArcSin(x);
d := Sqr(Tan(Sqr(x))) + Exp(Cos(x));
Writeln(a);
Writeln(b);
Writeln(c);
Writeln(d);
end.
Здесь в примере b, котангенс 45 -видимо имеется ввиду градусов (и поэтому там умножено на Pi / 180, чтобы перевести в радианы- ведь в Паскале все тригонометрические функции используют радианы). Но, если это имеется ввиду 45 радиан, то этот множитель нужно убрать.
Там же, вместо котангенса используется единица делённая на тангенс (т.к. функции котангенса в Паскале вроде нет).
Ну, можно и выписать оттуда сами выражения отдельно, как просят в задаче (только работать вне программы это всё равно не будет):
a) Log10(Exp(x + 2))
b) 2 * Pi / Tan(45 * Pi / 180)
c) 3.14 * ArcSin(x)
d) Sqr(Tan(Sqr(x))) + Exp(Cos(x))
Program paralli;
Var p,s:integer; h:real;
Begin read(p,s);
…………….
Write(h);
End. ;