| DesignerMix |
05.09.2007 21:52 |
Помогите с переводом из Pascal'а в C++!
Кароче такое дело! Нужно перевести прогу из Pascal в C++, это задание к курсачу, и сдать его надо уже до 15 числа... Если кто возьмётся за перевод не обижу. Деньги переведу на электронный кошель. вот текст проги в паскале:
Код:
{
Written by Fyodor Menshikov 27.09.2002
23:02-23:13
I/O file name changed 12.01.2004
}
{$R+,Q+}
type
tnumber=array[1..21]of integer;
{for 100 of 1s the result is 573_147_844_013_817_084_101}
procedure set1(var n:tnumber);
var
i:integer;
begin
for i:=low(n) to high(n) do
n[i]:=0;
n[low(n)]:=1;
end;
procedure add(var n1:tnumber;n2,n3:tnumber);
var
i,c:integer;
begin
c:=0;
for i:=low(n1) to high(n1) do begin
c:=c+n2[i]+n3[i];
n1[i]:=c mod 10;
c:=c div 10;
end;
if c<>0 then
halt(1);
end;
procedure print(n:tnumber);
var
i:integer;
begin
for i:=high(n) downto low(n) do
if n[i]<>0 then
break;
for i:=i downto 1 do
write(n[i]);
end;
var
cur,next,nnext:tnumber;
num:string;
i:integer;
begin
assign(input,'message.in');
reset(input);
readln(num);
set1(next);{one decrypting of 1 (last) digit}
set1(nnext);{one decrypting of empty string}
for i:=length(num)-1 downto 1 do begin
if (num[i]='0')or(num[i]>'3')or(num[i]='3')and(num[i+1]>'3') then
cur:=next
else
add(cur,next,nnext);
nnext:=next;
next:=cur;
end;
assign(output,'message.out');
rewrite(output);
print(next);
end.
|
