Язык программирования Pascal. Регулярные типы данных. Васильев В.В - 21 стр.

UptoLike

ВУЗ: 

ВГУ | Воронеж

Составители: 

Рубрика: 

21
then g:=true;
if f and g then
for j:=1 to d[i] do write(p[i,j]);
write(' ')
end;
readkey;
End.{Words_}
Проверять вхождение считанного значения в нужный диапазон удобно с
помощью логической операции in. Например , проверить, является ли значение
символьной переменной с русской буквой можно, написав c in [‘А’..’Я’].
Из разных символов можно составлять рисунки. Если в рисунке наблюда-
ется определенная закономерность (например , фигура симметрична), то ком-
пьютер может создать весь рисунок по его части . Научимся распечатывать
симметричные фигуры .
Задача 6. Дана картинка из символов в виде матрицы размером mxn. Рас-
печатать данную картинку и ее симметричные отражения по горизонтали, по
вертикали, относительно правого нижнего угла.
♣ Симметрия по горизонтали получается при распечатке каждой строки
заданной матрицы справа налево. Симметрию по вертикали можно получить ,
распечатав строки матрицы в обратном порядке . Симметрия относительно пра-
вого нижнего угла получается при распечатке в обратном порядке и строк, и
столбцов матрицы. ♣
Program Figure;
Uses crt;
Const m=4; n=4;
Type stroka=array[1..n] of char;
shablon=array[1..m] of stroka;
Var i,j:integer; a:shablon;
Begin
Textbackground(7); Textcolor(blue); Clrscr;
{Ввод картинки }
for i:=1 to m do
begin
for j:=1 to n do read(a[i,j]);
readln
end;
writeln;
{Вывод картинки и ее отражения по вертикали }
for i:=1 to m do
begin
for j:=1 to n do write(a[i,j]);
write(' ');
for j:=n downto 1 do write(a[i,j]);
writeln

Страницы