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

[Доцент]

Добрый день. Очень прошу помочь с такой задачей: "Составить программу решения задачи. Каждый из N (N задано) опрошенных членов жюри спортивного состязания назвал 5 фамилий возможных претендентов на первое место. Определить фамилию спортсмена, который является, по мнению жюри, наиболее вероятным победителем. Получить список фамилий, если несколько спортсменов получат равное количество голосов. Предусмотреть, что опрашиваемый должен назвать 5 разных фамилий."
Сдать должен работу 17-го января.
Вот то, что есть на сегодняшний день:

program laba;
uses crt;
var
 ftxt:text;
 i,j,cod:integer;
 st:string;
 st1,st2,st3,st4,st5,st6:string;
 n:integer;
 found:boolean;

begin
 clrscr;
 assign(ftxt,'Sports.txt');
 {SI-} reset(ftxt);  {SI+}
 if IOResult<>0 then
  begin
   writeln('­Ґв д ©« ');
   halt
  end;

 close(ftxt);
 reset(ftxt);

 while not eof(ftxt) do
  begin
   readln(ftxt,st);
   st1:=copy(st,1,2); {номер жюри}
   st2:=copy(st,4,8);
   st3:=copy(st,13,8);
   st4:=copy(st,22,8);
   st5:=copy(st,31,8);
   st6:=copy(st,40,8);
   writeln(st1,' ',st2,' ',st3,' ',st4,' ',st5,' ',st6);
   end;
 close(ftxt);
end.

И сам текстовый файл...

Сообщение отредактировано: Доцент - 15.01.2008 17:51

[Доцент]

ну мне не задание добавили. Просто сказали что я это пропустил. Я сижу и не знаю откуда начинать ввод количества жюри. Ставлю перед циклом, не считает, ставлю после, повторяется. В цикле я так понял надо на количество жюри(я сделал n) менять m. Так? Я просто пока тяжело понимаю эту тему с внешними файлами.


Так, ввод количества жюри я сделал я в шоке))) Но вот чтобы ответ выдавал множественный (если два победителя то две фамилии) врядли сделаю. но попытаюсь ))

Добавлено через 5 мин.
Вот что теперь на данный момент у меня

program zhuri;
{Раков А. В. 5ВТИ-042}
uses crt;
const m=10;
type
 sport=record count:byte;
 ma:string[9]
end;
var
 f:text;
 mas:array[0..m]of sport;
 sta:array[1..6]of string[9];
 i,k,max,n:integer;
 st:string;
 maxfam:string;
begin
 clrscr;
 writeln('Программа для поиска победителя спортивного соревнования ');
 writeln('Введите количество жюри');
 readln(n);
 assign(f,'Sports.txt');
 reset(f);
 while not eof(f) do
  begin
   readln(f,st);
   sta[1]:=copy(st,1,2);
   sta[2]:=copy(st,4,8);
   sta[3]:=copy(st,13,8);
   sta[4]:=copy(st,22,8);
   sta[5]:=copy(st,31,8);
   sta[6]:=copy(st,40,8);
   writeln(sta[1],' ',sta[2],' ',sta[3],' ',sta[4],' ',sta[5],' ',sta[6]);
   for i:=2 to 6 do
   for k:=0 to n do
   if mas[k].ma<>'' then
    begin
     if mas[k].ma=sta[i] then
      begin
       mas[k].count:=mas[k].count+1;
        break;
      end;
    end
   else
    begin
     mas[k].ma:=sta[i];
     mas[k].count:=mas[k].count+1;
     break;
    end;
  end;
 close(f);
  writeln;
 max:=mas[0].count;
 for k:=0 to m do
 if mas[k].count>max then
 begin
  max:=mas[k].count;
  maxfam:=mas[k].ma;
 end;
 write(maxfam);
 readln;
end.

Сообщение отредактировано: Доцент - 18.01.2008 17:39