Решите это Паскаль АBC

Решите это Паскаль АBC

Задать свой вопрос
1 ответ
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.
Ванька Агафон
1-ое
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт