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

UptoLike

ВУЗ: 

ВГУ | Воронеж

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

Рубрика: 

23
write('Введите число образцов по горизонтали :');
readln(p);
if (p<1) or (p>pmax) then p:=pmax;
write('Введите число образцов по вертикали :');readln(q);
if (q<1) or (q>qmax) then q:=qmax;
xxxxxxxxxxxxxxxxxxxxxxxx
oo oo oo
o o o o o o
o o o o o o
o o o o o o
o o o o o o
oo oo oo
xxxxxxxxxxxxxxxxxxxxxxxx
xxxxxxxxxxxxxxxxxxxxxxxx
oo oo oo
o o o o o o
o o o o o o
o o o o o o
o o o o o o
oo oo oo
xxxxxxxxxxxxxxxxxxxxxxxx
Clrscr;
for l:=1 to q do
begin
{Вывод картинок и их отражений по вертикали }
for i:=1 to m do
begin
for k:=1 to p do
begin
for j:=1 to n do write(a[i,j]);
for j:=n downto 1 do write(a[i,j])
end;
writeln
end;
{Вывод отражений картинок по горизонтали }
for i:=m downto 1 do
begin
for k:=1 to p do
begin
for j:=1 to n do write(a[i,j]);
for j:=n downto 1 do write(a[i,j])
end;
writeln
end;
end;
readkey
End.{Ornament}
В лабораторной работе мы разобрали часть типовых заданий из всего
многообразия задач обработки информации, структурированной в виде масси-
Пример работы программы при ис-
ходном трафарете:
хххх
о
о
о
и заданном числе повторений :
три раза по горизонта-
ли и два раза по вертикали.

Страницы