Создайте блок схему

icewind · 10.05.2012, 22:20

Program Scles;
Cont
Weight:Array[0..19] of longint
=(1,3,9,27,81,243,729,2187,6561,19683,59049,
177147,531441,1594323,4782969,14348907,
43046721,129140163,387420489,1162261467);
Var m,n temp,i,j:longint;
d:Array[0..20] of -1..1;
begin
Assign(input,'Input.txt');
reset(Input);
Readln(m,n);
Close(Input);
temp:=m;
i:=1;
While temp>0 do
begin
D[i]:=temp mod 3 ;
If D[i]=2 then d[i]:=-1;
temp:=(temp-D[i]) div 3;
Inc(i)
end;
Assign(Output,'Output.txt');
Rewrite(Output);
Write(m);
Writeln;
Close(output);
end.

Léon · 10.05.2012, 23:55

Цитата:

Сообщение от icewind

Создайте блок схему

Создала)), вот блок-схема:

Léon · 11.05.2012, 00:34

Цитата:

Сообщение от icewind

Program Scles;
Const
Weight:Array[0..19] of longint
=(1,3,9,27,81,243,729,2187,6561,19683,59049,
177147,531441,1594323,4782969,14348907,
43046721,129140163,387420489,1162261467);
Var m,n,temp,i,j:longint;
d:Array[0..20] of -1..1;

Исправила.

10.05.2012, 22:20	#1 (permalink)
icewind Member Регистрация: 01.05.2012 Сообщений: 17 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Создайте блок схему Program Scles; Cont Weight:Array[0..19] of longint =(1,3,9,27,81,243,729,2187,6561,19683,59049, 177147,531441,1594323,4782969,14348907, 43046721,129140163,387420489,1162261467); Var m,n temp,i,j:longint; d:Array[0..20] of -1..1; begin Assign(input,'Input.txt'); reset(Input); Readln(m,n); Close(Input); temp:=m; i:=1; While temp>0 do begin D[i]:=temp mod 3 ; If D[i]=2 then d[i]:=-1; temp:=(temp-D[i]) div 3; Inc(i) end; Assign(Output,'Output.txt'); Rewrite(Output); Write(m); Writeln; Close(output); end.

Ads
Яндекс Member Регистрация: 31.10.2006 Сообщений: 40200 Записей в дневнике: 0 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 55070