Помощь - Поиск - Пользователи - Календарь
Полная версия: Задача из "Уроков" на циклы
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
Lauri
14.01.2006 21:48
Задача из "уроков" , там внизу - составить столбик из нулей, а по диагонали цифры по возрастанию...

Вот как я это сделал... но все бы хорошо, только диагональные цифры начинают считаться с 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
14.01.2006 21:52
a[x,z]:=x+1;

поменяй на 
a[x,z]:=x;


Зачем ты Х увеличиваешь? У тебя эта переменная сама увеличивается, и как раз равна номеру текущей строки...
GoodWind
14.01.2006 21:58
чесс-говоря разбираться в чужом коде невмоготу сейчас... набросаю по новой.
Код


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
14.01.2006 21:59
О, ну я балбэс.. lol.gif
пасиба=)
volvo
14.01.2006 22:03
GoodWind,
"никогда не полагайся на компилятор" (С) ... Ты уверен, что ВСЕ компилеры обнуляют массив при запуске программы? no1.gif Я - нет...

Это особенности компиляторов, а не требования языка...
klem4
14.01.2006 22:06
Опять на теже грабли smile.gif

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

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
14.01.2006 22:16
сердешно извиняю-с rolleyes.gif
писал прямо в браузере smile.gif

Клём, я делал на примере программы, которую дал(а) Lauri . А там сделано с массивом...
klem4
15.01.2006 0:00
А он тоже ошибся он имел в виду программу из уроков наших, даже ссылку дал, а там про массив не слова blum.gif blum.gif blum.gif
klem4
16.01.2006 16:02
хех, чот щас вспомнил про эту задачу, вот решение с одной переменной : 

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.

Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.