IIoH9TJluBblu
Junior Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
делаю программу модульной структуры
условие задачи: дана матрица А 5х5 и последовательность B из 5 элементов. Если для каждой строки А сумма ее элементов меньше соответствующего элемента последовательности B, то присвоить всем элементам последовательности значения по правилу b[i]:=s[i];
код для блочной структуры:
Program Zadanie;
Type matr=array[1..5,1..5] of real;
posl=array[1..5] of real;
Var a:matr;
b:posl;
i,j:integer;
s:real;
f1,f2:text;
procedure sum(var a:matr; i:integer; var S: real);
Var j:integer;
begin
s:=0;
for j:=1 to 5 do
s:=s+a[i,j];
end;
begin
assign(f1,'ifile.txt');
assign(f2,'vfile.txt');
reset(f1);
rewrite(f2);
for i:=1 to 5 do
for j:=1 to 5 do
read(f1,a[i,j]);
readln(f1);
for i:=1 to 5 do
read(f1,b[i]);
writeln(f2,' ':25,'results');
writeln(f2);
for i:=1 to 5 do
begin
sum(a,i,s);
if s<b[i] then
b[i]:=s;
write(f2,b[i]:2:0);
end;
close(f1);
close(f2);
end.
------------------------------------------
сделал 2 файла, один - для основного кода, другой - для модуля...
в файле с основным кодом:
program zadanie;
uses sumunit;
Var a:matr;
b:posl;
i,j:integer;
s:real;
f1,f2:text;
begin
assign(f1,'ifile.txt');
assign(f2,'vfile.txt');
reset(f1);
rewrite(f2);
for i:=1 to 5 do
for j:=1 to 5 do
read(f1,a[i,j]);
readln(f1);
for i:=1 to 5 do
read(f1,b[i]);
writeln(f2,' ':25,'results');
writeln(f2);
for i:=1 to 5 do
begin
sum(a,i,s);
if s<b[i] then
b[i]:=s;
write(f2,b[i]:2:0);
end;
close(f1);
close(f2);
end.
в файле sumunit.tpu, который поместил в папку tp7/units и запустил из паскаля отдельно (после чего вместо кода появились каракули):
unit sumunit;
interface
Type matr=array[1..5,1..5] of real;
posl=array[1..5] of real;
implementation
procedure sum(var a:matr; i:integer; var S: real);
Var j:integer;
begin
s:=0;
for j:=1 to 5 do
s:=s+a[i,j];
end;
end.
итог: при запуске основной программы на строчке sum(a,i,s) пишет unknown identifier
не понимаю почему, ведь модуль подключен....
пожалуйста, подскажите, что не так...
|
