Составить таблицу слов данного текста, начинающихся с буквы"А"

@viksa123 · Регистрация: 25.02.2015

Составить таблицу слов данного текста, начинающихся с буквы"А", с указанием числа повторений каждого слова
на паскале

@Joy · 28.02.2015, 02:29

Pascal

const gb='aAаА';
var
  s,t:string;
  l:array[1..100] of string[30];
  k:array[1..100] of byte;
  i,imax:integer;
  ok:boolean;
begin
  write('Введите текст (разделитель пробел):');readln(t);
  while t<>'' do begin
    s:=copy(t,1,pos(#32,t)-1); delete(t,1,pos(#32,t));
    if (s='') and (t<>'') then begin s:=t;t:='';end;
    if (s<>'') and (pos(s[1],gb)>0) then begin
      ok:=false;
      for i:=1 to imax do if l[i]=s then begin inc(k[i]);ok:=true;end;
      if not ok then begin inc(imax);l[imax]:=s;k[imax]:=1;end;
    end;
  end;
  if imax=0 then writeln('Нет слов начинающихся с буквы A') else
  for i:=1 to imax do writeln(l[i],' ',k[i]);
end.

@viksa123 0 / 0 / 0 Регистрация: 25.02.2015 Сообщений: 36
		1
	Составить таблицу слов данного текста, начинающихся с буквы"А" 27.02.2015, 18:21. Показов 4354. Ответов 1 Метки нет (Все метки) Составить таблицу слов данного текста, начинающихся с буквы"А", с указанием числа повторений каждого слова на паскале 0

Опции темы

Составить таблицу слов данного текста, начинающихся с буквы"А"

Решение