Как написать следующие выражения на Паскале
a)lge^x+2
b) 2п*ctg45
с) 3,14*arcsinx
d) tg^2x^2+e^сosx
Ответы
Запишу сразу в виде готовой программы:
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. ;