[Valenok-ok]

Дан текст из цифр и строчных букв латинского алфавита. Определить каких букв - гласных или согласных - больше в этом тексте. (Текст может заключаться из 2 -3 слов)

[Pyro]

Помогите написать = напишите всё за меня?

[Valenok-ok]

Чем сможете

[Valenok-ok]

Для человека который програмирует на Delphi, это займёт 2 минуты. Если есть время свободное помоги..

[ChinYan]

А вы, типа, не программируете? Или вам просто так задание дали, без него зачета не будет?
В чем проблема-то? Обойти текст побуквенно, и проверять, какой это символ - гласная или согласная. Добавлять к счетчику, потом чего больше

[Valenok-ok]

На словах это так легко)) Как открываю делфи что то затрудняюсь)) Спасибо) Проблема одна и она заключается в том что я не знаю как написать програму)

[ChinYan]

На языке программирования высокого уровня Delphi. Используя верхние конечности организма и стандартное устройство ввода ПК - клавиатуру.

Консольное или формочки?

[Valenok-ok]

Консольное

[ChinYan]

Что умеете?
Вводить строку?
Циклы?
Обращение к символу в строке?
Ветвление?

[Valenok-ok]

Вообщем я умею рисовать блок схемы - а сам текст я не умею писать..

[Valenok-ok]

Нужен только текст..поможете?

[ChinYan]

Если блок-схемы есть, то написать код не проблема

[Valenok-ok]

Напишите пожалуйста текст этой программы

[U.B.M.]

В раздел работа - там ни в чём не откажут.

И напишут, и комментарии понатыкают, и много чего ещё

P.S. Блок схему в студию - дальше можно разговор продолжать

[chainik]

Все- таки решил помочь. хотя ТАКИЕ программы стыдно неуметь писать самому.

Здесь программа принимает в командной строке имя текстового файла и считает колич. гласных и согл. (В кодировке Windows!)
Не удивляйся на абракадабру в конце файла. Дело в том что консольные приложения выдают на экран сообщения в кодировке DOS.
При запуске ты увидишь нормальный текст.

Код:

program Project1;
    uses SysUtils;

{$APPTYPE CONSOLE}


var
F:TextFile;
ch:char;
NumGlasn,NumSogl:integer;
begin
NumGlasn:=0;
NumSogl:=0;
AssignFile(F,ParamStr(1));reset(F);
while not eof(F) do
    begin
    read(F,ch);ch:=AnsiUpperCase(ch)[1];
        case ch of
        'А','Е','И','О','У','Э','Ю','Ё','Я':inc(NumGlasn);
        'Б','В','Г','Д','Ж','З','К','Л','М','Н','П','Р','С','Т','Ф','Х','Ц','Ч','Ш','Щ','Ъ':inc(NumSogl);
        end;    //case
    end;
CloseFile(F);
Writeln('”*©«:',ParamStr(1));
Writeln('ѓ«*б*ле:',NumGlasn);
Writeln('‘®Ј«*б*ле:',NumSogl);
end.