Версия для печати темы

Автор: nesh 5.09.2008 16:15

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

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

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

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

Автор: renesko1 5.09.2008 21:39

Если количество стран участниц заранее известно, то заведи массив из записи (страна, сумма очков). Считай из файла и сразу же подсчитай кол.во очков) Потом отсортируй массив по очкам и перезапиши файл.
Если не известно, то используй динамические структуры дан. или создай массив нужной длины.

Ну а считать так. Прочитали 6 золотых... Значит колво очков := очки + 6*7;

Автор: nesh 6.09.2008 17:34

Реализация программы чисто теоретически мне понятна! А вот как это все сделать не совсем! Да, количество стран участниц известно, их всего 10. Массив из записи я знаю примерно как завести, а вот подсчитать очки и соответственно их отсортировать у меня не получается! У меня получается считать не общее количество очков, а только или очки за бронзу, или очки за серебро, либо за золото. Помогите с этим кусочком программы!!! ЗАРАНЕЕ СПАСИБО!!!!! (Как перезаписать файл я знаю)

Автор: volvo 6.09.2008 17:44

Приведи уже в конце концов свой файл данных, что он содержит? Формат строки какой? А то переливаешь из пустого в порожнее на всех форумах...

Автор: renesko1 7.09.2008 0:54

Ну и то, что ты уже сделал сам.

Автор: nesh 8.09.2008 19:42

program olimp;
var f,ft: text;
    tablica: record
     str: string[15];
     zl: word;
     sr: word;
     br: word;
     och: word;
    end;
begin
  assign(f,'d:\olimp.txt');
   reset(f);
  assign(ft,'d:\olimp1.txt');
   rewrite(ft);
   read(f);
  while not eof(f) do
   begin
     read(f,tablica.str);
     read(f,tablica.zl);
     read(f,tablica.sr);
     read(f,tablica.br);
     readln(f,tablica.och);
--------------------------------------------------     
Этот кусок программы я и не знаю!!!
---------------------------------------------------
       write(ft,tablica.str);
       write(ft,tablica.zl);
       write(ft,tablica.sr);
       write(ft,tablica.br);
       writeln(ft,tablica.och);
   end;
  close(ft);
end.

Вот то что у меня получилось сделать самим. Файл с данными прикреплю! Середину программы у меня так и не получилось сделать (посчитать общее количество очков и отсортировать их!). Вариант тот что предложиил volvo, мне вобще не понятен и мы такого еще не проходили. (((


Прикрепленные файлы
 1.txt ( 372 байт ) Кол-во скачиваний: 237

Автор: volvo 8.09.2008 20:09

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

Ошибка у тебя в том, что ты 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
  (как - см. тот код который тебе не понятен). И потом отсортированные
  записи пишешь в выходной файл...
}