| spani | Дата: Среда, 12.12.2012, 17:11 | Сообщение # 1 |
|
Рядовой
Группа: Пользователи
Сообщений: 1
Статус: Offline
| Собственно есть программа которая состоит из 2-х подпрограмм, тойсть нужно 2 блок-схемы Почень прошу помочь, заранее благодарен.
program igor;
uses crt;
procedure otrA;
var
A: array [1..4, 1..5] of real;
MassivA,i,j:integer;
begin
randomize;
MassivA:=0;
for i:=1 to 4 do
for j:=1 to 5 do
begin
A[i,j]:=-100+random(201);
end;
for i:=1 to 4 do
for j:=1 to 5 do
begin
if (A[i,j]<0) then
MassivA:=MassivA+1;
end;
writeln ('MassivA=', MassivA);
end;
procedure otrB;
var
B: array [1..4, 1..5] of real;
MassivB,i,j:integer;
begin
randomize;
MassivB:=0;
for i:=1 to 4 do
for j:=1 to 5 do
begin
B[i,j]:=-200+random(301);
end;
for i:=1 to 4 do
for j:=1 to 5 do
begin
if (B[i,j]<0) then
MassivB:=MassivB+1;
end;
writeln ('MassivB=', MassivB);
end;
begin
clrscr;
otrA;
otrB;
readln;
end.
|
| |
| |
| diamFC | Дата: Понедельник, 17.12.2012, 15:11 | Сообщение # 2 |
|
Полковник
Группа: Администраторы
Сообщений: 207
Статус: Offline
| Нужно полное условие задачи
|
| |
| |
Программа для построения БЛОК-СХЕМ!!!
