Поблема стала тепер такая, калькулятор зделал еле как. Теперь нужно добавить кнопку или же сразу две, чтоб одна переводила в 10-ую, а другая в 16-ую. Если так не получится, то есть код программы которая переводит из 10-й в 16-ую. А теперь как этот код вставить в кнопку для перевода и что нужно подправить.
Цитата:
{$APPTYPE CONSOLE}
uses
SysUtils;
const z:array[0..15] of char = (′0′,′1′,′2′,′3′,′4′,′5′,′6′,′7′,′8′,′9′,′A′,′B′,′ C′,′D′,′E′,′F′);
var x,a: integer;
s:string;
begin
readln(a);
readln(x);
s:=′′;
if a=0 then s:=′0′ else
if x<=16 then begin
while a>0 do begin
s:=z[(a mod x)]+s;
a := a div x;
end;
end;
write(s);
readln;
end.
|
Помогите люди добрые.