Технический форум
Вернуться   Технический форум > Программирование > Форум программистов > Помощь студентам


Ответ
 
Опции темы Опции просмотра
Старый 04.12.2010, 12:29   #1 (permalink)
Lexxy
Новичок
 
Регистрация: 04.12.2010
Сообщений: 1
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
Unhappy Вывод строки и столбца матрицы

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

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 столбец матрицы.
Lexxy вне форума   Ответить с цитированием

Старый 04.12.2010, 12:29
Helpmaster
Member
 
Аватар для Helpmaster
 
Регистрация: 08.03.2016
Сообщений: 0

Возможно, ваша ваша проблема уже имеет решение на нашем форуме

Вывод данных о температуре
Задача на заполнение, транспонирование и вывод матрицы
Поменять местами k-ю и n-ю строки матрицы

Старый 04.12.2010, 16:24   #2 (permalink)
Vladimir_S
Специалист
 
Аватар для Vladimir_S
 
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 26,858
Сказал(а) спасибо: 317
Поблагодарили 542 раз(а) в 183 сообщениях
Репутация: 101510
По умолчанию

Цитата:
Сообщение от 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; , чтобы иметь возможность посмотреть на результат.
__________________
With Mozilla Firefox - straight to communism!
Vladimir_S вне форума   Ответить с цитированием
Ads

Яндекс

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

Опции темы
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Выкл.
HTML код Выкл.
Trackbacks are Вкл.
Pingbacks are Вкл.
Refbacks are Выкл.




Часовой пояс GMT +4, время: 04:36.

Powered by vBulletin® Version 6.2.5.
Copyright ©2000 - 2014, Jelsoft Enterprises Ltd.