01.05.2012, 11:24 | #1 (permalink) |
Member
Регистрация: 01.05.2012
Сообщений: 17
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Помогите написать блок-схему для курсовой
Помогите пожалуйста! 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. |
01.05.2012, 11:24 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Можете поискать интересующую информацию в аналогичных топиках Помогите написать блок-схему Помогите нарисовать блок схему |
02.05.2012, 06:24 | #3 (permalink) |
С# - learn or die
Регистрация: 17.12.2011
Сообщений: 2,438
Записей в дневнике: 8
Сказал(а) спасибо: 21
Поблагодарили 49 раз(а) в 11 сообщениях
Репутация: 19701
|
В этой строчке Step:=1 Sh1 i; {2^i} ошибка. Наверное, Вы имели ввиду Step:=1; Sh1:=i; {2^i}. Если правильно поняла, то вот блок-схема:
|
02.05.2012, 10:16 | #5 (permalink) |
Member
Регистрация: 01.05.2012
Сообщений: 17
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Спасибо Огромное!!! Очень благодарен!
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
|
|