Mail.ruПочтаМой МирОдноклассникиИгрыЗнакомстваНовостиПоискВсе проекты

Срочно нужна помощь!! Кто может перевести небольшую програмку из Паскаля в С++? ОЧЕНЬ НАДО!!!

Jean Havoc Профи (645), на голосовании 10 лет назад
Пожалуйста, пришлите переведенную версию на имэйл(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.
-----
Заранее спасибо.
Похожие вопросы
Также спрашивают