0 / 0 / 1
Регистрация: 14.10.2011
Сообщений: 58
1

Подскажите пожалуйста, как разработать библиотечный модуль.

28.10.2011, 13:08. Показов 476. Ответов 1
Метки нет (Все метки)

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
program laba;
uses crt;
const nmax=20;
var a:array[1..10,1..10] of integer;
    n,i,j,z,sum:integer;
begin
clrscr;
randomize;
repeat
write('razmer massiva do ',nmax,' n=');
readln(n);
until n in [1..nmax];
writeln('Massiv:');
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    a[i,j]:=random(10);
    write(a[i,j]:3);
   end;
  writeln;
 end;
writeln;
writeln('Summi diogonalei:');
for z:=-n+1 to n-1 do
 begin
  {summa na diogonali, otstoyashei na z ot glavnoi }
  sum:=0;
  for j:=1 to n do
  if (j+z>0) and (j+z<=n) then
  sum:=sum+a[j+z,j];
  writeln(z+n:2,' = ',sum);
 end;
readln
end.
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
28.10.2011, 13:08
Ответы с готовыми решениями:

Разработать библиотечный модуль
Разработать библиотечный модуль из ранее созданных программ в лабораторных работах. Составить...

Разработать библиотечный модуль
Разработать библиотечный модуль, содержащий следующие подпрограммы (процедуры или функции) для...

Разработать библиотечный модуль
разработать библиотечный модуль из этой программы(находит мин элмент одномерного массива): Type ...

Разработать библиотечный модуль
Помогите пожалуйста, не выходит разработать библиотечный модуль, не понимаю, как вызвать модуль,...

1
Почетный модератор
64087 / 47496 / 32734
Регистрация: 18.05.2008
Сообщений: 115,182
28.10.2011, 13:37 2
Чуток переделал для удобства вывода, еще переменную z сменил на i, как-то привычнее.
Текст модуля.
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
unit modul;
interface
const nmax=15;
type mas=array[1..nmax,1..nmax] of integer;
procedure Matrix(var a:mas;var n:integer);
procedure Summy(a:mas;n:integer);
implementation
procedure Matrix(var a:mas;var n:integer);
var i,j:integer;
begin
repeat
write('razmer massiva do ',nmax,' n=');
readln(n);
until n in [1..nmax];
writeln('Massiv:');
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    a[i,j]:=random(10);
    write(a[i,j]:3);
   end;
  writeln;
 end;
writeln;
end;
procedure Summy(a:mas;n:integer);
var i,j,sum:integer;
begin
writeln('Summy diogonalei:');
for i:=-n+1 to n-1 do
 begin
  {summa na diogonali, otstoyashei na z ot glavnoi }
  sum:=0;
  for j:=1 to n do
  if (j+i>0) and (j+i<=n) then
  sum:=sum+a[j+i,j];
  write(i+n:2,'=',sum:2,'   ');
  if (i+n) mod 10=0 then writeln;
 end;
end;
end.
Нужно открыть в Паскале файл modul.pas нажать Ctrl+F9 спросит, нажать OK.
Текст программы.
Pascal
1
2
3
4
5
6
7
8
9
10
11
program laba;
uses crt,modul;
var a:mas;
    n:integer;
begin
clrscr;
randomize;
Matrix(a,n);
Summy(a,n);
readln
end.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
28.10.2011, 13:37

Разработать библиотечный модуль из данной программы
Разработать библиотечный модуль из var a:arrayof integer; i,j,n,k:integer; procedure...

Разработать библиотечный модуль из ранее созданных программ
Пытался сделать сам, но нечего из этого не получилось.... Разработать библиотечный модуль из ранее...

Разработать библиотечный модуль по сложению и вычитанию вводимых чисел
Разработать библиотечный модуль по сложению и вычитанию вводимых чисел

Разработать библиотечный модуль вызывающую процедуры и функции созданного модуля
Разработать библиотечный модуль вызывающую процедуры и функции созданного модуля. Пользоваться...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru