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

[Доцент]

Ну а вывод как будет выглядеть?...

[Michael_Rybak]

Напиши типа такого:

Максимальное количество голосов, набранное кем-либо - 8. Это количество голосов получили следующие участники:

И дальше список, по одному в строке.

То есть сначала (как ты и делаешь) считаешь max (только уже не запоминаешь maxfam, т.к. оно тебе не понадобится), потом выводишь такое сообщение, а потом еще одним циклом выводишь тех, у кого .count = max

[Rian]

Я имел в виду чтобы сама прога спрашивала сколько жюри брать. Текстовый файл желательно больше не трогать.

Еще хорошо бы сделать, чтобы ответ был не подсвечен красным цветом, а просто только имя победителя выдавалось.

Брр. Теперь точно не понял. Ты же сказал, что файл больше не трогать?

Чтобы отчёт выводился, как тебе надо, нужно условие (if mas[z].count=max then)
в последнем блоке {------} вынести перед (begin end) и всё.

[Michael_Rybak]

нужно условие (if mas[z].count=max then)
в последнем блоке {------} вынести перед (begin end) и всё.

Где ты видишь у него условие "(if mas[z].count=max then)"?

[Rian]

Где ты видишь у него условие "(if mas[z].count=max then)"?

Не у него, в той проге, что я ему последней выкладывал (#9)

[Michael_Rybak]

Хм, Доцент, оказывается в проге, которую давал feniks25, уже сделано то, о чем ты спрашиваешь. Выводятся все победители.

[Доцент]

Да, только совместить у меня не получается. Как добавлю это условие, прога неадекватно работает.
Феник, на счет файла: он все таки нужен.

[Rian]

Да, только совместить у меня не получается. Как добавлю это условие, прога неадекватно работает.
Феник, на счет файла: он все таки нужен.

{Поиск наибольшего количества фамилий в списке}
   max:=mas[0].count;{берём для сравнения первый элемент}
     for z:=0 to im do{цикл по всему списку отчёта}
       if mas[z].count>max then max:=mas[z].count;{если текущий элемент больше то это максимальный}

{сам отчёт}
 for z:=0  to im do
if mas[z].count=max then {если количество фамилий равно максимуму, то выводим надпись}
   begin
   write(z:2);write(' ');{порядковый номер фамилии в списке}
   write(mas[z].ima);{сама фамилия}
   writeln(mas[z].count:2);{количество этой фамилиии}
   end;

Есть непонятные строчки?
Как именно надо использовать файл?

Сообщение отредактировано: feniks25 - 19.01.2008 18:21

[Доцент]

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