как дописать исходник

@Юрий barabas · Регистрация: 14.03.2010

Author24 — интернет-сервис помощи студентам

люди помогите пожалуста: мне поставили сделать программу на языке turbo delphi Программа называется проект "перевод целых чисел" Вот её исходник:

Delphi

var
N, R: integer
Bin: string;
procedure TForm1.Button1Click(Sender: TObject);
begin
N := StrToInt(Edit1.Text);
Label1.Caption := '';
Bin := ' ';
while N>0 Do
begin
R:=N mod 2;
N:=N div 2;
Bin := FloatToStr(R) + Bin;
end;
Label1.Caption := Bin;
end;

дело в том что я программу дописал и она переводит число в двоичную, восьмеричную и шестнадцатиричнуюю систему:только вот проблема при переводе в шестнадцатеричную систему программа выдаёт ответ в цифрах например 1515 тоесть это в шестнадцатеричной системе означает FF
помогите или подскажите как дописать исходник или что туда добавить чтобы програма выдавала ответ в буквах а не в цифрах так как в шестнадцатеричной системе счисления цифре десять соответствует буква A и так далее
моя почта: mangust12@bk.ru

	14.03.2010, 12:01