Помогите написать блок-схему для курсовой

[icewind]

Помогите написать блок-схему для курсовой

Добрый день, прошу помочь скоро сдача курсовой, а я никак не могу осилить блок схему к этой программа...:tehnari_ru_281:
Помогите пожалуйста!

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.

 

[icewind]

Я заплачу на Webmoney пару долларов!

Я заплачу на Webmoney пару долларов!

 

[Léon1]

Добрый день, прошу помочь скоро сдача курсовой, а я никак не могу осилить блок схему к этой программа...:tehnari_ru_281:
Помогите пожалуйста!

В этой строчке Step:=1 Sh1 i; {2^i} ошибка. Наверное, Вы имели ввиду Step:=1; Sh1:=i; {2^i}. Если правильно поняла, то вот блок-схема:

 

[Vladimir_S]

В этой строчке Step:=1 Sh1 i; {2^i} ошибка. Наверное, Вы имели ввиду Step:=1; Sh1:=i; {2^i}.

Нет, скорее Step:=1 ShL i; Имеется в виду битовый сдвиг влево (Shift Left).

 

[icewind]

Спасибо Огромное!!! Очень благодарен!