Добрый день, прошу помочь скоро сдача курсовой, а я никак не могу осилить блок схему к этой программа...
Помогите пожалуйста!
Program publisher;
Procedure Run_Write_Data;
Var A,B:Array[1..1024] of Integer;
Step,i,j,Numb:Integer;
Begin
Assign (Output,’Output.txt’);
Rewrite (Output);
FillChar (A, SizeOf (A) ,0);
FillChar (B, SizeOf (B) ,0);
For i:=1 to 10 do
Begin
Step:=1 Sh1 i; {2^i}
B [1] :=1; B[2] :=Step;
j:=2; Numb:=2;
While j<step do
Begin
If Odd (B [j] ) =Odd (A[Numb])
then begin
B [j+1] :=A [Numb];
B [j+2] :=Step+1-A [Numb]
end
else begin
B [j+1] := Step+1-A [Numb] ;
B [j+2] := A [Numb]
end;
Inc (j,2);
Inc (Numb)
end;
A:=B
Write (i,’ : “);
for j:=1 to step do Write (B[j],’ “);
WriteLn
End;
Close (Output)
end;
Begin
Run_Write_Data
end.