Работа с текстовым файлом, ПОВЕШУСЬ!!! |
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
Работа с текстовым файлом, ПОВЕШУСЬ!!! |
Олежик |
Сообщение
#1
|
Новичок Группа: Пользователи Сообщений: 11 Пол: Мужской Реальное имя: Олег Репутация: 0 |
Ребят..
выручите плиз.... Меня из инста вышвырнут, если я её не сделаю. Заранее спасибо! Вот задача... ... ... ... ... составить алгоритм и прогу определения по данным из таблицы банка, купившего акции на наибольшую сумму!!! Таблица нах. в текст. файле list.txt ! Каждая строка таблицы содержит 4 поля. Первое - поле символьного типа, содержит название банка. Длина поля - 15 символов! Второе поле - символьного типа, содержит название компании, акции которого куплены банком. Длина поля - 20 символов. Третье поле - числового типа, содержит кол-во акций, купленных банком. Четвёртое поле - -числового типа, содержит стоимость одной акции в рублях. Длина каждого из этих полей - 5 символов!!!! ... ... Язык PASCAL!!! =) ПЛИЗ!!! |
NTL |
Сообщение
#2
|
Фанат 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)
|
Олежик |
Сообщение
#3
|
Новичок Группа: Пользователи Сообщений: 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? Напишите пожалуйста... |
Текстовая версия | 29.04.2024 11:32 |