Вот код (Метод Sh не объявлен. Не знаю, что это):
Код:
program Prg;
const
a = -10;
b = 10;
h = 1;
var
x: Integer;
begin
for x:=a to b do
begin
if x < - Pi then
Writeln(Pi - Sqr(Pi + x):5:3);
if (x >= - Pi) and (x < Pi) then
Writeln(Sh(Pi+Cos(x)+1):5:2);
if x >= Pi then
Writeln(Pi+Sqr(Sqr((Sin(x)+1.23)))/5:5:3);
end;
Readln;
end.
Не забудь объявить Sh. |