Показать сообщение отдельно

  #2  
Старый 11.03.2009, 17:20
eLWAux
Постоянный
Регистрация: 15.06.2008
Сообщений: 941
Провел на форуме:
5111568

Репутация: 2399


Отправить сообщение для eLWAux с помощью ICQ
По умолчанию

через while:
Код:
program _while;
uses crt;
const a  = 2.8;
      b  = -0.3;
      c  = 4;
      x0 = 0.8;
      xE = 2.8;
      h  = 0.2;
var
 x,y:double;

begin
 x:=x0;
 clrscr;
 while x<xE do begin
       if x<1.4 then y:=-1 else
       if x=1.4 then y:=0  else
       if x>1.4 then y:=1;
       writeln('x =',x:3:3,',  y =',y:3:3);
       x:=x+h;
 end;

 readln;
end.
 
Ответить с цитированием