VPF::[Pascal] Однофамильцы - Форум программистов

Tolks

Дата 1.6.2009, 19:28 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 1
Регистрация: 31.5.2009

Репутация: нет
Всего: нет

Дан файл, содержащий сведения об учениках (его имени и фамилии и названия класса (года учения и буквы), в котором он учится). Выяснить имеются ли в школе однофамильцы.

Решите пожалуйсто, очень надо... Завтра сдача, друг попросил, а я не знаю как сделать это...

Код


const
  n = 50;
var
mas: array [1...n] of string [15];
f:text;
i:integer;
n:integer;
name:string[15];
fam:string[15]; 
group:string[15];
begin
writeln('Поиск однофамильцев');
Assign(f,'g:\normal.txt'); 
reset(f);
begin
while not EOF(f) do
      begin
               readln(f,name);
               readln(f,fam);
               readln(f,group);

Дальше не идёт... вообще не знаю что делать...

Это сообщение отредактировал(а) Tolks - 1.6.2009, 20:27

volvo877

Дата 1.6.2009, 20:35 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 2073
Регистрация: 15.11.2004

Репутация: 34
Всего: 116

Для домашних заданий, курсовых, существует "Центр Помощи"

Тема перенесена!

neic

Дата 2.6.2009, 00:41 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 839
Регистрация: 28.1.2007

Репутация: 5
Всего: 7

Замени на это...

Код


mas: array [1...n,2] of string;

и там где ты остановился:

Код


FOR I:=1 TO n DO
BEGIN
       IF mas[I,1] = '' THEN 
       BEGIN
             mas[I,1]:= fam;
             mas[I,2]:= 1;
             I:=n; {выходим из цикла}
       END;

       IF mas[I,1] = fam THEN mas[I,2]:=mas[I,2]+1;
END;
{выходим из чтения файла (достигнули конец файла}
writeln;
writeln('Однофамильцы');

FOR I:=1 TO n DO
BEGIN
       IF mas[I,2] >= 2 THEN writeln(mas[I,1]);
END;

НУ вот что-то похожее.
Тока тут нужно посмотреть даст ли паскаль заносить цифры в массив этот и сравнивать.

Если не даст, то можно сделать 2 массива (одномерных) в одном массиве слово, а в другом параллельно кол-во совпадение например.

Код


MAS[1]:='Иванов' {фамилия}
MAS2[1]:=1 {кол-во совпадений фамилии Иванов}

MAS[1]:='Петров' {фамилия}
MAS2[1]:=2 {кол-во совпадений фамилии Петров}

Ну и тогда объявления будут такими:

Код


MAS: array [1...n] of string;
MAS2: array [1...n] of integer;

Это сообщение отредактировал(а) neic - 2.6.2009, 00:42

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Центр помощи \| Следующая тема »