Предмет: Информатика,
автор: PocoStar
Задача на языке Pascal.
Выполнить через while
Для функции F(x)= найти и вывести на экран все значения в интервале [-1,8,+2,1] (шаг +0,1) [-1,+1] (шаг +0,05)
Приложения:
Ответы
Автор ответа:
0
Ответ:
Free Pascal
uses math;
var
x, y : double;
i : integer;
begin
i:=-18;
while i <= 21 do begin
x:=i/10;
if x<>0 then begin
y:=(sin(x)-sqrt(sqr(x)+7))/(power(x,3)-3*x);
Writeln('f[',x:1:1,']=',y:4:4);
end
else
Writeln('f[',x:1:1,']= решения нет, деление на 0');
inc(i);
end;
writeln();
i:=-100;
while i<=100 do begin
x:=i/100;
if x<>0 then begin
y:=(sin(x)-sqrt(sqr(x)+7))/(power(x,3)-3*x);
Writeln('f[',x:2:2,']=',y:4:4);
end
else
Writeln('f[',x:2:2,']= решения нет, деление на 0');
inc(i,5)
end;
end.
Приложения:
Похожие вопросы
Предмет: Русский язык,
автор: Доналдик
Предмет: Қазақ тiлi,
автор: superhell
Предмет: Окружающий мир,
автор: Ученица1511
Предмет: Алгебра,
автор: Murmurmrazz
Предмет: История,
автор: nadionov2