Цитата:
Сообщение от Lexxy
Помогите пожалуйста решить программу.
|
Извините, но впервые слышу, чтобы программы "решали". Их пишут, отлаживают, транслируют, запускают и т.п. А решают задачи, иногда посредством написания программ.
Цитата:
Дана матрица:
Код:
program ggg1;
uses crt;
var
a:array[1..4,1..4] of integer;
i,j:byte;
begin
clrscr;
for i:=1 to 4 do
for j:=1 to 4 do
if i=j then a[i,j]:=1;
|
Так - досюда понятно. Определен двумерный целочисленный массив 4Х4 и диагональным элементам присвоено значение 1. Продолжаем.
Цитата:
Код:
for i:=1 to 4 do
begin
end;
|
Великолепно! И что сия пустышка означает? Ладно, поехали дальше.
Цитата:
Код:
for i:=1 to 4 do
for j:=1 to 4 do
if i<j then a[i,j]:=5;
|
Прекрасно - заполнили пятерками правый верхний угол матрицы, всё, что над главной диагональю. А как насчет левого нижнего угла?
Цитата:
Код:
for i:=1 to 4 do
begin
writeln;
for j:=1 to 4 do
write (a[i,j],' ');
end;
|
Теперь вывели всю матрицу на экран. Чудесно! И что - никак не написать цикл вывода определенной строки или определенного столбца? Что-то вроде
Код:
writeln;
for j:=1 to 4 do write (a[1,j],' ');
writeln;
for i:=1 to 4 do write (a[i,1],' ');
И в чем проблема?
При наличии экранного вывода рекомендуется в конце программы вставить останов - либо ReadLn; , либо (если загружен модуль CRT) ReadKey; , чтобы иметь возможность посмотреть на результат.