|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Помогите пожалуйста написать програму на тему Множества
Дан текст из цифр и строчных букв латинского алфавита. Определить каких букв - гласных или согласных - больше в этом тексте. (Текст может заключаться из 2 -3 слов)
|
#2
|
|||
|
|||
Помогите написать = напишите всё за меня?
|
#3
|
|||
|
|||
Чем сможете
|
#4
|
|||
|
|||
Для человека который програмирует на Delphi, это займёт 2 минуты. Если есть время свободное помоги..
|
#5
|
|||
|
|||
А вы, типа, не программируете? Или вам просто так задание дали, без него зачета не будет?
В чем проблема-то? Обойти текст побуквенно, и проверять, какой это символ - гласная или согласная. Добавлять к счетчику, потом чего больше |
#6
|
|||
|
|||
На словах это так легко)) Как открываю делфи что то затрудняюсь)) Спасибо) Проблема одна и она заключается в том что я не знаю как написать програму)
|
#7
|
|||
|
|||
На языке программирования высокого уровня Delphi. Используя верхние конечности организма и стандартное устройство ввода ПК - клавиатуру.
Консольное или формочки? |
#8
|
|||
|
|||
Консольное
|
#9
|
|||
|
|||
Что умеете?
Вводить строку? Циклы? Обращение к символу в строке? Ветвление? |
#10
|
|||
|
|||
Вообщем я умею рисовать блок схемы - а сам текст я не умею писать..
|
#11
|
|||
|
|||
Нужен только текст..поможете?
|
#12
|
|||
|
|||
Если блок-схемы есть, то написать код не проблема
|
#13
|
|||
|
|||
Напишите пожалуйста текст этой программы
|
#14
|
|||
|
|||
В раздел работа - там ни в чём не откажут.
И напишут, и комментарии понатыкают, и много чего ещё P.S. Блок схему в студию - дальше можно разговор продолжать |
#15
|
|||
|
|||
от чайника валенку
Все- таки решил помочь. хотя ТАКИЕ программы стыдно неуметь писать самому.
Здесь программа принимает в командной строке имя текстового файла и считает колич. гласных и согл. (В кодировке 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. |