Вывод строки и столбца матрицы

Lexxy · 04.12.2010, 12:29

Помогите пожалуйста решить программу.
Дана матрица:

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;
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;
end.

Надо вывести вниз через промежутки отдельно 1 строку и 1 столбец матрицы.

Vladimir_S · 04.12.2010, 16:24

Цитата:

Сообщение от 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],' ');

И в чем проблема?

Цитата:

Код:

end.

При наличии экранного вывода рекомендуется в конце программы вставить останов - либо ReadLn; , либо (если загружен модуль CRT) ReadKey; , чтобы иметь возможность посмотреть на результат.

04.12.2010, 12:29	#1 (permalink)
Lexxy Новичок Регистрация: 04.12.2010 Сообщений: 1 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Вывод строки и столбца матрицы Помогите пожалуйста решить программу. Дана матрица: 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; 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; end. Надо вывести вниз через промежутки отдельно 1 строку и 1 столбец матрицы.

04.12.2010, 12:29
Helpmaster Member Регистрация: 08.03.2016 Сообщений: 0	Возможно, ваша ваша проблема уже имеет решение на нашем форуме Вывод данных о температуре Задача на заполнение, транспонирование и вывод матрицы Поменять местами k-ю и n-ю строки матрицы

Ads
Яндекс Member Регистрация: 31.10.2006 Сообщений: 40200 Записей в дневнике: 0 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 55070