Пятница, 14.06.2024, 04:56
Информатика и математика в Плесской школе
Приветствую Вас Гость | RSS
Меню сайта
Статистика

Онлайн всего: 1
Гостей: 1
Пользователей: 0
Форма входа
Задача 1



Решение: 
Собственно решение задачи представляет собой один цикл. Переменная j. С клавиатуры вводится строка, затем цикл i, из этой очередной строки вырезаются символы стоящие перед пробелом. Таким образом формируется аббревиатура  из каждой строки. Затем она сравнивается с исходной. И если они совпадают, то заполняем массивы b и c. в первом будем хранить различные строки с одинаковой аббревиатурой во втором их количество.

program n1;
uses crt;
var i,k,j,n,t,p,l,z,f:integer;
c:array [1..10] of integer;
b:array [1..10] of string;
m,s1,s:string;
begin
readln (m);  //аббревиатура
readln (n);  //сколько строк
p:=0;
for j:=1 to n do begin
readln (s);
t:=length(m);
s1:='';
                      s1:=s1+s[1];
                      for i:=2 to length (s) do if s[i-1]=' ' then s1:=s1+s[i];

if (s1=m) then begin
                 if (j=1) then begin
                                 b[1]:=s;
                                 k:=1;
                                 c[1]:=1;
                               end;
                 if (j>1) then begin
                                  f:=1;
                                  for z:=1 to k do if (b[z]=s) then  begin
                                                                     f:=0;
                                                                     c[z]:=c[z]+1;
                                                                    end;
                                 if f=1 then begin
                                                k:=k+1;
                                                b[k]:=s;
                                                c[k]:=1;
                                             end;

                               end;
               end;
end;
  for i:=1 to k do writeln (b[i],'-',c[i],' штук');
end.
Поиск
Календарь
«  Июнь 2024  »
ПнВтСрЧтПтСбВс
     12
3456789
10111213141516
17181920212223
24252627282930
Архив записей
Друзья сайта
  • Официальный блог
  • Сообщество uCoz
  • FAQ по системе
  • Инструкции для uCoz
  • Учительский портал
    Copyright MyCorp © 2024