Показать сообщение отдельно
  (#1 (permalink)) Старый
_demon_
Guest
 
Сообщений: n/a
По умолчанию 21.05.2008, 09:49

program timati;
uses crt;
var

x,a,y:real;
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;
end.


нужно вывести результаты в файл а как это сделать не оч понимаю.
помогите доделать программу пожалуйста
Ответить с цитированием
Ads