Ответы
Гость Первое задание
VAR x, y, xmin, xmax, dx : Real;
BEGIN
Writeln('Табулирование функции.');
xmin := -3;
xmax := 2;
dx := 0.5;
x := xmin;
WHILE x<=xmax DO
begin
y := abs(2-sqr(x))+1;
Writeln(x:6:3, y:6:3);
x := x+dx;
end {while};
Readln
END.
1 комментария:
Отформатируй только
Отформатируй только Список предметов
