(Паскаль)Кто может помочь? Срочняк!!!!!!

Question

(Паскаль)Кто может помочь? Срочняк!!!!!!

---

Answer 1

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

Comments

Отформатируй только