Срочно нужна помощь!! Кто может перевести небольшую програмку из Паскаля в С++? ОЧЕНЬ НАДО!!!
Jean Havoc
Профи
(643),
на голосовании
15 лет назад
Пожалуйста, пришлите переведенную версию на имэйл(skywalker_08@bk.ru) Программа для перевода из десятичной в шестнадцатиричную систему исчисления. Вот вариант на Паскале: ----- Program pr; uses crt; var code,jst,st,r,ost:integer; ch,ch1:longint; s1,sh:string; label m1,m2; begin gotoxy(2,2); write('Введите число: '); m1: readln(s1); val(s1,ch,code); if code<>0 then begin gotoxy(14,2); write(' '); gotoxy(15,2); goto m1; end; r:=1;sh:=' '; ch1:=ch; while ch>=r do r:=r*16; if ch<>0 then r:=r div16; m2: st:=ch1 mod r; if st=0 then st:=ost; case st of 10:s1:='A'; 11:s1:='B'; 12:s1:='C'; 13:s1:='D'; 14:s1:='E'; 15:s1:='F' else str(st,s1) end; sh:=sh+s1; ch1:=ost; r:=r div 16; if r<>0 then goto m2; writeln; writeln(ch,' -весятичная запись',sh:8,' -шестнадцатиричная запись'); end. ----- Заранее спасибо.
Программа для перевода из десятичной в шестнадцатиричную систему исчисления.
Вот вариант на Паскале:
-----
Program pr;
uses crt;
var
code,jst,st,r,ost:integer;
ch,ch1:longint;
s1,sh:string;
label m1,m2;
begin
gotoxy(2,2);
write('Введите число: ');
m1: readln(s1);
val(s1,ch,code);
if code<>0 then begin
gotoxy(14,2);
write(' ');
gotoxy(15,2);
goto m1;
end;
r:=1;sh:=' '; ch1:=ch;
while ch>=r do
r:=r*16;
if ch<>0 then r:=r div16;
m2: st:=ch1 mod r;
if st=0 then st:=ost;
case st of
10:s1:='A';
11:s1:='B';
12:s1:='C';
13:s1:='D';
14:s1:='E';
15:s1:='F'
else str(st,s1)
end;
sh:=sh+s1;
ch1:=ost;
r:=r div 16;
if r<>0 then goto m2;
writeln;
writeln(ch,' -весятичная запись',sh:8,' -шестнадцатиричная запись');
end.
-----
Заранее спасибо.