Question

pomocy !! potrzebne na dzis daje duzo punktów !!!!

treść zadania...

wypełnij tablice począwszy od pozycji 1 liczbami zwiększającymi się co jeden ukosem praca powinna byc wykonana w pascalu

prosze o pomoc ;)

tak powinno wyglądać

1|2|4|7|
3|5|8|
6|9|
10|

Answer 1

program Ukos;
var tab : array [1..20,1..20] of Integer;
i,j : Integer;
v : Integer;
begin

{Czysczę tablicę wypełniając ją zerami.}
for i := 1 to 20 do
for j := 1 to 20 do
tab[i,j] := 0;

 

{wypełniam kolejnymi liczbami, jedna prosta obserwacja: w całej "przekątnej" z kolejnymi numerami, suma indeksu wierszowego i kolumnowego jest stała, a sumy te w kolejnych przekątnych są kolejnymi liczbami}

v := 1;

for i := 1 to 20 do
begin
j := 1;
repeat
tab[j, i-j+1] := v;
inc(v);
inc(j);
until j > i;
end;

 

{wyświetlam tablicę}

for i := 1 to 20 do
begin
for j := 1 to 20 do
if tab[i,j] > 0 then Write(tab[i,j] : 4);
WriteLn;
end;
end.