Блок-схема Для Процедуры

anerita

New member
08.11.2012
0
0
#1
помогите пожалуйста написать блок-схему к двум процедурам.
1)Procedure MaterialNaBrak ;
var i,j,k :integer;
mater,brig,brignum: integer;
Begin
Clrscr;
j:=1;
mater:=0;
readfileout1(n);
readfileout(np);
begin
for i:=1 to np do
begin
Begin
for k:=1 to 4 do
if products.ind=products1[k].ind then
begin
mater:=products1[k].rasx*products.razr;
break;
end;


2)Procedure MaterialPoBrigadam;
var i,j,k :integer;
sum,mater,brig,brignum: integer;

Begin
j:=1;
sum:=0;
mater:=0;
readfileout1(n);
readfileout(np);
for j:=1 to 2 do
begin
for i:=1 to np do

if j=products.ozy then
Begin
for k:=1 to 4 do
if products.ind=products1[k].ind then
begin
mater:=products1[k].rasx;
break;
end;
sum:=sum+(products.pzy*mater) ;
End ;
writeln('Materiala na izdeliya potratila ',j,' brigada ',sum,' gramm');
sum:=0;
end;