![]() |
|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
![]() |
|
|
Опции темы | Поиск в этой теме |
![]() |
#11 |
Форумчанин
Регистрация: 17.02.2008
Сообщений: 191
|
![]()
program pr11;
uses crt; type mas=array[1..20,1..20] of integer; var a:mas; n,sum:integer; bol:boolean; procedure vvod; var i,j:integer; begin write ('Введите N'); read (n); for i:=1 to n do for j:= 1 to n do begin write ('a[',i,',',j,']='); read (a[i,j]) end; end; procedure vivod; var i,j:integer; begin for i:=1 to n do begin for j:= 1 to n do begin write (a[i,j]:5) end; writeln end; end; procedure proverka(b:mas;var l:boolean); var i,j:integer; begin l:=true; for i:=1 to n do for j:= 1 to n do begin if b[i,j]<>b[j,i] then l:=false end; end; procedure obnul; var i,j:integer; begin for i:=1 to n do for j:= 1 to n do begin if i>j then a[i,j]:=0; end; end; procedure summa (var s:integer); var i,j:integer; begin s:=0; for i:=1 to n do for j:= 1 to n do s:=s+a[i,j] end; begin vvod; vivod; writeln proverka(a,bol); if bol then begin obnul; vivod; summa(sum); writeln('s=',sum); end else writeln('Матрица не семметрична') end. \примерно так. все работает
Mathematicians often mix up Christmas and Halloween, because Dec.25=Oct.31.
|
![]() |
![]() |
![]() |
#12 |
Новичок
Джуниор
Регистрация: 13.10.2009
Сообщений: 0
|
![]()
каннибал а блок ссхему не нарисуешь?
|
![]() |
![]() |
![]() |
#13 |
Форумчанин
Регистрация: 17.02.2008
Сообщений: 191
|
![]()
На это минут 20 надо.
там в принципе ничего сложного нетю только циклы и условия
Mathematicians often mix up Christmas and Halloween, because Dec.25=Oct.31.
|
![]() |
![]() |
![]() |
#14 |
Новичок
Джуниор
Регистрация: 13.10.2009
Сообщений: 0
|
![]()
нарисуйи на бумаге и сфоткай пож нерасписывай надо срочно
|
![]() |
![]() |
![]() |
#15 |
Форумчанин
Регистрация: 17.02.2008
Сообщений: 191
|
![]()
вот блок схема
Mathematicians often mix up Christmas and Halloween, because Dec.25=Oct.31.
|
![]() |
![]() |
![]() |
#16 |
Новичок
Джуниор
Регистрация: 13.10.2009
Сообщений: 0
|
![]()
алгоритм нарисуй больше не надо
|
![]() |
![]() |
![]() |
#17 |
Новичок
Джуниор
Регистрация: 13.10.2009
Сообщений: 0
|
![]()
алгоритм неверный,там неесколько грит циклов.есть идеи?
|
![]() |
![]() |
![]() |
#18 |
Форумчанин
Регистрация: 17.02.2008
Сообщений: 191
|
![]()
там итак 2 цикла в каждом
Mathematicians often mix up Christmas and Halloween, because Dec.25=Oct.31.
|
![]() |
![]() |
![]() |
#19 |
Новичок
Джуниор
Регистрация: 13.10.2009
Сообщений: 0
|
![]()
нарисууй еще раз попонятнее пожалуйста
|
![]() |
![]() |
![]() |
#20 |
Новичок
Джуниор
Регистрация: 13.10.2009
Сообщений: 0
|
![]()
преплод грит что в проверке два цикла
|
![]() |
![]() |
![]() |
|
![]() |
||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Выручайте :( | Axandra | Паскаль, Turbo Pascal, PascalABC.NET | 0 | 27.05.2009 19:51 |
Динамика. Выручайте | Sined121 | Паскаль, Turbo Pascal, PascalABC.NET | 3 | 06.05.2009 10:30 |
Выручайте | xaker_lol | Паскаль, Turbo Pascal, PascalABC.NET | 6 | 28.01.2009 13:45 |
Выручайте | Panda | Помощь студентам | 6 | 08.07.2008 15:40 |