Создать личный модуль, содержащий указанные подпрограммы. Написать программу, которая подключает созданный модуль и использует его подпрограммы

@temacska1 · Регистрация: 02.05.2013

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

Создать личный модуль, содержащий указанные подпрограммы. Написать

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

@Midian · 06.06.2013, 17:34

1)
Программа:

Pascal

uses crt, unit1;
const n = 20;
var
x: array [1..n] of integer;
i: byte;
begin
write('Ìàññèâ X: ');
for i:=1 to n do
begin
x[i]:=-10+random(30);
write(x[i],' ');
end;
writeln;
arr(x);
end.

Модуль:

Pascal

Unit unit1;
interface
const n = 20;
procedure arr (x: array [1..n] of integer);
implementation
procedure arr (x: array [1..n] of integer);
var
i,j,l: byte;
y,z: array [1..n] of integer;
begin
j:=0; l:=0;
for i:=1 to n do
if (x[i] < 0) then
begin
inc(j);
z[j]:=x[i];
end
else
begin
inc(l);
y[l]:=x[i];
end;
write('Ìàññèâ Z: ');
for i:=1 to j do write(z[i],' ');
writeln;
write('Ìàññèâ Y: ');
for i:=1 to l do write(y[i],' ');
writeln;
end;
end.

@temacska1 0 / 0 / 0 Регистрация: 02.05.2013 Сообщений: 37
		1
	Создать личный модуль, содержащий указанные подпрограммы. Написать программу, которая подключает созданный модуль и использует его подпрограммы 06.06.2013, 15:56. Показов 1476. Ответов 1 Метки нет (Все метки) Создать личный модуль, содержащий указанные подпрограммы. Написать программу, которая подключает созданный модуль и использует его подпрограммы. продолжение на картинке) Миниатюры 0

Опции темы

Создать личный модуль, содержащий указанные подпрограммы. Написать программу, которая подключает созданный модуль и использует его подпрограммы

Решение