21.05.2008, 09:49 | #1 (permalink) |
Новичок
Регистрация: 21.05.2008
Сообщений: 6
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
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. нужно вывести результаты в файл а как это сделать не оч понимаю. помогите доделать программу пожалуйста |
21.05.2008, 09:49 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Найдены следующие совпадения с вашей темой Нет кнопки "Создать текстовый документ" Текстовый файл INF файл |
21.05.2008, 10:29 | #2 (permalink) |
Member
Регистрация: 23.01.2008
Сообщений: 1,110
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 141
|
легко
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. |
22.05.2008, 10:16 | #5 (permalink) |
support
Регистрация: 19.08.2007
Адрес: Зея
Сообщений: 15,797
Записей в дневнике: 71
Сказал(а) спасибо: 166
Поблагодарили 203 раз(а) в 86 сообщениях
Репутация: 75760
|
Тут вся соль в названии :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. В разделе переменных :) ошибка
__________________
Убить всех человеков! |
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
12.12.2009, 19:18 | #6 (permalink) |
Member
Регистрация: 16.07.2009
Сообщений: 41
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 0
|
как уменьшить поля?
я скачала вот этот текст
http://www.webapteka.ru/phdocs/doc4989.html но не могу никак увеличить его ширину, подскажите как это сделать (перемещение стрелочек вверху на линейке не помогает) |
12.12.2009, 22:22 | #7 (permalink) |
Member
Регистрация: 14.02.2008
Сообщений: 744
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Mana,
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
|
|