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










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

 

”пражнение 2

»зменим программу так, чтобы она во введенном слове подсчитывала число букв Ђаї и замен€ла их буквами Ђбї. “ак как операции ввода-вывода строки аналогичны, то можно сделать вывод о том, что достаточно заменить процедуру UpChar на процедуру ChangeChar и помен€ть соответствующий вызов.

¬ процедуре ChangeChar будем просматривать строку с целью поиска буквы Ђаї, что можно организовать с помощью цикла while и стандартной функции Pos('a', S).  ак только функци€ Pos обнаруживает первое по€вление в строке S подстроки Ђаї, она возвращает результат Ц номер позиции буквы Ђаї. —четчик найденных букв Ђаї увеличиваетс€ на единицу, а в эту позицию вписываетс€ буква Ђбї и так продолжаетс€ до тех пор, пока в строке есть буквы Ђаї.

“екст процедуры может выгл€деть следующим образом:

procedure ChangeChar(var S: string);

var N : byte;

begin

N:=0; {ќбнуление числа букв "а"}

while Pos('a', S) > 0 do {≈сли найдена буква "а", то}

begin

N:=N+1; {”величить счетчик букв "а"на 1}

S[Pos('a', S)] := 'б';{3аписать в позицию буквы "а" букву "б"}

End;

Writeln ('B слове было ', N, ' букв "а" ');

end;

— использованием процедуры ChangeChar текст программы, подсчитывающей число букв Ђаї во введенной строке и замен€ющей их буквами Ђбї, будет таким:

program Change_Letter; {ѕодсчет и замена букв "а" на "б"}

var

S: string:

procedure ChangeChar(var S: string);{ѕроцедура замены буквы "а" на "б"}

var N : byte;

begin

N:=0; {ќбнуление числа букв "а"}

while Pos('a', S) > 0 do {≈сли найдена буква "а", то}

begin

N:=N+1; {”величить счетчик букв "а"на 1}

S[Pos('a', S)] := 'б';{3аписать в позицию буквы "а" букву "б"} end:

Writeln ('B слове было ', N, ' букв "а" ');

end;

begin {ќсновна€ программа}

Write('¬ведите исходную строку: ');

Readln (S);

ChangeChar(S); {¬ызов процедуры замены "а" на "б"}

Writeln('ѕолучилась строка ',S);

end.


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

ќбласть видимости идентификаторов ќписание строкового типа —троковые выражени€ —троковые процедуры и функции ”пражнение 1 ”пражнение 3 ”пражнение 4 ”пражнение 5 ѕроцедуры и функции пользовател€ ћеханизм передачи параметров 


 
     
   
 


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

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

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

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

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


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

 


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