Распечатать на экране монитора таблицу символов,

07.12.2009, 16:52. **Показов** 2052. **Ответов** 0

Author24 — интернет-сервис помощи студентам

Тема: Цикл с параметром, символьный (литерный) тип данных.
Задание: Написать программу при помощи операторов цикла for (без
применения массивов) для распечатки на экране монитора указанного в
варианте набора символов. Начертить блок-схему к программе.
Варианты индивидуальных заданий и контрольные вопросы находятся
после лабораторной работы №4.
Пример:
Распечатать на экране монитора таблицу символов, используя только
циклы (без использования массивов и строк)
A C E G I
I A C E G
G I A C E
E G I A C
C E G I A

При выполнении задания в первую очередь необходимо выяснить
закономерность следования символов. Эта закономерность для каждого
задания может быть своя, хотя что-то похожее в разных заданиях есть. В
данном примере можно заметить следующие закономерности:
1) всего строк – 5, в каждой строке – 5 символов;
2) в каждой строке символы расположены через один;
3) первый символ в первой строке A, а в каждой следующей строке
совпадает с последним символом предыдущей строки;
4) после символа I - снова идет символ A.
Используя замеченные закономерности можно предложить следующий
вариант решения:
- надо организовать счет (цикл по переменной i) по строкам от первой до
пятой, при каждом повторении этого цикла (т.е. внутри него) будет
выполняться три действия, объединенные в составной оператор: I) будет
распечатываться строка символов, II) будет осуществляться переход на
следующую строку, III) подготавливаться значение первого символа в
следующей строке;
- в каждой строке необходимо организовать счет (переменная j) по
символам (с 1-ого до 5-ого); при каждом повторении цикла будет
выполняться три действия (опять нужен составной оператор): 1) будет
проверяться значение печатаемого символа (переменная C), и если
окажется, что оно больше ‘I’, тогда в переменную C присваиваетсязначение ‘A’, 2) значение переменной C выводится на экран монитора, 3) в
C присваивается новое значение (следующее за следующим, т.е. символы
следуют через один).
Комментарии для внешнего цикла обозначены римскими цифрами, а для
внутреннего – арабскими.
Блок-схема алгоритма представлена на рисунке 3.

Pascal

Var
i, j : integer; { Счетчики }
C : char; { Переменная для хранения значения символа }
Begin
C := 'A'; { Первое значение символа в первой строке }
{ Цикл по строкам }
for i := 1 to 5 do
begin { Начало действий внутри цикла по строкам }
{ I) Печать строки символов }
for j := 1 to 5 do
begin { Начало тела цикла по счету символов }
end.
 
if C > 'I' then C := 'A'; { 1) Проверка значения символа }
write(' ',C); { 2) Вывод символа на экран }
C := succ(succ(C)); { 3) Новое значение символа }
end; { Конец тела цикла по счету символов }
{ II) Переход на следующую строку }
writeln;
{ II) Подготовка первого символа следующей строки }
C := pred(pred(C));
end; { Конец действий внутри цикла по строкам }

	07.12.2009, 16:52