15.05.2012, 03:12 | #1 (permalink) |
Новичок
Регистрация: 12.05.2012
Сообщений: 10
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Помогите написать блок схему
m0,m,Max_W,i,counter,q:Integer; f:Text; Res:Array[1..20] of ShortInt; Function Pw3(v:byte):LongInt; var t:byte; P:LongInt; begin if v=0 then P:=1 else begin P:=1; for t:=1 to v do P:=P*3; end; Pw3:=P; end; Begin Assign(f,'Input.txt'); Reset(f); Readln(f,m0,Max_W); Close(f); m:=m0; counter:=0; Repeat q:=m mod 3; if q=2 then q:=-1; Inc(counter); If counter<=Max_W then Res[counter]:=q; m:=m div 3; if q=-1 then m:=m-q; Until (q=1) and (counter>1); Write(m0,' = '); If counter<=Max_W then For i:=counter downto 1 do if i=counter then write(Pw3(i-1)) else if Res[i]=-1 then write(Pw3(i-1)*Res[i]) else write('+',Pw3(i-1)*Res[i]); Assign(f,'Output.txt'); Rewrite(f); If counter>Max_W then writeln(f,'No solution!') else begin write(f,m0); for i:=1 to counter do if Res[i]=-1 then write(f,' ',Pw3(i-1)); writeln(f); for i:=1 to counter do if Res[i]=1 then write(f,' ',Pw3(i-1)); end; Close(f); Readln; End. |
15.05.2012, 03:12 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Пожалуйста, прочтите аналогичные топики на нашем форуме Помогите написать блок схему Помогите написать блок-схему для курсовой Помогите написать блок-схему Помогите написать блок-схему |
16.05.2012, 22:52 | #2 (permalink) |
С# - learn or die
Регистрация: 17.12.2011
Сообщений: 2,438
Записей в дневнике: 8
Сказал(а) спасибо: 21
Поблагодарили 49 раз(а) в 11 сообщениях
Репутация: 19701
|
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
|
|