Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Работа для программиста > Фриланс
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 13.10.2009, 14:17   #11
Cannibal
Форумчанин
 
Регистрация: 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.
Cannibal вне форума Ответить с цитированием
Старый 13.10.2009, 14:22   #12
murlay
Новичок
Джуниор
 
Регистрация: 13.10.2009
Сообщений: 0
По умолчанию

каннибал а блок ссхему не нарисуешь?
murlay вне форума Ответить с цитированием
Старый 13.10.2009, 14:25   #13
Cannibal
Форумчанин
 
Регистрация: 17.02.2008
Сообщений: 191
По умолчанию

На это минут 20 надо.

там в принципе ничего сложного нетю только циклы и условия
Mathematicians often mix up Christmas and Halloween, because Dec.25=Oct.31.
Cannibal вне форума Ответить с цитированием
Старый 13.10.2009, 14:46   #14
murlay
Новичок
Джуниор
 
Регистрация: 13.10.2009
Сообщений: 0
По умолчанию

нарисуйи на бумаге и сфоткай пож нерасписывай надо срочно
murlay вне форума Ответить с цитированием
Старый 13.10.2009, 14:47   #15
Cannibal
Форумчанин
 
Регистрация: 17.02.2008
Сообщений: 191
По умолчанию

вот блок схема
Изображения
Тип файла: jpg Безымянный2.jpg (63.9 Кб, 103 просмотров)
Mathematicians often mix up Christmas and Halloween, because Dec.25=Oct.31.
Cannibal вне форума Ответить с цитированием
Старый 13.10.2009, 14:48   #16
murlay
Новичок
Джуниор
 
Регистрация: 13.10.2009
Сообщений: 0
По умолчанию

алгоритм нарисуй больше не надо
murlay вне форума Ответить с цитированием
Старый 13.10.2009, 15:31   #17
murlay
Новичок
Джуниор
 
Регистрация: 13.10.2009
Сообщений: 0
По умолчанию

алгоритм неверный,там неесколько грит циклов.есть идеи?
murlay вне форума Ответить с цитированием
Старый 13.10.2009, 15:39   #18
Cannibal
Форумчанин
 
Регистрация: 17.02.2008
Сообщений: 191
По умолчанию

там итак 2 цикла в каждом
Mathematicians often mix up Christmas and Halloween, because Dec.25=Oct.31.
Cannibal вне форума Ответить с цитированием
Старый 13.10.2009, 15:43   #19
murlay
Новичок
Джуниор
 
Регистрация: 13.10.2009
Сообщений: 0
По умолчанию

нарисууй еще раз попонятнее пожалуйста
murlay вне форума Ответить с цитированием
Старый 13.10.2009, 15:45   #20
murlay
Новичок
Джуниор
 
Регистрация: 13.10.2009
Сообщений: 0
По умолчанию

преплод грит что в проверке два цикла
murlay вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Выручайте :( 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