Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Задачи _ Вывод массива "наискосок"

Автор: seva706 22.11.2007 0:15

Дан массив целых чисел вывести его примерно так:
Значение элемента соответствует номеру ячейки в исходном массиве:

1 2 6
3 5 7
4 8 9

Автор: Lapp 22.11.2007 8:30

А ты уверен, что число элементов всегда будет равно полному квадрату?
Короче, вот:

uses CRT;

const
N=20; {длина массива}
s=4; {размер поля вывода числа}

var
a:array[1..N]of integer;
i,j,k,x,y,M:integer;

begin
ClrScr;
for i:=1 to N do a[i]:=i; {автоматическая инициализация массива последовательными числами}
M:=Trunc(Sqrt(N-1))+1;
k:=1;
for i:=1 to M do for j:=1 to i do begin
if Odd(i) then begin
x:=j;
y:=i-j+1;
end
else begin
x:=i-j+1;
y:=j
end;
GoToXY(x*s,y);
if k<=N then Write(a[k]);
Inc(k)
end;
for i:=M-1 downto 1 do for j:=1 to i do begin
if Odd(i) then begin
x:=j+M-i;
y:=i-j+1+M-i;
end
else begin
x:=i-j+1+M-i;
y:=j+M-i
end;
GoToXY(x*s,y);
if k<=N then Write(a[k]);
Inc(k);
end;
ReadLn
end.