множества, вывод гласных и согласных букв Опции

[shyrik]

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

я правильно начинаю прогу??и веду подсчёт гласных букв??

Program bukvi;
const r=ord('а')-ord('А');
var m:set of 'а'..'я';
    sl:array[1..50] of string;
    s:string;
    i,k,l:integer;
    c:char;
begin m:=['а','е','ё','и','о','у','ы','э','ю','я']
      write('введите текст на русском языке:');
      readln(s);

      writeln('Вот эти буквы:');
      for c:='а' to 'я' do if c in m then write( с );
      writeln

Сообщение отредактировано: shyrik - 13.01.2005 22:44

[volvo]

shyrik
Вот правильный вариант:

Код

const
 all_vowels: set of char =
   ['а', 'е', 'ё', 'и', 'й', 'о', 'у', 'ы', 'э', 'ю', 'я'];
 word_ch: set of char = [];
var
 s: string;
 i: byte;
 in_all: set of char;
begin
 in_all := all_vowels;
 readln(s);
 for i := 1 to length(s) do
   begin
     if s[i] in [' ', '.'] then
       begin
         in_all := in_all * word_ch;
         word_ch := [];
       end
     else
       if s[i] In all_vowels Then
         word_ch := word_ch + [ s[i] ];
   end;
 for i := 0 to 255 Do
   If chr(i) in in_all Then write(chr(i):3);
 writeln
end.

Эта программа считает также все гласные, которые не входят хотя бы в одно слово:

Код

const
 all_vowels: set of char =
   ['а', 'е', 'ё', 'и', 'й', 'о', 'у', 'ы', 'э', 'ю', 'я'];
 word_ch: set of char = [];
var
 s: string;
 i: byte;
 in_all, in_one: set of char;
begin
 in_all := all_vowels; in_one := all_vowels;
 readln(s);
 for i := 1 to length(s) do
   begin
     if s[i] in [' ', '.'] then
       begin
         in_all := in_all * word_ch;
         in_one := in_one - word_ch;
         word_ch := [];
       end
     else
       if s[i] In all_vowels Then
         word_ch := word_ch + [ s[i] ];
   end;
 writeLn('В каждом слове: ');
 for i := 0 to 255 Do
   If chr(i) in in_all Then write(chr(i):3);
 writeln;

 writeLn('Ни в одном слове: ');
 for i := 0 to 255 Do
   If chr(i) in in_one Then write(chr(i):3);
 writeln
end.

Сообщение отредактировано: volvo - 26.01.2005 22:38