Исправьте ошибку в модуле

@mbro · Регистрация: 10.03.2013

Author24 — интернет-сервис помощи студентам

Помогите исправить ошибку в модуле и в программе, использующей модуль.
И как вообще правильно прикрутить модуль к программе? В первый раз с ними работаю, написал вроде нормально, компилируется модуль, но программа выдаёт ошибку "ошибочная ссылка на процедуру или функцию" на строке a:=summa(c); в программе

Задача - вывести массив одномерный, в нём посчитать сумму чисел больших 25 и заменить числа больше 100 на 100 и меньше 0 на 0

Pascal

unit mod1;
interface
         const n=25;
         type massiv=array[1..n] of real;
         procedure vvod (var z:massiv);
         procedure vyvod (z:massiv);
         procedure summa (z:massiv; k:real);
         procedure zamena (z:massiv);
implementation
procedure vvod (var z:massiv);
    var i:integer;
    begin
         for i:=1 to n do
             z[i]:=round(201*random-50);
    end;
procedure vyvod (z:massiv);
    var i:integer;
    begin
         for i:=1 to n do
             write(z[i]:4:0);
    end;
procedure summa (z:massiv; k:real);
    var i:integer;
    begin
         k:=0;
         for i:=1 to n do
             if z[i]>=25 then
             k:=k+z[i];
    end;
procedure zamena (z:massiv);
    var i:integer;
    begin
          for i:=1 to n do
              if z[i]>100 then z[i]:=100
                 else if z[i]<0 then z[i]:=0;
end;
end.

Pascal

program kontrol;
uses crt,mod1;
var
   c:massiv;
   a:real;
begin
     clrscr;
     writeln('Ishodnyy massiv:');
     vvod(c);
     vyvod(c);
     writeln('Summa chisel bolshih 25:');
     a:=summa(c);
     writeln('izmenennyi massiv:');
     zamena(c);
     vyvod(c);
     readln;
end.

@Puporev · 07.04.2014, 07:31

Pascal

unit mod1;
interface
const n=25;
type massiv=array[1..n] of real;
procedure vvod (var z:massiv);
procedure vyvod (z:massiv);
function summa (z:massiv):real;
procedure zamena (var z:massiv);
implementation
procedure vvod (var z:massiv);
var i:integer;
begin
for i:=1 to n do
z[i]:=-50+201*random;
end;
procedure vyvod (z:massiv);
var i:integer;
begin
for i:=1 to n do
write(z[i]:4:0);
writeln
end;
function summa (z:massiv):real;
var i:integer;
    k:real;
begin
k:=0;
for i:=1 to n do
if z[i]>25 then k:=k+z[i];
summa:=k
end;
procedure zamena (var z:massiv);
var i:integer;
begin
for i:=1 to n do
if z[i]>100 then z[i]:=100
else if z[i]<0 then z[i]:=0;
end;
end.

Pascal

program kontrol;
uses crt,mod1;
var c:massiv;
begin
clrscr;
writeln('Ishodnyy massiv:');
vvod(c);
vyvod(c);
writeln('Summa chisel bolshih 25=',summa(c):0:0);
writeln('izmenennyi massiv:');
zamena(c);
vyvod(c);
readln;
end.

	07.04.2014, 07:31