Задача про олимпиаду, Работа с текстовым файлом. Опции

[nesh]

Всем Привет!!!
Помогите, пожалуйста написать программу про олимпиаду, Заранее Благодарен!

Нужно написать программу проведения итогов олимпийских игр в Пекине. В програму вводится количество медалей разного достоинства, завоеванные каждой командой участницей. Программа подсчитывает общее количество медалей и соответствующее число очков. После чего упорядочивает список в соответствии с набранными очками.
Золотая-7 очков
Серебрянная-6 очков
Бронзовая-5 очков
Таблица должна выглядеть так:

Страна Золото Серебро Бронза Очки

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

[volvo]

Вариант тот что предложиил volvo, мне вобще не понятен и мы такого еще не проходили. (((

А я тебе здесь ничего и не предлагал, кроме как привести свой файл данных...

Ошибка у тебя в том, что ты 1) непонятно зачем что-то читаешь из файла перед циклом 2) читаешь все данные из файла в одну и ту же запись... Тебе надо завести массив записей, и с ним работать:

type
  table = record
    str: string[15];
    zl: word;
    sr: word;
    br: word;
    och: word;
  end;
var
  tablica: array[1 .. 10] of table;
...

{ Читать вот так: }
i: = 0;
while not eof(f) do begin
  inc(i);
  read(f,tablica[i].str);
  read(f,tablica[i].zl);
  read(f,tablica[i].sr);
  read(f,tablica[i].br);
  tablica[i].och := 0;
  readln(f); { <--- очки читать не надо, их еще нет, просто перевод строки в файле... }
end;

{ теперь подсчитываем очки }
for i := 1 to 10 do
  with tablica[i] do och := 7 * zl + 6 * sr + 5 * br;

{
  теперь сортируешь массив записей по убыванию поля och
  (как - см. тот код который тебе не понятен). И потом отсортированные
  записи пишешь в выходной файл...
}

Сообщение отредактировано: volvo - 8.09.2008 16:10