Показать сообщение отдельно
  (#5 (permalink)) Старый
AlexZir AlexZir вне форума
Member
 
Аватар для AlexZir
 
Сообщений: 1,971
Сказал(а) спасибо: 0
Поблагодарили 1 раз в 1 сообщении
Регистрация: 19.08.2007
Адрес: Зея
По умолчанию 22.05.2008, 10:16

Тут вся соль в названии :D, помните: "Как вы яхту назовете - так она и поплывет" (С) Н.Носов

Код:
program t;
uses crt;
const
name = 'C:\resultat.txt';
var

x,a,y:real;
LOL:TEXT;

begin 
clrscr;
a:=2.3;
writeln ('vvedite x');
readln(x);
if (x <= 0) and (x >= 2.4) then y:=2*a-a/2*(exp(x/a)+exp(-x/a));
if (x > 0) and (x <=3.6) then y:=a+sqrt(x*x*x/(2*a-x));

ASSIGN(LOL, name);
REWRITE(LOL):
WRITE(LOL,'Y=',y:3:2);
CLOSE(LOL);
readln;

end.
bubuka
В разделе переменных :) ошибка
Ответить с цитированием
Ads