Помощь - Поиск - Пользователи - Календарь
Полная версия: Задача про олимпиаду
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
nesh
Всем Привет!!!
Помогите, пожалуйста написать программу про олимпиаду, Заранее Благодарен!

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

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

Как прочитать из файла, т.е. начало программы я знаю, а вот ка сделать чтобы программа подсчитывала очки и упорядочила их?!
renesko1
Если количество стран участниц заранее известно, то заведи массив из записи (страна, сумма очков). Считай из файла и сразу же подсчитай кол.во очков) Потом отсортируй массив по очкам и перезапиши файл.
Если не известно, то используй динамические структуры дан. или создай массив нужной длины.

Ну а считать так. Прочитали 6 золотых... Значит колво очков := очки + 6*7;
nesh
Цитата
Если количество стран участниц заранее известно, то заведи массив из записи (страна, сумма очков). Считай из файла и сразу же подсчитай кол.во очков) Потом отсортируй массив по очкам и перезапиши файл.
Если не известно, то используй динамические структуры дан. или создай массив нужной длины.

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


Реализация программы чисто теоретически мне понятна! А вот как это все сделать не совсем! Да, количество стран участниц известно, их всего 10. Массив из записи я знаю примерно как завести, а вот подсчитать очки и соответственно их отсортировать у меня не получается! У меня получается считать не общее количество очков, а только или очки за бронзу, или очки за серебро, либо за золото. Помогите с этим кусочком программы!!! ЗАРАНЕЕ СПАСИБО!!!!! (Как перезаписать файл я знаю)
volvo
Приведи уже в конце концов свой файл данных, что он содержит? Формат строки какой? А то переливаешь из пустого в порожнее на всех форумах...
renesko1
Ну и то, что ты уже сделал сам.
nesh
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, мне вобще не понятен и мы такого еще не проходили. (((
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
(как - см. тот код который тебе не понятен). И потом отсортированные
записи пишешь в выходной файл...
}
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.