Турбо Паскаль. Посчитать рейтинги политиков.

[Regina]

Имеется таблица, в которой указаны фамилии и рейтинги политиков, полученные по результатам выборочного опроса населения. (Под рейтингом политика следует понимать число повторений его фамилии при опросе). В результате нового опроса получен новый список фамилий.
Разработать АЛГОРИТМ, дать его ОПИСАНИЕ (общую схему и назначение всех используемых переменных), привести ПРОГРАММУ, печатающую фамилии и суммарные рейтинги политиков, названных хотя бы при одном из двух опросов.
Контрольный пример:
Результаты предыдущего опроса
Фамилия Рейтинг
Яблоков 5
Сидоров 1
Галкин 2
Петров 4

Результаты нового опроса

Фамилия

Иванов
Сидоров
Яблоков
Галкин


Решение: Фамилия Рейтинг
Яблоков 6
Петров 4
Галкин 3
Сидоров 3
Иванов 1

[ОДИНОЧЕСТВО В СЕТИ]

в чем хранятся рейтинги? в файлах? в массивах?
просто вводятся?

[Regina]

В массиве
_________________

[Вавел из ГМТУ]

Сообщение от Regina

В массиве
_________________

А по условию в файлах....

адд: хотя нет.

[ОДИНОЧЕСТВО В СЕТИ]

В массиве?
тогда

for i:= 1 to n do
 for j:=1 to m do
if p[i].Fam=op[j] then p[i].r:=p[i].r+1;
for i:=1 to n do
writeln(p[i].fam,'':6,p[i].r);

[/CODE]

[Regina]

рейтинги хранятся в файлах. пожалуйста, напишите программу полностью

[VilAm]

10$ и я напишу вам вашу программу полностью а за 12$ еще и с комментами

[ОДИНОЧЕСТВО В СЕТИ]

[Delphi]
 type rat= record
    fam:string[20];
    r:integer;
    end;
 var s:string;
    fn1,fn2:string;
    fn3:string;
    f1:file of rat;
    f3:TextFile;
    f2:TextFile;
    i,n:Integer;
    p1:rat;
    a:array[1..100] of rat;

procedure ADDR;
var p:rat;
begin
  Writeln('input LastName');
  Readln(p.fam);
  Writeln('input points');
  Readln(p.r);
  write(f1,p);

end;
procedure ADDNO;
var s1:string;
begin
  Writeln('input LastName');
  Readln(s1);
  writeln(f2,s1);
end;

begin
 Writeln('input number of politics');
 Readln(n);
 Writeln('input filename of rating');
 Readln(fn1);
 AssignFile(f1,fn1);
 Rewrite(f1);
 for i:=1 to n do
 ADDR;
 CloseFile(f1);
 Writeln('input number of new opros');
 Readln(n);
 Writeln('input filename of new opros');
 Readln(fn2);
 AssignFile(f2,fn2);
 Rewrite(f2);
 for i:=1 to n do
 ADDNO;
 CloseFile(f2);
 Reset(f1);
 i:=0;
 while not eof (f1) do begin
   Read(f1,p1);
  i:=i+1;
    a[i]:=p1;
 end;
 CloseFile(f1);
 Reset(f2);
 while not Eof(f2) do begin
  Readln(f2,s);
  for n:=1 to i do
  if s=a[n].fam then a[n].r:=a[n].r+1;
 end;
 CloseFile(f2);
 Writeln('input filename  for report');
 Readln(fn3);
 AssignFile(f3,fn3);
 Rewrite(f3);
 for n:=1 to i do
  Writeln(f3,a[n].fam,'----',a[n].r);
 CloseFile(f3);
end.

[Lnn]

Уважаемая, Одиночество в сети, вы не могли бы написать исправления к этой программе, чтобы она выводила только из второго опроса? И еще вопрс:почему в файле с первым опросом получается кроме необходимой информации еще набор символов?
Заранее спасибо

[Serge_Bliznykov]

И еще вопрс:почему в файле с первым опросом получается кроме необходимой информации еще набор символов?

если Вы имеет в виду файл рейтингов (ну который f1 - f1:file of rat;
...
Writeln('input filename of rating');
Readln(fn1);
AssignFile(f1,fn1);
)
то всё так — файл НЕ ТЕКСТОВЫЙ, а ТИПИЗИРОВАННЫЙ. Его в блокноте (или просмоторщике текста) смотреть (а тем паче изменять) - НЕЛЬЗЯ!