давно
Старший Модератор
31795
6196
20.12.2016, 00:58
общий
это ответ
Здравствуйте, sting.net.den!
[code lang=pascal h=200]function f(c:real):real;
begin
f:=1.7*c*c*c-5.6*cos((2*c-1)/(c*c+3.4));
end;
var
a,b,c,h:real;
begin
{вводим предел}
repeat
write('enter b>-2:');
readln(b);
until (b>-2);
{вводим шаг}
repeat
write('step h>0:');
readln(h);
until h>0;
{начало цикла}
a:=-2;
repeat
c:=f(a);
{проверка -5:5}
if abs(c)<=5 then writeln('f(',a,'):=',c);
a:=a+h;
until a>b;{сам цикл}
end.
[/code]
Удачи!
Об авторе:
Мне безразлично, что Вы думаете о обо мне, но я рад за Вас - Вы начали думать.