Компьютерный форум
Правила
Вернуться   Компьютерный форум > Форум программистов
Перезагрузить страницу текстовый файл
Ответ
 
Опции темы Опции просмотра
  (#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.


нужно вывести результаты в файл а как это сделать не оч понимаю.
помогите доделать программу пожалуйста
Ответить с цитированием
  (#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.
Ответить с цитированием
  (#3 (permalink)) Старый
San San вне форума
Member
 
Сообщений: 276
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Регистрация: 04.09.2007
По умолчанию 21.05.2008, 12:21

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

Цитата:
Сообщение от San
прикольнулся чтоле над человеком
а я гдето грубо ошибся? смотрю - вроде правильно все?
Ответить с цитированием
  (#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.
Ads
Ответ

Опции темы
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Выкл.
HTML код Выкл.
Trackbacks are Вкл.
Pingbacks are Вкл.
Refbacks are Выкл.


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Имеется текстовый файл.... Linochka Pascal 0 01.04.2012 09:58
Текстовый файл в MFC Alex_Pevasik Visual C++ 1 19.08.2011 15:36
Сохранение в текстовый файл как реализовать Pekus Вопросы начинающих программистов 1 19.05.2011 00:56
[Pascal] Создать текстовый файл Катуха Pascal 2 24.12.2008 17:59
Как создать файл ресурсов, 1.res, в котором под записью 2 имеется текстовый файл SkyHawk C++ Builder 3 12.04.2006 06:20
Как открыть текстовый файл Inel Windows CE 8 15.10.2005 17:53
Как текстовый файл переделать под массив Wish Вопросы начинающих программистов 3 04.11.2004 15:26
Fread не читает текстовый файл T&amp;D C++ Builder 4 04.06.2004 12:49
CListCtrl и текстовый файл Julia Visual C++ 0 11.05.2004 22:19
Как преобразовать текстовый файл в картинки Anonymous Delphi 1 29.09.2003 22:10
Как открыть текстовый файл, в консоли kos C++ Builder 1 25.06.2003 00:41



Powered by vBulletin® Version 3.8.7
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.
Нardforum.ru - компьютерный форум и программирование, форум программистов