Задача из "Уроков" на циклы, Никак не получается сделать... Опции

[Lauri]

Задача из "уроков" , там внизу - составить столбик из нулей, а по диагонали цифры по возрастанию...

Вот как я это сделал... но все бы хорошо, только диагональные цифры начинают считаться с 2, а не с 1... толи я не к той переменной приравнял подсчёт цифр, то ли что...

Код

program kvadrat;
uses crt;
const n=9;
var z,x,c,v:integer;
    a:array [1..n,1..n] of integer;

    begin
    clrscr;

      for z:=1 to n do
      begin
        for x:=1 to n do
          begin
          a[z,x]:=0;
         for c:=1 to n  do
              begin

              a[x,z]:=x+1;


              end;

           write (a[z,x]:2);

          end;
   writeln;
     end;
     readln;
    end.

Кто сможет разобраться в чём ошибка, помогите плиз!

[volvo]

a[x,z]:=x+1;

поменяй на

a[x,z]:=x;

Зачем ты Х увеличиваешь? У тебя эта переменная сама увеличивается, и как раз равна номеру текущей строки...

[GoodWind]

чесс-говоря разбираться в чужом коде невмоготу сейчас... набросаю по новой.

Код

const n=9;
var a:array [1..n,1..n] of byte;
    i, j:byte;

begin
for i:=1 to n do a[i,i]:=i;
for i:=1 to n do begin
writeln;
for j:=1 to n do write(a[i,j],' ');
end;
readln;
end.

вот.. просто обрати внимание, x и y каждой выводимой цифры (кроме 0 конечно) равны ей самой =)

[Lauri]

О, ну я балбэс..
пасиба=)

[volvo]

GoodWind,
"никогда не полагайся на компилятор" (С) ... Ты уверен, что ВСЕ компилеры обнуляют массив при запуске программы? Я - нет...

Это особенности компиляторов, а не требования языка...

[klem4]

Опять на теже грабли

Где сказано что надо хранить в массиве ?))

uses crt;
var
   i,j : byte;
begin
   clrscr;
   for i := 1 to 9 do begin
      writeln;
      for j := 1 to 9 do
       if (i=j) then write(i,' ')
        else write('0 ');
   end;
   readln
end.

[GoodWind]

сердешно извиняю-с
писал прямо в браузере

Клём, я делал на примере программы, которую дал(а) Lauri . А там сделано с массивом...

[klem4]

А он тоже ошибся он имел в виду программу из уроков наших, даже ссылку дал, а там про массив не слова

[klem4]

хех, чот щас вспомнил про эту задачу, вот решение с одной переменной :

uses crt;
var
   i : byte;

begin
   clrscr;
   for i := 1 to 81 do begin
      if i mod 10 =  1 then write(i div 10 + 1,' ')
       else write('0 ');
      if i mod 9 = 0 then writeln;
   end;
   readln;
end.