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

@Solnze2 · Регистрация: 02.06.2010

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

@Lyohich84 · 04.06.2010, 11:37

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.

@Solnze2 1 / 1 / 0 Регистрация: 02.06.2010 Сообщений: 26
		1
	Требуется напечатать список класса с указанием для каждого ученика количества его однофамильцев. 04.06.2010, 09:29. Показов 2878. Ответов 1 Метки нет (Все метки) В символьном массиве хранятся фамилии и инициалы учеников класса. Требуется напечатать список класса с указанием для каждого ученика количества его однофамильцев. 0

Опции темы