Помогите с задачей по множествам

← →
cr@nk © (2008-06-14 18:23) [0]

Составить программу для подсчета количества гласных букв в предложении, которое вводится с клавиатуры. Гласные буквы, имеющиеся в предложении вывести на экран.

Задача проще простого, но:
1. Надо написать её в Delphi (Console Application)
2. Delphi в данном случае с русскими символами работает как-то не очень хорошо
Вот на всякий случай текст программы
program S2_L2_t2; const = ["а", "е", "ё", "и", "о", "у", "ы", "э", "ю", "я", "А", "Е", "Ё", "И", "Й", "О", "У", "Ы", "Э", "Ю", "Я"]; var s: string; i, k: Byte; begin Write("Input text: "); Readln(s); k := 0; for i := 1 to length(s) do if s[i] in glasn then Inc(k); end.

Пробовал процедуры по перекодировке символов написать - не помогло (или не получилось)
procedure DecodeChar(var c: CHAR); begin case ord(C) of 128..175: c := chr(ord(c) + 64); 225..239: c := chr(ord(c) + 16); end; end;

← →
AndreyV © (2008-06-14 18:59) [1]

Входную строку обработай
OemToChar

Помогите с задачей по множествам Найти похожие ветки