слова, повторяющиеся хотя бы раз Опции

[18192123]

Дана строка, состоящая из слов (слова разделяются пробелами). Вывести слова, которые повторяются хотя бы один раз.

Для строк использовать только length, chr, ord.

У меня такая идея: ввести массив, каждый элемент которого соответствует кол-ву встречаемости очередного слова в строке. Но тогда как определять такой массив при описании?

[18192123]

программа в лучшем случае выдаёт первое слово...

uses crt;
function Slovo(s:string;n:integer):string;
const lim =[' ',',','!'];
var ss:string;
k,c,i:integer;
begin
ss:=''; c:=1; k:=1;
while k<=length(s) do begin
 while not(s[k] in lim) and (k<=length(s)) do begin
if c=n then ss:=ss+s[k];
inc (k); end;
 inc ( c );
while (s[k] in lim) and (k<=length(s)) do inc (k);
end;
Slovo:=ss;
end;
const n=128;
var
a : array[1..n] of string;
i, n1, j : integer;
s1, s2 : string;

begin
clrscr;
writeln ('   vvedite stroky');
readln (s1);
for j := 1 to n do
a[j] := '';
s2 := '';
for j := 1 to n do begin
    for i := 1 to length (s1) do
      begin
        a[j] := a[j] + slovo (s1, i);
        if a[j] = slovo (s1, i) then s2 := s2 + slovo (s1, i) + ' ';
      end;
end;
writeln ('   stroka - resultat:');
writeln (s2);
readkey;
end.

Сообщение отредактировано: 18192123 - 8.01.2007 0:41