Всеволод
6 год назад
(Паскаль)Кто может помочь? Срочняк!!!!!!
ОТВЕТЫ
Keelral
Jul 1, 2019
Первое задание
VAR x, y, xmin, xmax, dx : Real;
BEGIN
Writeln(Табулирование функции.);
xmin := -3;
xmax := 2;
dx := 0.5;
x := xmin;
WHILE xlt;=xmax DO
begin
y := abs(2-sqr(x))+1;
Writeln(x:6:3, y:6:3);
x := x+dx;
end {while};
Readln
END.
VAR x, y, xmin, xmax, dx : Real;
BEGIN
Writeln(Табулирование функции.);
xmin := -3;
xmax := 2;
dx := 0.5;
x := xmin;
WHILE xlt;=xmax DO
begin
y := abs(2-sqr(x))+1;
Writeln(x:6:3, y:6:3);
x := x+dx;
end {while};
Readln
END.
67
Смежные вопросы:
