Заполнить матрицу символами, чтобы получился узор - Pascal ABC

Формулировка задачи:

Здравствуйте. помогите кто чем может, а то уже не думается.. Нужно заполнить квадратную символьную матрицу символами * и ^ так, что бы получился узор из вложенных квадратов. как я понял ,что то типа того: * * * * * * ^ ^ ^ * * ^ * ^ * * ^ ^ ^ * * * * * * Заранее благодарен.

Решение задачи: «Заполнить матрицу символами, чтобы получился узор»

textual
                            Листинг программы 
                        
 
                        
                          
                    
uses crt;
const nmax=20;
var a:array[1..nmax,1..nmax] of char;
    n,p,i,j:integer;
begin
repeat
write('Размер матрицы до ',nmax,' n=');
readln(n);
until n in [1..nmax];
p:=n div 2;
writeln('Исходная матрица:');
i:=1;
while i<=p do
 begin
  for j:=i to n-i+1 do
   begin
    a[i,j]:='*';
    a[n-i+1,j]:='*';
    a[j,i]:='*';
    a[j,n-i+1]:='*';
   end;
  i:=i+2;
 end;
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    if a[i,j]<>'*' then a[i,j]:='^';
    write(a[i,j]:2);
   end;
  writeln;
 end;
end.

Оцени полезность:

7 голосов , оценка 4 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Похожие ответы