Работа с текстовым файлом, ПОВЕШУСЬ!!! Опции

[Олежик]

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

ПЛИЗ!!!

[klem4]

Что конкретно вызывает затруднение ?

[Олежик]

1.Текстовый файл создан....
2.не могу написать процедуру.
И немногго запутался с основной частью программы..
просто у нас такой учитель, который примеры не даёт..

[Lapp]

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

Приведи тут то, что есть. Распутаем

[Олежик]

Program...
var







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

далее у меня текст выводится херово...
процедура тоже

М

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

[Олежик]

Так вы мне поможете?
Я тока завтра утро прогу перепишу..
заранее огромное спасибо!!!

[hiv]

далее у меня текст выводится херово...
процедура тоже

Текст с русскими символами? Если да, то в какой кодировке? win(cp1251) или dos(cp866)
Короче - если текст нормально читается в блокноте (notepad), то надо менять его кодировку с win на dos.

[Олежик]

короче....
ребят....
вы мне поможетет процедуру написать?
и саму прогу?

[Артемий]

Олежик,для упрощения ты можешь дать нам этот txt файл,заранее с кодировкой дос!

[Олежик]

вот оно...
ktz.txt(сделано в блокноте)
 ktz.txt ( 186 байт ) Кол-во скачиваний: 591

вот (сделано в 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);

[Олежик]

Код

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]

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

Здесь и происходит "кидание". Из файла f1 считываем данные и сохраняем в 4 переменные.
with здесь вообще ни причем, ибо в данном случае сохранение происходит не в записи

Код

readln(f1,bank,comp,nmAczi,stAczi);