«аочное дистанционное образование с получением государственного диплома через Internet










ѕолучить информацию о поступлении
 
√лавна€ Ќовости  арта сайта ‘отоальбом √остева€ книга  онтакты

Ћампы фонарей стоп сигналов задних габаритных фонарей dali-avto.ru.

 

”пражнение 3

ќписать множества гласных и согласных букв русского алфавита, определить количество гласных и согласных букв в предложении, введенном с клавиатуры.

«ададим тип Letters Ц множество букв русского алфавита, затем опишем переменные этого типа: Glasn Ц множество гласных букв, Sogl Ц множествосогласных букв. ¬водимое с клавиатуры предложение опишем переменной Text типа string. ƒл€ указани€ символа в строке Text применим переменную I типа byte. ƒл€ подсчета количества гласных и согласных букв опишем переменные 6 и S. Ѕлок описани€ программы будет выгл€деть следующим образом:

type

Letters = set of 'A'..'€';

var

Glasn, Sogl : Letters;

Text : string;

I : byte;

G, S ; byte;

¬ начале программы поместим заполнение множеств гласных и согласных букв:

Glasn['A','a','E','e','H','n','O','o','y,'у','Ё','э','ё','ю','я','€'];

Sogl:=['Ѕ'..'ƒ','б'..'д','ж','3', 'з',' '..'Ќ','к'..'н',ѕ'.. ''“', 'п'.. 'т', '‘','ў','ф'.. 'щ', 'V', 'V','№', 'V'];

ѕосле этого реализуем вывод приглашени€ на ввод предложени€ и считывание этого предложени€ в переменную Text.

Write('¬ведите предложение '); Read!n(Text);

ѕеред началом подсчета количества гласных и согласных букв в предложении обнулим значени€ переменных G и S.

ѕроверку принадлежности символов, составл€ющих предложение, множествам гласных или согласных букв русского алфавита реализуем с использованием оператора for, параметр I которого, измен€€сь от 1 до значени€ длины предложени€, будет указывать пор€дковый номер символа в предложении. ѕринадлежность очередного символа предложени€ множеству гласных или согласных букв запишем в виде операции in. ≈сли условие Text[I] in Glasn выполн€етс€, то счетчик гласных букв G увеличиваетс€ на 1. ≈сли выполн€етс€ условие Text[I] in Sogl, тогда увеличиваетс€ на 1 счетчик согласных букв S. ≈сли не выполн€етс€ ни первое, ни второе условие, значит, очередной символ в предложении не €вл€етс€ буквой русского алфавита. ƒанный фрагмент программы будет выгл€деть так:

for I:=l to Length(Text) do

begin

if Text[I] in Glasn

then

G:=G+1;

if Textfl] in Sogl

then S:=S+1

end;

¬ заключительной части программы поместим вывод сообщени€ о результатах подсчета гласных и согласных букв в предложении. ¬ целом текст программы будет выгл€деть следующим образом:

program Glasn_Sogl;
{ѕодсчет гласных и согласных букв в предложении}
type
Letters = set of 'A'..'€';
var
Glasn, Sogl : Letters;
Text : string;
I : byte;
G, S : byte;
begin
Glasn:=['A','a','E', 'e', '»', 'и', '0', 'о', '”', 'у', 'Ё', 'э', ' ','ю','я','€'];
Sogl:=['Ѕ'..'ƒ','б'..'д','∆','ж','3','з',' '..'Ќ','к'..'н','ѕ1..1“',1п'..'т','‘', 'ў','ф'..'щ','Џ','ъ','№','ь'];
Write('¬ведите предложение ');
Readln(Text);
G:=0;
S:=0;
for I:=l to Length(Text) do
begin
if Text[I] in Glasn then G:=G+1;
if Text[I] in Sogl
then S:=S+1
end;
Writeln('B предложении Text. 'G' гласных и 'S' согласных букв');
end.

«апустите интегрированную среду программировани€. ¬ведите текст программы Glasn _Sogl и запишите файл на диск под соответствующим именем, а затем откомпилируйте его. ѕроверьте работу программы, ввод€ различные предложени€.


”знать как сэкономить в кризис моно на сайте ekonom-it.ru

”слови€ задач (без ответов) ќписание типа Ђћножествої ќперации над множествами ”пражнение 1 ”пражнение 2 ќписание типа "«апись" ”пражнение є1 дл€ работы с запис€ми ”пражнение є2 дл€ работы с запис€ми ”пражнение є2 дл€ обработки строк √рафика в Delphi 


 
     
   
 


ѕриглашаем прин€ть участие в круглом столе!
подробнее   >>>
 

»нститут ћенеджмента, Ёкономики и »нноваций начинает набор на курсы повышени€ квалификации!
подробнее   >>>
 

”важемые студенты јЌќ ¬ѕќ »ћЁи»!
подробнее   >>>
 

Ќачинаетс€ набор на курсы повышени€ квалификации!
подробнее   >>>
 

ѕриглашаем прин€ть участие в конференци€х!
подробнее   >>>
 


все новости...

 


–ассылки Subscribe.Ru
—овременное образование
ѕодписатьс€ письмом