Не работает модуль

@BooR · Регистрация: 09.03.2012

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

Модуль почему-то не работает помогите
Программа без Модуля

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
program my1;
 
type 
masiv=array [1..10,1..10]of integer;
var
  m,n,q, i, j, a, z, b: integer;
  mas: masiv;
 
procedure ones(a, b: integer; var sum: integer);
var
  i, j: integer;
begin
  sum := 0;
  for i := a to b do 
  begin
    for j := 1 to m do 
    begin
      sum := sum + mas[i, j];
    end;
  end;
end;
 
procedure Two(mas: masiv);
var
  i, j, max: integer;
begin
  max := 0;
  for i := 1 to n do 
  begin
    for j := 1 to m do 
    begin
      if mas[i, j] > max then max := mas[i, j];
    end;
  end;
  writeln('max element:    ', max);
  for i := 1 to n do 
  begin
    for j := 1 to m do 
    begin
      if mas[i, j] = max then writeln('Nomera max elementoV: ', i, '.', j, ' ');
    end;
  end;
end;
 
function Tree(m, n: integer): integer;
var
  i, j, sum, kol, k, z: integer;
  sr: real;
begin
  sum := 0;
  for i := 1 to n do 
  begin
    for j := 1 to m do 
    begin
      sum := sum + mas[i, j];
    end;
  end;
  kol := m * n;
  sr := sum / kol;
  writeln('Srednee arefmeti4eckoe=  ', sr:3:3);
  for i := 1 to n do 
  begin
    for j := 1 to m do 
    begin
      if sr < mas[i, j] then inc(k);
      tree := z;
    end;
  end;
  writeln('B masssive ', k, '  4isel(a) > sr ');
end;
 
 
begin
writeln ('Vvedite razmernost massiva MxN');
readln(m,n);
  writeln('MassiV');
  for i := 1 to n do 
  begin
    for j := 1 to m do 
    begin
      mas[i, j] := random(10);
      write(mas[i, j]:3);
    end;
    writeln;
  end;
  writeln('Vvedite K1 and K2');
  readln(a, b);
  ones(a, b, z);
  writeln(z);
   two(mas);
   q:=Tree(m,n);
end.

Сам модуль

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
unit Unit;
interface
type 
masiv=array [1..10,1..10]of integer;
var
  m,n,q, i, j, a, z, b: integer;
  mas: masiv;
 
procedure ones(a, b: integer; var sum: integer);
procedure Two(mas: masiv);
function Tree(m, n: integer): integer;
 Implementation
 procedure ones(a, b: integer; var sum: integer);
var
  i, j: integer;
begin
  sum := 0;
  for i := a to b do 
  begin
    for j := 1 to m do 
    begin
      sum := sum + mas[i, j];
    end;
  end;
end;
 
procedure Two(mas: masiv);
var
  i, j, max: integer;
begin
  max := 0;
  for i := 1 to n do 
  begin
    for j := 1 to m do 
    begin
      if mas[i, j] > max then max := mas[i, j];
    end;
  end;
  writeln('max element:    ', max);
  for i := 1 to n do 
  begin
    for j := 1 to m do 
    begin
      if mas[i, j] = max then writeln('Nomera max elementoV: ', i, '.', j, ' ');
    end;
  end;
end;
 
function Tree(m, n: integer): integer;
var
  i, j, sum, kol, k, z: integer;
  sr: real;
begin
  sum := 0;
  for i := 1 to n do 
  begin
    for j := 1 to m do 
    begin
      sum := sum + mas[i, j];
    end;
  end;
  kol := m * n;
  sr := sum / kol;
  writeln('Srednee arefmeti4eckoe=  ', sr:3:3);
  for i := 1 to n do 
  begin
    for j := 1 to m do 
    begin
      if sr < mas[i, j] then inc(k);
      tree := z;
    end;
  end;
  writeln('B masssive ', k, '  4isel > sr ');
end;
begin 
end.

Комментарий модератора

Используйте теги подсветки кода!

@ermolay · 05.10.2012, 06:47

1. название модуля должно быть отличным от зарезервированного имени unit, например boor
2. в теле программы не нужны процедуры и функции, на то он и модуль, чтобы подпрограммы из него вызывались
3. в программе должен присутствовать вызов модуля (uses boor в нашем случае)
4. функция должна возвращать вычисляемое значение (k а не абстрактное z)
.. и т. д.

что делает ваша первая процедура? насколько я понял - подсчет суммы заданных строк..

не забудьте сохранить и модуль и программу в одном месте, лучше в одной папке, модуль - под своим именем, у нас это будет boor.pas

Модуль:

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
unit boor; 
 
