Есть программа перевода числес из одной системы счисления в другую.
Pascal
| Код |
program Perevod; {Nazvanie programmi}
function RtoDec (s: string; R: word): string; {ob`yavlenie funkcii}
var A, i, n, z: integer; B,C,D,E,F: string; res,res1,res2: real; {obyavlenie peremennih}
begin
n:=0;
A:=0;
A:=pos('.',S);
B:=copy(S,0,length(S)-A);
C:=copy(S,A,8);
A:=POS('.',C);
delete(C,1,A);
res1:=0;
res2:=0;
z:=0;
for i:=length (B) downto 1 do
begin
B[i]:=(B[i]);
if B[i] in ['0'..'9'] then
n:=ord (B[i]) - ord ('0');
if B[i] in ['A'..'Z'] then
n:=10+ord(B[i])-ord('A');
res1:=res1+(n*(exp(z*ln(r))));
z:=z+1;
end;
n:=0;
z:=0;
for i:=length (C) downto 1 do
begin
C[i]:= (C[i]);
if C[i] in ['0'..'9'] then
n:=ord (C[i]) - ord ('0');
if C[i] in ['A'..'Z'] then
n:=10+ord(C[i])-ord('A');
z:=z-1;
res2:=res2+(n*(exp(z*ln(r))));
end;
res2:=abs(res2);
str(res1:0:0,D);
str(res2:0:8,E);
A:=pos('.',E);
delete(E,1,A);
F:=D+'.'+E;
RtoDec := f;
end; {konec funkcii}
var B,C,S,F:string; {obyavlenie peremennih}
r: word;
a: integer;
begin
writeln('Vvedite chislo i nagmite Enter'); {zapros chisla}
readln(s); {prisvoenie peremennoy "S" chisla}
writeln('Vvedite osnovanie i nagmite Enter'); {zapros vvoda osnovaniya}
readln(r); {prisvoenie peremennoy "R" znacheniya osnovaniya}
F:=RtoDec(s,r); {vipolnenie funkcii perevoda}
write('Chislo ',s,' v sisteme schisleniya s osnovaniem ',r, ' ravno ', F); {vivod resultata}
read(s); {ogidania nagatiya luboy klavishi}
end. {konec programmi}
|
Необходимо ее перевести в C++
Помогите новичку C++ |