IPB
ЛогинПароль:

> Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

 
 Ответить  Открыть новую тему 
> Запись в файл
сообщение
Сообщение #1


Новичок
*

Группа: Пользователи
Сообщений: 24
Пол: Женский
Реальное имя: Оля

Репутация: -  0  +


Самого задания я точно не помню,но смысл был примерно такой:нужно было создать файл с номерами рейсов и кол-ом свободных мест на них, а так же надо было чтобы программа при вводе номера рейса выводила кол-во свободных мест.
вот что у меня получилось:
var r:byte;
f:text;
begin
writeln('vvedite nomer reisa');
readln®;
assign(f,'C:\mesta.txt');
rewrite(f);
case r of
1:writeln('svobonih mest 5');
2:writeln('svobonih mest 4');
3:writeln('svobonih mest 8');
4:writeln('svobonih mest 3');
5:writeln('svobonih mest 6');
else writeln('na dannom reise net svobodnih mest');
read;
end;
write;
read®;
begin
write(f,r);
close(f);
end;
end.

у меня получилось только внести в файл номер рейса biggrin.gif подскажите пожалуйста как сделать так ,чтобы в текстовом файле были номера рейсов и кол-во свободных мест huh.gif


--------------------
Никогда, никогда ни о чем не жалейте.Поздно начали вы или рано ушли.Кто-то пусть гениально играет на флейте.Но ведь песни берет он из вашей души.Никогда, никогда ни о чем не жалейте —Ни потерянных дней, ни сгоревшей любви.Пусть другой гениально играет на флейте,Но еще гениальнее слушали вы.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #2


Профи
****

Группа: Пользователи
Сообщений: 865
Пол: Мужской
Реальное имя: Вячеслав

Репутация: -  20  +


для текстового можно в одну строчку записывать номер и количество. Потом по файлу пройти, читая строки и сравнивая, есть ли указанный номер или нет.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #3


Уникум
*******

Группа: Пользователи
Сообщений: 6 823
Пол: Мужской
Реальное имя: Лопáрь (Андрей)

Репутация: -  159  +


Цитата(PUMA @ 25.06.2010 13:37) *

Самого задания я точно не помню,но смысл был примерно такой:нужно было создать файл с номерами рейсов и кол-ом свободных мест на них, а так же надо было чтобы программа при вводе номера рейса выводила кол-во свободных мест.

Мне почему-то кажется, что смысл не в создании файла программно, а в выдаче инфы по нему. То есть, файл ты можешь создать, например, в Блокноте, назови его типа "flight_info.txt", а внутренности набери типа так:

567 5
768 3
843 10
123 0
234 2
987 25

(учти, что ни в начале, ни в конце файла не должно быть пустых строк!!)
Тогда твоя прога будет примерно такой:
Write('введите номер рейса: ');
ReadLn®;
Assign(f,'flight_info.txt);
n:=-1;
Reset(f);
while not EoF(f) and (n<0) do begin
ReadLn(f,r1,n1);
if r=r1 then n:=n1
end;
Close(f);
if n>=0 then
WriteLn('на рейсе ',r,' есть ',n,' свободных мест')
else
WriteLn('рейс ',r,' не найден');

Но ты лучше все-таки уточни задание, чтоб не гадать ). Но делать выбор рейса в операторе case - это в любом случае неправильно..


--------------------
я - ветер, я северный холодный ветер
я час расставанья, я год возвращенья домой
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #4


Новичок
*

Группа: Пользователи
Сообщений: 24
Пол: Женский
Реальное имя: Оля

Репутация: -  0  +


blush.gif а N для чего нужна? nea.gif что это такое?
P.S:уточнить задачу не получится,наверное...я ее никуда не записала.это было на экзамене blink.gif

Добавлено через 8 мин.
выводит ошибку №2,фаил не найден blink.gif
var r,n,n1,r1:integer;
f:text;
begin
Write('vvedite nomer reisa: ');
ReadLn®;
Assign(f,'D:\flight_info.txt');
n:=-1;
Reset(f); {вот сюда указывает}
while not EoF(f) and (n<0) do begin
ReadLn(f,r1,n1);
if r=r1 then n:=n1
end;
Close(f);
if n>=0 then
WriteLn('na reise ',r,' est ',n,' svobodnih mest')
else
WriteLn('na reise',r,' net svobodnih mest');
readln;
end.


--------------------
Никогда, никогда ни о чем не жалейте.Поздно начали вы или рано ушли.Кто-то пусть гениально играет на флейте.Но ведь песни берет он из вашей души.Никогда, никогда ни о чем не жалейте —Ни потерянных дней, ни сгоревшей любви.Пусть другой гениально играет на флейте,Но еще гениальнее слушали вы.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #5


Профи
****

Группа: Пользователи
Сообщений: 865
Пол: Мужской
Реальное имя: Вячеслав

Репутация: -  20  +


а создать файлик не судьба? ))
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #6


Новичок
*

Группа: Пользователи
Сообщений: 24
Пол: Женский
Реальное имя: Оля

Репутация: -  0  +


Судьба)создала)я уж не совсем того crazy.gif что ж я по вашему путь просто так указала) biggrin.gif

Сообщение отредактировано: PUMA -


--------------------
Никогда, никогда ни о чем не жалейте.Поздно начали вы или рано ушли.Кто-то пусть гениально играет на флейте.Но ведь песни берет он из вашей души.Никогда, никогда ни о чем не жалейте —Ни потерянных дней, ни сгоревшей любви.Пусть другой гениально играет на флейте,Но еще гениальнее слушали вы.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #7


Уникум
*******

Группа: Пользователи
Сообщений: 6 823
Пол: Мужской
Реальное имя: Лопáрь (Андрей)

Репутация: -  159  +


Цитата(PUMA @ 27.06.2010 12:14) *
а N для чего нужна? nea.gif что это такое?
это количество мест на ЗАДАННОМ рейсе. Сначала в него кладем -1 - это как бы признак того, что рейс еще не найден. Если введенного номера рейса нет в файле, то в n так и останется -1. Значит, если значение n больше либо равно 0, то рейс найден, а n - это количество свободных мест на нем. Угу?

Цитата
выводит ошибку №2,фаил не найден
Насколько я понимаю, ТР не умеет работать с именами файлов длиннее 8 символов. Переназови файл, сделай его типа fli_info.txt . Поскольку я давно не имею дела с ТР, то и забыл об этом, извини..


--------------------
я - ветер, я северный холодный ветер
я час расставанья, я год возвращенья домой
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #8


Новичок
*

Группа: Пользователи
Сообщений: 24
Пол: Женский
Реальное имя: Оля

Репутация: -  0  +


спасибоcool.gif


--------------------
Никогда, никогда ни о чем не жалейте.Поздно начали вы или рано ушли.Кто-то пусть гениально играет на флейте.Но ведь песни берет он из вашей души.Никогда, никогда ни о чем не жалейте —Ни потерянных дней, ни сгоревшей любви.Пусть другой гениально играет на флейте,Но еще гениальнее слушали вы.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 





- Текстовая версия 23.12.2024 21:25
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name