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


Ответ
 
Опции темы Опции просмотра
Старый 31.03.2011, 00:37   #1 (permalink)
Ekaterina1992
Новичок
 
Регистрация: 31.03.2011
Сообщений: 1
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
Exclamation Матрицы

Для заданой матрицы размером 8 на 8 найти такие k, что k-я строкаматрицы совпадает с k-м столбцом.
Найти сумму элементов в тех строках, которые содержат хотя бы один отрицательный элемент.
Помогите с программой чет не получается.



Код:
program n10;
uses crt;
const n=10;
var
B:array[1..8, 1..8] of integer;
i,j,k,m,l:byte;
flag:boolean;
begin clrscr;
for i:=1 to 8 do begin
for j:=1 to 8 do  begin
writeln('b[',i,',',j,']=');
readln(b[i,j]);
end;
end;
for i:=1 to 8 do begin
for j:=1 to 8 do
write (b[i,j]:4);
writeln;
end;
for i:=1 to 8 do
for j:=1 to 8 do
for l:=1 to 8 do
begin
flag:=true;
for i:=1 to 8 do
begin
for j:=1 to 8 do
begin
if (b[i,j]<>b[j,i])
then begin flag:=false;
break;
end;
end;
end;
if (flag=true) then writeln('success')
else writeln('failed');
end;

readln;
end.
Ekaterina1992 вне форума   Ответить с цитированием

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

Рекомендую обратить внимание на аналогичные темы

Матрицы и массивы в паскале
Симметричность матрицы
Задача об элементах матрицы

Старый 31.03.2011, 09:41   #2 (permalink)
Vladimir_S
Специалист
 
Аватар для Vladimir_S
 
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 26,357
Сказал(а) спасибо: 289
Поблагодарили 507 раз(а) в 165 сообщениях
Репутация: 91953
По умолчанию

Попробуйте так (фрагмент):
Код:
flag1:=true; {ввести еще одну булеву переменную}
for i:=1 to 8 do 
 begin
  flag:=true;
  j:=0;
  Repeat
    Inc(j);
    if b[i,j]<>b[j,i] then flag:=false; 
  Until (flag=false) or (j=8);
  if flag then 
   begin
    writeln('k= ',i);
    flag1:=false;
   end;
 end;  
if flag1 then writeln('No such lines/columns!');
__________________
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, время: 14:52.

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