Двумерный массив

@vovchik7 · Регистрация: 26.10.2014

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

Сформировать двумерный массив A [1..n, 1..n], содержащей символ «*» в соответствии с вариантом; размерность массива n задается пользователем:

Есть вот такой код :

Delphi

program Project4;
 
{$APPTYPE CONSOLE}
 
uses
SysUtils, Windows,
math;
 
type mass=array of array of char;
var A:mass; n,i,j:integer;
begin
SetConsoleCp(1251);
SetConsoleOutputCp(1251);
writeln('Введите N');
readln(n);
Setlength(A,n);// рядки;
for i:=0 to (n-1) do
Setlength(A[i],n);
for i:=0 to (n-1) do
begin
for j:=0 to (n-1) do
begin
if
((i-j) mod n=0) or
(i mod n=0) and (j mod n<>0) or
(i mod n<>0) and (j mod n=0) or
(i mod (n-1)=0) and (j mod n<>0) or
(i mod n<>0) and (j mod (n-1)=0) then
A[i,j]:='+' else A[i,j]:=' ';
write(a[i,j]);
end;
writeln;
end;
readln;
end.

Надо получить то, что на картинке.
Заранее спасибо.

@Puporev · 06.12.2014, 21:38

Pascal

program Project4;
 
{$APPTYPE CONSOLE}
 
uses
SysUtils, Windows;
var A:array of array of char;
    n,i,j:integer;
begin
SetConsoleCp(1251);
SetConsoleOutputCp(1251);
writeln('Ââåäèòå N');
readln(n);
Setlength(A,n,n);
for i:=0 to n-1 do
 begin
  for j:=0 to n-1 do
   begin
    if(j>=i) or(j=0)or(i=n-1) then
     A[i,j]:='*' else A[i,j]:=' ';
     write(a[i,j]);
   end;
  writeln;
 end;
readln;
end.

@vovchik7 · 06.12.2014, 21:40 **[ТС]**

Puporev, Спасибо!)

@vovchik7 0 / 0 / 0 Регистрация: 26.10.2014 Сообщений: 86
	06.12.2014, 21:40 [ТС]	3
	Puporev, Спасибо!) 0

Двумерный массив

Решение