Я скачал с сайта уроки по паскалю, все задачи решал за 5 минут :D , но в седьмом уроке есть такая задача:
По теме "циклы": - напишите программу, печатающую столбик строк такого вида:
1 0 0 0 0 0 0 0 0
0 2 0 0 0 0 0 0 0
0 0 3 0 0 0 0 0 0
0 0 0 4 0 0 0 0 0
0 0 0 0 5 0 0 0 0
0 0 0 0 0 6 0 0 0
0 0 0 0 0 0 7 0 0
0 0 0 0 0 0 0 8 0
0 0 0 0 0 0 0 0 9
Я пол дня ломал голову, но так и не смог её решить :fire: . Подскажите пожалуйста как её решить, интересно очень!!! :thanks:
Полная версия: главная диагональ матрицы
Код
uses crt;
const n=9;
var x:array[1..n,1..n] of integer;
i,j:integer;
Begin
clrscr;
for i:=1 to n do
x[i,i]:=i;
for i:=1 to n do
begin
for j:=1 to n do
begin
write(x[i,j]);
write(' ');
end;
writeln;
end;
readln;
end.
const n=9;
var x:array[1..n,1..n] of integer;
i,j:integer;
Begin
clrscr;
for i:=1 to n do
x[i,i]:=i;
for i:=1 to n do
begin
for j:=1 to n do
begin
write(x[i,j]);
write(' ');
end;
writeln;
end;
readln;
end.
PS это не столбик, это матрица
))
Во-первых, возникает вопрос: Какие задачи решались за 5 минут, если эта не решилась за полдня? 
Ну а во-вторых, нарушение правил форума. Тема закрыта...
Ну а во-вторых, нарушение правил форума. Тема закрыта...
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.