Изучение методики перевода из одной системы исчисления в другую и разработка программы для этой операц
Write('? '); Promeg:=0; Kol:=0; Otv:=''; { подготовительные действия }
Repeat { цикл для ввода числа }
klav:=ReadKey; { чтение клавиши }
if UpCase(Klav) in Keys then begin { если клавиша допустимая }
kol:=kol+1; { количество символов в исходном числе }
a[kol]:=UpCase(Klav); { запоминание введенного символа }
Write (a[kol]); { вывод нажатого символа }
end;
if (Ord(Klav)=8) and (Kol>0) then begin { если клавиша ЗАБОЙ }
kol:=kol-1;
GoToXY(WhereX-1,WhereY);
ClrEol;
end;
Until (Ord(klav)=13) or (Ord(klav)=27); { пока не нажата ВВОД или ESC }
if Ord(klav)=13 then begin { если клавиша ВВОД - начало обработки результата }
for i:=1 to kol do begin { перевода введенного числа в десятеричную систему}
if a[i]
else Znach:=Ord(a[i])-55;
promeg:=promeg+Znach*Stepen(isx,kol-i);
end;
i:=0;
Repeat { определение максимального порядка результата }
i:=i+1;
Chast:=Trunc(Promeg/Stepen(Kon,i));
Until
Chast For
j:=i downto 0 do begin { перевод
в нужную
систему
исчисления
}
Help:=Trunc(Promeg/Stepen(Kon,j)); If
Help>9 Then Pom:=Chr(55+Help) Else
Str(Help,Pom); Otv:=Otv+Pom;
Promeg:=Promeg-Help*Stepen(Kon,j); end; WriteLn('
= ',Otv); { вывод
результата
} end;
{ конец
обработки
результата
} Until
Ord(Klav)=27; { если
нажата ESC то выход
в основное меню
} Zast;
{ вывод
заставки } end; Until
(Ord(Klav)=13) and (y=7); { если
в меню нажали
ESC или ВВОД на
выходе } ClrScr
{
очистить экран
} end.