Другие языки программирования и технологии

Pascal создание библиотеки

написать программу для складывания столбцов матрицы поэлементно, сделать через созданную библиотеку
unit prog;
interface
const n=5;
const v=3;
type oaip=array[1..n,1..v] of integer;
type org=array[1..v] of integer;
var a:oaip;
b:org;
i,j:integer;
procedure zapoln(var a:oaip; i,j:integer);
procedure summa(var b:org;i,j:integer);
implementation
procedure zapoln(var a:oaip; i,j:integer);
begin
for i:=1 to n do
for j:=1 to v do
a[i,j]:=random(-20,20);
for i:=1 to n do begin
for j:=1 to v do begin
write(a[i,j]:4);
end;
writeln;
end;
writeln('otvet');
end;
procedure summa(var b:org;i,j:integer);
begin
for i:=1 to n do
for j:=1 to v do
b[j]:=b[j]+a[i,j];
for j:=1 to v do
write(b[j]:4);
end;
begin
end.
program pr;
uses prog;
var a:oaip;
b:org;
begin
zapoln(a,i,j);
summa(b,i,j);
end.
почему-то выдает нули в ответе
Anton Zotin
Anton Zotin
384
Все созданные файлы (2 шт.) должны находится в одном каталоге.
Все остальные действия по книге (методическим указаниям или в Интернете).

1) Создаем файл "vladislav.pas". В него пишем следующий код:

unit vladislav;

interface
type massiv2 = array [1..100,1..100] of integer;
massiv1 = array [1..100] of integer;
procedure create_array (n, m: integer; var a: massiv2);
procedure new_sum_array (a: massiv2; n, m: integer);

implementation
procedure create_array (n, m: integer; var a: massiv2);
var i, j : integer;
begin
for i:=1 to n do
begin
for j:=1 to m do
begin
a[i,j]:=random (10);
write (a[i,j]:4);
end;
writeln;
end;
end;

procedure new_sum_array (a: massiv2; n, m: integer);
var i, j: integer;
b: massiv1;
begin
writeln ('_'*(4*m+2));
for j:=1 to m do
begin
b[j]:=0;
for i:=1 to n do
b[j]:=b[j]+a[i,j];
write (b[j]:4);
end;
writeln;
end;
end.

2) Создаем файл "<любое имя>.pas"
В него записываем следующий код:

uses vladislav;
var n, m: integer;
c1: massiv1;
c2: massiv2;
begin
write ('n, m (через пробел: строки и столбцы) = ');
readln (n, m);
create_array (n, m, c2);
new_sum_array (c2, n, m);
end.
ДТ
Денис Татаринов
20 124
Лучший ответ
procedure summa(var b:org;i,j:integer);
begin
for i:=1 to n do
for j:=1 to v do
b[j]:=b[j]+a[i,j]; // вот откуда тут взялся массив "a" ?

она относится к модулю, но не к основной программе...
ME
Mr Exclusive......
90 268

Похожие вопросы