Помощь - Поиск - Пользователи - Календарь
Полная версия: Работа с текстовым файлом
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
Олежик
Ребят..
выручите плиз....
Меня из инста вышвырнут, если я её не сделаю.
Заранее спасибо!
Вот задача...
...
...
...
...
составить алгоритм и прогу определения по данным из таблицы банка, купившего акции на наибольшую сумму!!!
Таблица нах. в текст. файле list.txt ! Каждая строка таблицы содержит 4 поля. Первое - поле символьного типа, содержит название банка. Длина поля - 15 символов! Второе поле - символьного типа, содержит название компании, акции которого куплены банком. Длина поля - 20 символов. Третье поле - числового типа, содержит кол-во акций, купленных банком. Четвёртое поле - -числового типа, содержит стоимость одной акции в рублях.
Длина каждого из этих полей - 5 символов!!!!
...
...
Язык PASCAL!!!
=)

ПЛИЗ!!!
klem4
Что конкретно вызывает затруднение ?
Олежик
1.Текстовый файл создан....
2.не могу написать процедуру.
И немногго запутался с основной частью программы..
просто у нас такой учитель, который примеры не даёт..
Lapp
Цитата(Олежик @ 13.03.2007 23:13) *

И немногго запутался с основной частью программы..

Приведи тут то, что есть. Распутаем smile.gif
Олежик
Program...
var







Begin
clrscr;
writeln('Прога.....');
Assign(fl,’list.txt’);
{$I-} {выключить стандартную реакцию
на ошибку ввода/вывода}
reset(fl);
{$I+} {включить стандартную реакцию
на ошибку ввода/вывода}
if (IOResult<>0) then
writeln(’Ошибка открытия файла. Конец работы.’)
else begin
/////////////////

далее у меня текст выводится херово...
процедура тоже
М
1. Теги не забываем...
2. Не надо так эмоционально...
мисс_граффити

Олежик
Так вы мне поможете?
Я тока завтра утро прогу перепишу..
заранее огромное спасибо!!!
hiv
Цитата(Олежик @ 13.03.2007 23:30) *
далее у меня текст выводится херово...
процедура тоже
Текст с русскими символами? Если да, то в какой кодировке? win(cp1251) или dos(cp866)
Короче - если текст нормально читается в блокноте (notepad), то надо менять его кодировку с win на dos.
Олежик
короче....
ребят....
вы мне поможетет процедуру написать?
и саму прогу?
Артемий
Олежик,для упрощения ты можешь дать нам этот txt файл,заранее с кодировкой дос!
Олежик
вот оно...
ktz.txt(сделано в блокноте)
Нажмите для просмотра прикрепленного файла
вот (сделано в Pascal)
ktz1.txt
NTL
Код

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);
Олежик
Цитата(NTL @ 21.03.2007 0:05) *

Код

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 7:18) *

как мне их туда кинуть......
с помощью оператора with?
Напишите пожалуйста...

Здесь и происходит "кидание". Из файла f1 считываем данные и сохраняем в 4 переменные.
with здесь вообще ни причем, ибо в данном случае сохранение происходит не в записи
Код
readln(f1,bank,comp,nmAczi,stAczi);
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.