Слова Опции

[bigglewood]

Помогите с задачкой ато не получается самому
Дана последовательность слов, слова разделяются пробелом.
Нужно вывести на экран все согласные буквы которые входят только в одно слово.

[Bokul]

uses crt;
type
    main=array[1..40] of string[50];

procedure take_array(s:string; var mas:main; var n:integer);
var i:byte;
begin
n:=1;
for i:=1 to length(s) do
    if (s[i]=' ') and (i<>length(s)) then
       inc(n)
    else
        mas[n]:=mas[n]+s[i];
end;

function dif_letters(s:string):string;
var i,j:byte; buf:string;
begin
buf:='';
for i:=1 to length(s) do
    if pos(s[i],buf)=0 then
       buf:=buf+s[i];
dif_letters:=buf;
end;

procedure consonant(mas:main; n:integer);
const
     con='zxcvbnmlkhgfdsqwrtp';
var i,j,temp:integer;
    buf:string;
    num:array[1..20] of integer;
begin
for i:=1 to 20 do
   num[i]:=0;
for i:=1 to n do
    begin
         buf:=dif_letters(mas[i]);
         for j:=1 to length(buf) do
             begin
                  temp:=pos(buf[j],con);
                  if temp<>0 then
                     inc(num[temp]);
             end;
    end;

for i:=1 to 20 do
    if num[i]=1 then
       write(con[i],' ');
readln;
end;

var s:string;
    mas:main;
    n:integer;
begin
clrscr;
writeln('Enter string');
readln(s);
take_array(s,mas,n);
consonant(mas,n);
end.

Сообщение отредактировано: volvo - 2.11.2006 19:43