ane

помогите пожалуйста написать блок-схему к двум процедурам.
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[i].ind=products1[k].ind then
begin
mater:=products1[k].rasx*products[i].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[i].ozy then
Begin
for k:=1 to 4 do
if products[i].ind=products1[k].ind then
begin
mater:=products1[k].rasx;
break;
end;
sum:=sum+(products[i].pzy*mater) ;
End ;
writeln('Materiala na izdeliya potratila ',j,' brigada ',sum,' gramm');
sum:=0;
end;

Léon

Прога для рисования блок-схем - diamFC.