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










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

{LTS}

 

”пражнение 1

—оставим программу, котора€ после ввода строки строчных латинских букв замен€ет их на прописные. –ешение данной задачи можно разделить на три самосто€тельные части: ввод строки строчных латинских букв, преобразование букв в прописные, вывод полученной строки из прописных букв. Ќазовем вводимую строку символов S и опишем ее как переменную строкового типа:

var S: string;

ƒл€ обращени€ к символу, вход€щему в строку, введем переменную I типа byte, так как в строке может быть не более 255 символов. ƒл€ ввода строки используем стандартную функцию ReadLn(S), дл€ вывода полученной строки из прописных букв используем стандартную функцию Writeln(S). ƒл€ преобразовани€ символов строки из строчных в прописные введем подпрограмму-процедуру UpChar.

program Demollpper; {ѕреобразование строчных букв в ѕ–ќѕ»—Ќџ≈}

var S: string: {ќписание S - строки переменной длины}

begin

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

Readln(S): {¬вод исходной строки}

UpChar(S);{ѕреобразование символов строки из строчных в прописные}

Writeln(S); {¬ывод выходной строки}

end.

ѕри разработке подпрограммы-процедуры UpChar(S), выполн€ющей преобразование символов строки из строчных в прописные, используем стандартную функцию UpCase(S[I]) дл€ преобразовани€ строчной латинской буквы в прописную.

ƒействие подпрограммы заключаетс€ в том, что, начина€ с 1-го символа и до конца строки строчна€ буква замен€етс€ прописной. “ак как эта операци€ повтор€етс€, то будет удобно записать ее в виде цикла for, параметр которого будет измен€тьс€ от 1 до величины длины строки, которую вычислит стандартна€ функци€ Length(S).

“екст процедуры будет таким:

procedure UpChar(var S: string);

var I: byte; {Ћокальна€ переменна€ I - номер очередного символа в строке}

for I:= 1 to Length(S) do

{ѕросматрива€ с 1-й до последней буквы строки}

S[I]:= UpCase(S[I]):

{ѕреобразовать очередной символ}

end;

¬ результате получитс€ следующа€ программа:

program DemoUpper; {ѕреобразование строчных букв в ѕ–ќѕ»—Ќџ≈}

var S: string; {ќписание S - строки переменной длины}

procedure UpCharCvar S: string); {ѕроцедура преобразовани€ строки}

var I: byte; {Ћокальна€ переменна€ I - номер очередного символа в строке}

begin

for I:= 1 to Length(S) do {ѕросматрива€ с 1-й до последней буквы строки}

S[I]:= UpCase(S[I]); {ѕреобразовать очередной символ}

end:

begin {Ќачало основной программы}

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

Readln(S): {¬вод исходной строки}

UpChar(S); {¬ызов процедуры преобразовани€ символов строки из строчных в прописные с передачей ей параметра-переменной S}

Writeln(S); {¬ывод выходной строки}

end.


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

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


 
     
   
 


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

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

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

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

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


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

 


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