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










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

“олько дл€ ¬ас недорогие санатории в —очи отзывы, подробнее на нашем сайте!

 

”пражнение 4

—оздадим программу, определ€ющую, €вл€етс€ ли введенное слово перевертышем. ѕеревертышем называетс€ слово, которое одинаково читаетс€ как слева направо, так и справа налево, например: шалаш, казак.  ак видно из определени€, дл€ вы€снени€, €вл€етс€ ли слово перевертышем, необходимо сравнивать 1-й и последний символ в строке, 2-й и предпоследний, 3-й и предпредпоследний символ, и т. д. до середины слова. ≈сли в процессе сравнени€ будет установлено отличие сравниваемых символов, т. е. вы€сн€етс€, что слово читаетс€ слева направо иначе, чем справа налево, значит можно сделать вывод, что это слово не €вл€етс€ перевертышем. ≈сли в процессе сравнени€ не будет вы€влено отличи€ сравниваемых символов, значит это слово Ц перевертыш.

¬ведем следующие переменные: дл€ хранени€ слов Ц Word типа string с максимальным размером слов 30 символов и переменную I целого типа, указывающую номер позиции сравниваемого символа от начала строки. «аголовок программы можно будет записать следующим образом:

program Perev_Word:

var I : byte:

Word : string[30];

ѕрежде всего, программа должна выводить сообщение о вводе строки и считывать значение строки в переменную Word. Ёто можно записать следующим образом:

Write('¬ведите слово ');

Readln(Word):

ѕовтор€ющуюс€ операцию сравнени€ первого и последнего символа в строке, затем второго и предпоследнего и т. д., запишем с помощью цикла for, параметр которого, измен€€сь от 1 до середины строки, будет указывать номер позиции символа от начала строки.  онечное значение параметра цикла установим равным середине слова, целочисленное значение которого вычислим, использу€ стандартные функции Trunc и Length. «аголовок оператора цикла запишем следующим образом:

for I:=l to Trunc(Length(Word)/2) do

¬ теле цикла запишем оператор сравнени€ соответствующих символов:

if Word[I]<>Word[Length(Word)-I+l].

≈сли результат сравнени€ соответствующих очередных символов примет значение True, то данна€ строка не €вл€етс€ перевертышем, и дальнейшее сравнение не имеет смысла. ¬ыведем на экран сообщение, что данное слово не €вл€етс€ перевертышем, и завершим цикл процедурой exit, котора€ передает управление в конец программы.

≈сли результат сравнени€ соответствующих очередных символов имеет значение False, то это свидетельствует о том, что данные символы одинаковы, но следует продолжить сравнение оставшихс€. ѕараметр цикла увеличиваетс€ на 1, провер€етс€ условие I <=Trunc(Length(Word)/2) и если оно соблюдаетс€, то тело цикла выполн€етс€ еще раз.

≈сли условие I <=Trunc(Length(Word)/2) не выполн€етс€, то цикл завершаетс€, и управление передаетс€ на оператор Writeln('ѕеревертыш'). ѕрограмма завершает работу. ѕолный текст программы можно представить таким образом:

program Perev_Word; {явл€етс€ ли введенное слово перевертышем?}

var I : byte;

Word : string[30];

begin

Write('¬ведите слово ');

Readln(Word);

for I:=l to Trunc(Length(Word)/2) do {ѕровер€ем символы поочередно от начала до середины слова}

begin

if Word[I]<>Word[Length(Word)-I+l] then {≈сли соответствующие символы не одинаковы} begin Writeln — Ќеперевертыш');

exit {¬ыход из цикла и завершение программы, дальше не имеет смысла сравнивать }

end;

end;

Writeln ('ѕеревертыш');

end.

«апустите интегрированную среду программировани€. ¬ведите текст программы Perev_Word и запишите файл на диск под соответствующим именем, а затем откомпилируйте его. ѕосле успешного завершени€ компил€ции проверьте работу программы с отладкой в пошаговом режиме, отслежива€ значени€ переменных Word, I, Word[I], Word[length(Word)-I+l].


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

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


 
     
   
 


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

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

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

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

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


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

 


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