Работа с текстовым файлом, ПОВЕШУСЬ!!! |
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
Работа с текстовым файлом, ПОВЕШУСЬ!!! |
Олежик |
13.03.2007 21:08
Сообщение
#1
|
Новичок Группа: Пользователи Сообщений: 11 Пол: Мужской Реальное имя: Олег Репутация: 0 |
Ребят..
выручите плиз.... Меня из инста вышвырнут, если я её не сделаю. Заранее спасибо! Вот задача... ... ... ... ... составить алгоритм и прогу определения по данным из таблицы банка, купившего акции на наибольшую сумму!!! Таблица нах. в текст. файле list.txt ! Каждая строка таблицы содержит 4 поля. Первое - поле символьного типа, содержит название банка. Длина поля - 15 символов! Второе поле - символьного типа, содержит название компании, акции которого куплены банком. Длина поля - 20 символов. Третье поле - числового типа, содержит кол-во акций, купленных банком. Четвёртое поле - -числового типа, содержит стоимость одной акции в рублях. Длина каждого из этих полей - 5 символов!!!! ... ... Язык PASCAL!!! =) ПЛИЗ!!! |
klem4 |
13.03.2007 21:57
Сообщение
#2
|
Perl. Just code it! Группа: Модераторы Сообщений: 4 100 Пол: Мужской Реальное имя: Андрей Репутация: 44 |
Что конкретно вызывает затруднение ?
-------------------- perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
|
Олежик |
13.03.2007 23:13
Сообщение
#3
|
Новичок Группа: Пользователи Сообщений: 11 Пол: Мужской Реальное имя: Олег Репутация: 0 |
1.Текстовый файл создан....
2.не могу написать процедуру. И немногго запутался с основной частью программы.. просто у нас такой учитель, который примеры не даёт.. |
Lapp |
13.03.2007 23:17
Сообщение
#4
|
Уникум Группа: Модераторы Сообщений: 6 823 Пол: Мужской Реальное имя: Лопáрь (Андрей) Репутация: 159 |
И немногго запутался с основной частью программы.. Приведи тут то, что есть. Распутаем -------------------- я - ветер, я северный холодный ветер
я час расставанья, я год возвращенья домой |
Олежик |
13.03.2007 23:30
Сообщение
#5
|
|||
Новичок Группа: Пользователи Сообщений: 11 Пол: Мужской Реальное имя: Олег Репутация: 0 |
Program... далее у меня текст выводится процедура тоже
|
|||
Олежик |
14.03.2007 0:13
Сообщение
#6
|
Новичок Группа: Пользователи Сообщений: 11 Пол: Мужской Реальное имя: Олег Репутация: 0 |
Так вы мне поможете?
Я тока завтра утро прогу перепишу.. заранее огромное спасибо!!! |
hiv |
14.03.2007 14:41
Сообщение
#7
|
Профи Группа: Пользователи Сообщений: 660 Пол: Мужской Реальное имя: Михаил Репутация: 11 |
далее у меня текст выводится Текст с русскими символами? Если да, то в какой кодировке? win(cp1251) или dos(cp866)процедура тоже Короче - если текст нормально читается в блокноте (notepad), то надо менять его кодировку с win на dos. -------------------- Никогда не жадничай. Свои проблемы с любовью дари людям!
|
Олежик |
20.03.2007 0:28
Сообщение
#8
|
Новичок Группа: Пользователи Сообщений: 11 Пол: Мужской Реальное имя: Олег Репутация: 0 |
короче....
ребят.... вы мне поможетет процедуру написать? и саму прогу? |
Артемий |
20.03.2007 10:28
Сообщение
#9
|
Помощник капитана Группа: Пользователи Сообщений: 601 Пол: Мужской Реальное имя: Артем Репутация: 2 |
Олежик,для упрощения ты можешь дать нам этот txt файл,заранее с кодировкой дос!
-------------------- Dum spiro spero!
|
Олежик |
20.03.2007 23:23
Сообщение
#10
|
Новичок Группа: Пользователи Сообщений: 11 Пол: Мужской Реальное имя: Олег Репутация: 0 |
вот оно...
ktz.txt(сделано в блокноте) ktz.txt ( 186 байт ) Кол-во скачиваний: 395 вот (сделано в Pascal) ktz1.txt Прикрепленные файлы KTZ1.TXT ( 180 байт ) Кол-во скачиваний: 231 |
NTL |
21.03.2007 0:05
Сообщение
#11
|
Фанат Delphi Группа: Пользователи Сообщений: 72 Пол: Мужской Реальное имя: Сергей Репутация: 0 |
Код while not EOF(f1)do begin readln(f1,bank,comp,nmAczi,stAczi); if nmAczi*stAczi>max then begin mxBank:=bank; max:=nmAczi*stAczi end; end; write('mxBank = ',mxBank); close(f1); -------------------- ICQ (384-043-857)
|
Олежик |
21.03.2007 7:18
Сообщение
#12
|
Новичок Группа: Пользователи Сообщений: 11 Пол: Мужской Реальное имя: Олег Репутация: 0 |
Код while not EOF(f1)do begin readln(f1,bank,comp,nmAczi,stAczi); if nmAczi*stAczi>max then begin mxBank:=bank; max:=nmAczi*stAczi end; end; write('mxBank = ',mxBank); close(f1); т.е. Я открываю файл..... Название банка кидаю в bank, Кто купил кидаю comp, сколько купили - nmAczi; цеена одной....stAczi, Я правильно понял? если да.... вопрос.... как мне их туда кинуть...... с помощью оператора with? Напишите пожалуйста... |
NTL |
21.03.2007 9:10
Сообщение
#13
|
Фанат Delphi Группа: Пользователи Сообщений: 72 Пол: Мужской Реальное имя: Сергей Репутация: 0 |
как мне их туда кинуть...... с помощью оператора with? Напишите пожалуйста... Здесь и происходит "кидание". Из файла f1 считываем данные и сохраняем в 4 переменные. with здесь вообще ни причем, ибо в данном случае сохранение происходит не в записи Код readln(f1,bank,comp,nmAczi,stAczi); -------------------- ICQ (384-043-857)
|
Текстовая версия | 11.05.2024 14:59 |