Помогите написать блок-схему для курсовой
Добрый день, прошу помочь скоро сдача курсовой, а я никак не могу осилить блок схему к этой программа...: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. |
Я заплачу на Webmoney пару долларов!
Я заплачу на Webmoney пару долларов!
|
Вложений: 1
Цитата:
|
Цитата:
|
Спасибо Огромное!!! Очень благодарен!
|
Часовой пояс GMT +4, время: 23:07. |
Powered by vBulletin® Version 4.5.3
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.