Множества, Сколько в тексте символов совпадающих с Опции

[Ирина]

Проверьте кто может правильность задачи.

1. Ввести с клавиатуры текст до символа точки и слово из латинских букв. Определить, сколько в тексте содержится символов, совпадающих с символами в слове.

Пишу такой программный код:

Код

program Symbol;
uses crt;
type alf='a'..'z';
var
str1, str2: string;
ch: char;
i, n: integer;
a: alf;
begin
clrscr;
n:=0;
writeln('Введите любое предложение на английском языке и поставьте в конце точку.'); readln(a);
n:=Pos('.',str1);
if n=0 then
begin
writeln('Ошибка входных данных.');
readln;
exit;
end;
writeln('Введите любое слово и нажмите <ENTER>');
begin
read(ch);
i:=1;
if ch in a then n:=n+1;  
end;
end;
writeln;
writeln('Количество символов слова, совпавших с символами в предл'); readln(n);
repeat until keipressed;
end;
end.

[volvo]

Код

var
 s, str1: string;
 count, lettCount: word;
 sentence, letters: set of char;
 i: byte;
begin
 write( 'enter any sentence ...> ' );
 readln(str1);

 if pos('.', str1) = 0 then
   begin
     writeln('illegal data');
     readln; exit
   end;

 for i := 1 to length(str1) do
   sentence := sentence + [ str1[i] ];

 count := 0;
 write( 'any word >' ); readln(s);
 for i := 1 to length(s) do
   if not (s[i] in letters) then
     begin
       letters := letters + [s[i]];
       if s[i] in sentence then inc( count );
     end;

 writeln( 'total counter = ', count );

end.

:p2:

Сообщение отредактировано: volvo - 7.11.2004 16:03