В алфавитном порядке напечатать все строчные английские гласные буквы, входящие в текст

@YamateH · Регистрация: 13.09.2012

Помогите пожалуйста, у меня получилось как-то так.

Pascal

uses crt;
 
var s: string;
 
    i, count: integer;
 
    flag: boolean;
 
const sim = 'd';
 
BEGIN
 
 write('Vvedi stroku: ');
 
 readln(s);
 
 count := 0;
 
 flag:=false;
 
 for i:=1 to length(s) do
 
  if (s[i] = sim) and (not flag) then
 
   begin
 
   inc(count);
 
   flag := true;
 
   end
 
   else if s[i] = ',' then flag := false;
 
 writeln('Kol-vo slov = ', count);
 
 readln;
 
END.

Добавлено через 22 часа 0 минут
ап, при создании темы не заметил, что задание полностью не влезло. Дан текст, за которым следует точка. В алфавитном порядке напечатать (по разу) все строчные английские гласные буквы ( a, e, i, o, u, y), входящие в этот текст. Помогите пожалуйста(

@CodeR · 25.11.2012, 12:15

Pascal

Const mn=['a','e','i','o','u','y'];
Var s:string;
    m:set of char;
    i:byte;
Begin
    write('Введите текст: ');readln(s);
    m:=[];
    For i:=1 to Length(s) do
     if s[i] in mn then m:=m+[s[i]];
    For i:=97 to 122 do
     if chr(i) in m then write(chr(i):2);
    readln;
End.

@kravchenko_A · 27.11.2013, 13:00

а почему i проходим от 97 до 122 подскажите пожалуйста?

Сообщение от CodeR

For i:=97 to 122 do

@CodeR · 27.11.2013, 13:29

Сообщение от kravchenko_A

а почему i проходим от 97 до 122 подскажите пожалуйста?

потому что в этом диапазоне находятся строчные латинские буквы

@kravchenko_A 2 / 0 / 0 Регистрация: 17.09.2013 Сообщений: 84
	27.11.2013, 13:00	3
	а почему i проходим от 97 до 122 подскажите пожалуйста? Сообщение от CodeR For i:=97 to 122 do 0

@CodeR Фрилансер 3411 / 2808 / 3000 Регистрация: 08.02.2012 Сообщений: 7,957 Записей в блоге: 1
	27.11.2013, 13:29	4
	Сообщение от kravchenko_A а почему i проходим от 97 до 122 подскажите пожалуйста? потому что в этом диапазоне находятся строчные латинские буквы 1

Опции темы

В алфавитном порядке напечатать все строчные английские гласные буквы, входящие в текст

Решение