interface
type
  masiv = array [1..10, 1..10] of integer;
 
procedure pr1(a,b,m: integer; var mas: masiv);
procedure pr2(var mas: masiv; n,m: integer);
function pr3(var mas: masiv; n,m: integer): integer;
 
implementation
 
procedure pr1(a,b,m: integer; var mas: masiv);
var i,j,sum: integer;
begin
  sum := 0;
  for i := a to b do 
  begin
    for j := 1 to m do
      sum := sum + mas[i, j];
  end;
  writeln('Summa = ',sum);
end;
 
procedure pr2(var mas: masiv; n,m: integer);
var
  i, j, max: integer;
begin
  max := 0;
  for i := 1 to n do 
  begin
    for j := 1 to m do 
    begin
      if mas[i, j] > max then max := mas[i, j];
    end;
  end;
  writeln('max element:    ', max);
  for i := 1 to n do 
  begin
    for j := 1 to m do 
    begin
      if mas[i, j] = max then writeln('Nomera max elementoV: ', i, '.', j, ' ');
    end;
  end;
end;
 
function pr3(var mas: masiv; n, m: integer): integer;
var
  i, j, sum, kol, k: integer;
  sr: real;
begin
  sum := 0;
  for i := 1 to n do 
    for j := 1 to m do 
      sum := sum + mas[i, j];
  kol := m * n;
  sr := sum / kol;
  writeln('Srednee arefmeti4eckoe=  ', sr:3:3);
  k:=0;
  for i := 1 to n do 
    for j := 1 to m do 
      if sr < mas[i, j] then inc(k);
  pr3:=k;
end;
end.

Программа:

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
uses boor;
var
  mas: masiv;
  a,b,n,m,i,j: integer;
begin
  writeln('Vvedite razmernost massiva MxN');
  readln(m, n);
  writeln('MassiV');
  for i := 1 to n do 
  begin
    for j := 1 to m do 
    begin
      mas[i, j] := random(10);
      write(mas[i, j]:3);
    end;
    writeln;
  end;
  writeln('Vvedite K1 and K2');
  readln(a, b);
  pr1(a, b, m, mas);
  pr2(mas,n,m);
  writeln(pr3(mas,n,m),' elementov > srednego.');
  readln;
end.

Новые блоги и статьи Все статьи Все блоги /
Модульный подход на примере F# DevAlt 06.03.2026 В блоге дяди Боба наткнулся на такое определение: В этой книге («Подход, основанный на вариантах использования») Ивар утверждает, что архитектура программного обеспечения — это структуры,. . .	Управление камерой с помощью скрипта OrbitControls.js на Three.js: Вращение, зум и панорамирование 8Observer8 05.03.2026 Содержание блога Финальная демка в браузере работает на Desktop и мобильных браузерах. Итоговый код: orbit-controls-threejs-js. zip. Сканируйте QR-код на мобильном. Вращайте камеру одним пальцем,. . .	SDL3 для Web (WebAssembly): Синхронизация спрайтов SDL3 и тел Box2D 8Observer8 04.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-sync-physics-sprites-sdl3-c. zip На первой гифке отладочные линии отключены, а на второй включены:. . .	SDL3 для Web (WebAssembly): Идентификация объектов на Box2D v3 - использование userData и событий коллизий 8Observer8 02.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-collision-events-sdl3-c. zip Сканируйте QR-код на мобильном и вы увидите, что появится джойстик для управления главным героем. . . .
Реалии Hrethgir 01.03.2026 Нет, я не закончил до сих пор симулятор. Эта задача сложнее. Не получилось уйти в плавсостав, но оно и к лучшему, возможно. Точнее получалось - но сварщиком в палубную команду, а это значит, в моём. . .	Ритм жизни kumehtar 27.02.2026 Иногда приходится жить в ритме, где дел становится всё больше, а вовлечения в происходящее — всё меньше. Плотный график не даёт вниманию закрепиться ни на одном событии. Утро начинается с быстрых,. . .	SDL3 для Web (WebAssembly): Сборка библиотек: SDL3, Box2D, FreeType, SDL3_ttf, SDL3_mixer и SDL3_image из исходников с помощью CMake и Emscripten 8Observer8 27.02.2026 Недавно вышла версия 3. 4. 2 библиотеки SDL3. На странице официальной релиза доступны исходники, готовые DLL (для x86, x64, arm64), а также библиотеки для разработки под Android, MinGW и Visual Studio. . . .	SDL3 для Web (WebAssembly): Реализация движения на Box2D v3 - трение и коллизии с повёрнутыми стенами 8Observer8 20.02.2026 Содержание блога Box2D позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .