Помогите пожалуйста написать код программы на языке паскаль, учитывая некоторые методические требования
Помогите пожалуйста написать код программы на языке паскаль, учитывая некоторые методические требования
Гость
Ответ(ы) на вопрос:
Гость//Pascal ABC.NET v3.1 сборка 1172
Var
i:integer;
y,x:real;
begin
x:=-pi;
writeln('i x y');
for i:=1 to 17 do
begin
if ((1/(x-2*pi)-sin(x))>0) then
begin
y:=1/(x-2*pi)-sin(x);
writeln(i,' ',x:0:2,' ',y:0:2);
end
else
writeln('При x=',x:0:2,' y<=0');
x:=x+pi/8;
end;
end.
Не нашли ответ?
Похожие вопросы