Форум: "Начинающим";
Текущий архив: 2008.07.13;
Скачать: [xml.tar.bz2];

Вниз

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

← →
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

---

Страницы: 1 вся ветка

Форум: "Начинающим";
Текущий архив: 2008.07.13;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.007 c