текстовый файл

[_demon_]

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.


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

 

[bubuka]

легко




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.

 

[San]

прикольнулся чтоле над человеком

 

[bubuka]

прикольнулся чтоле над человеком

а я гдето грубо ошибся? смотрю - вроде правильно все?

 

[AlexZir]

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

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
В разделе переменных ошибка

 

[Mana]

как уменьшить поля?

я скачала вот этот текст
http://www.webapteka.ru/phdocs/doc4989.html
но не могу никак увеличить его ширину, подскажите как это сделать
(перемещение стрелочек вверху на линейке не помогает)

 

[skinail]

Mana,

1. Ещё раз скопируй этот текст - Затем вставь его в новый документ - Если появится в самом низу квадратик, то нажми Стрелочку и выбери "Сохранить только текст".
2. Правка - Заменить
3. Ставишь Курсор в Найти - Специальный - Знак абзаца. В поле Найти появился символ. Нажми 7 раз Пробел.
4. Ставишь Курсор в поле "Заменить" - Удали там всё, затем - Формат - Выделение цветом - Заменить все.
5. Затем снова возвращаешься в поле "Найти" - Всё удаляешь там - Специальный - Знак абзаца - Формат - Выделение цветом - Формат - Выделение цветом.
6. Переходишь в Поле "Заменить" - Убеждаешься, что там ничего нет и нажимаешь Пробел - Жмёшь кнопку "Снять форматирование" - Заменить все.
7. Снова переходишь в поле "Найти" - Очищаешь его и вводишь: Пробел{2;} - Ставишь галочку "Подстановочные знаки" - Нажимаешь кнопку "Снять форматирование".
8. Переходишь в поле "Заменить" - Очищаешь его и вводишь Пробел - Заменить все.
9. Закрываешь окно - Ctrla + A - Формат - Табуляция - Удалить все - Окей.
10. На Панели инструментов ищешь - Выделение цветом - Выбираешь "Нет".