Версия для печати темы

Автор: Yulianna 2.03.2007 19:57

Нужно создать модуль,чтоб в нем было не меньше трех подпрограмм. И естесственно нужна программа, демонстрирующая этот модуль. Я пытаюсь написать,и не получается. В чем ошибки? Или вообще не так делаю?
текст Модуля:

Unit Matrica_Yulianna;
interface
uses crt;
type matr=array[1..50,1..50] of real;

Procedure Vvod_matr(m,n:byte; var a:matr);
Procedure Vivod_matr(m,n:byte; var a:matr);
Procedure Zamena_elem(m,n:byte; var a:matr);
Procedure Summa_elem(m,n:byte; var S:real);

implementation
Procedure Vvod_matr(m,n:byte; var a:matr);
var i,j:byte;
begin
Writeln('Vvedite razmernost matrici (m*n):');
readln(m,n);
for i:=1 to m do
for j:=1 to n do
  begin
  write('A[',i,',',j,']=');
  readln(a[i,j]);
  end;
writeln;
end;

Procedure Vivod_matr(m,n:byte; var a:matr);
var i,j:byte;
begin
for i:=1 to m do
  begin
  for j:=1 to n do write(a[i,j]:10 :3);
  writeln;
  end;
end;

Procedure Zamena_elem(m,n:byte; var a:matr);
var i,j:byte;
begin
i:=1;
while i<=m do
  begin
  for j:=1 to n do
  a[i,j]:=sqr(a[i,j]);
  i:=i+2;
  end;
end;

Procedure Summa_elem(m,n:byte;  var S:real);
var i,j:byte;
    a:matr;
begin
for i:=1 to m do
  begin
  S:=0;
  for j:=1 to n do S:=S+a[i,j];
  writeln('Ryadok N',i,'S=',S:7 :3);
  end;
end;
end.

Текст программы:

program Matrica;
uses Matrica_Yulianna;
var m,n:byte;
    a:matr;
    S:real;
begin
Vvod_matr(m,n,a);
Vivod_matr(m,n,a);
Zamena_elem(m,n,a);
Summa_elem(m,n,S);
readln;
end.

Подскажите плиз.

Автор: volvo 2.03.2007 20:18

Procedure Vvod_matr(VAR m,n:byte; var a:matr); { <-- Var забыла? }

А в процедуру Summa_elem надо передавать матрицу, ты же работаешь с локальной копией, которая содержит мусор...

Автор: Yulianna 2.03.2007 21:14

Спасибо. то, что не поставила var не заметила даже. А про процедуру Summa_elem теперь поняла...