1. Заголовок темы должен быть информативным. В противном случае тема удаляется ... 2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения. 3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали! 4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора). 5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM! 6. Одна тема - один вопрос (задача) 7.Проверяйте программы перед тем, как разместить их на форуме!!! 8.Спрашивайте и отвечайте четко и по существу!!!
Написал прогу,не могли бы проверить.Не могу понять в чем дело,не запускается!?Очень срочно нужно!!!
Uses CRT; const n = 5; m = 5; type mas1=array[1..n] of real; mas2=array[1..n,1..m] of real; mas3=array[1..m] of real;
var i, j, k: integer; a:mas1;b:mas2; c:mas3; T: real; Procedure outvec (VAR C:mas3;n:integer); VAR i:integer; begin for i:=1 to m do write(C[i]:7:2,' '); writeln; end; Procedure Umnoz(VAR A:mas1;B:mas2;C:mas3;n,m:integer); begin for j:=1 to m do begin C[j]:=0; for k:=1 to n do C[j]:=C[j]+A[k]*B[k,j]; end; Begin clrscr; writeln('Vvedite massiv A [',n,']:'); for i := 1 to n do readln(A[i]);
for i:=1 to m do for j := 1 to n do if i < j then B[i, j] := i + j else B[i, j] := (i - j) / (i + 1);
for i := 1 to m do begin for j := 1 to n do write(B[i,j]:5:2); writeln; end;
Umnoz(A,B,C,m,n); writeln('C before sort:'); Outvec(C,m); writeln;
for i := 1 to m do for j := m downto i + 1 do if Abs(C[j - 1]) > Abs(C[j]) then begin T := C[j - 1]; C[j - 1] := C[j]; C[j] := T; end;
writeln('C after sort'); Outvec(C,m); writeln; END.
program ad; Uses CRT; const n = 5; m = 5; type mas1=array[1..n] of real; mas2=array[1..n,1..m] of real; mas3=array[1..m] of real;
var i, j, k: integer; a:mas1;b:mas2; c:mas3; T: real; Procedure outvec (VAR C:mas3;n:integer); VAR i:integer; begin for i:=1 to m do write(C[i]:7:2,' '); writeln; end; Procedure Umnoz(VAR A:mas1;B:mas2;C:mas3;n,m:integer); begin for j:=1 to m do begin C[j]:=0; for k:=1 to n do C[j]:=C[j]+A[k]*B[k,j]; end; end; Begin clrscr; writeln('Vvedite massiv A [',n,']:'); for i := 1 to n do readln(A[i]);
for i:=1 to m do begin for j := 1 to n do if i < j then B[i, j] := i + j else B[i, j] := (i - j) / (i + 1); end;
for i := 1 to m do begin for j := 1 to n do write(B[i,j]:5:2); writeln; end;
Umnoz(A,B,C,m,n); writeln('C before sort:'); Outvec(C,m); writeln;
for i := 1 to m do begin for j := m downto i + 1 do if Abs(C[j - 1]) > Abs(C[j]) then begin T := C[j - 1]; C[j - 1] := C[j]; C[j] := T; end; end;
writeln('C after sort'); Outvec(C,m); writeln; END.
У меня теперь другая проблема.Раньше без процедур когда писал у меня 'С before sort' и 'С after sort' нормально считались,а сейчас они просто обнуляютя!!!
Правила форума
Прога с процедурами, Не запускается!?
