Помогите с задачей по множествам [D2005, XP]
cr@nk © (2008-06-14 18:23:00)
Составить программу для подсчета количества гласных букв в
предложении, которое вводится с клавиатуры. Гласные буквы,
имеющиеся в предложении вывести на экран.
Задача проще простого, но:
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:00) [1]
Входную строку обработай
OemToChar
Наверх 
ЧАТ |
Орешник |
|
