Назад   Задать вопрос
Информатика
11 класс
5 отметок
+ В закладки
21.01.2013, 22:55

в символьном массиве хранятся фамилии и инициалы учеников класса. требуется напечатать список класса с указанием для каждого ученика количества его однофамильцев. Си++

Комментарии (0)

Решить задание

Добавить ответ, могут только Зарегистрированные или Авторизированные пользователи.

Ответы и решения


22.01.2013, 02:48

pascal

 

uses crt;
var
a:array[1..100] of string;
n,i,j:integer;
odn:array[1..100] of integer;
begin
clrscr;
write('Vvedite kolvo uchenikov '); readln(n);
for i:=1 to n do
begin
write('Vvedite familiyu i initiali uchenika #',i,' ');
{naprimer Ivanov A. A.}
readln(a[i]);
end;
for i:=1 to n do
begin
odn[i]:=0;
for j:=1 to n do
begin
{5 simbolov v konce familii videlyaem na initiali
naprimer vmesto Ivanov A. A. proveryem Ivanov}
if i<>j then
begin
if copy(a[i],1,length(a[i])-5)=copy(a[j],1,length(a[j])-5) then
odn[i]:=odn[i]+1;
end;
end;
end;
writeln;
for i:=1 to n do
begin
write('Familiya: ',a[i]);
write(' odnofamilci:',odn[i]);
writeln;
end;
readln
end.

Оценка: 2.0 (голосов: 6)

Комментарии (0)