Показать сообщение отдельно
  (#2 (permalink)) Старый
bubuka bubuka вне форума
Member
 
Аватар для bubuka
 
Сообщений: 985
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Регистрация: 23.01.2008
Адрес: москва
По умолчанию 21.05.2008, 10:29

легко




program timati;
uses crt;
const
name = '<тут адрес файла на жестяне>'
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))

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


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