Разработать калькулятор перевода десятичного числа в шестнадцатеричную систему счисления

@Елена Погодина · Регистрация: 23.10.2010

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

Разработать калькулятор перевода десятичного числа в шестнадцатеричную систему счисления. напишите пожалуйста процедуру для перевода в шестнадцатеричную систему счисления

@DLev · 25.12.2010, 20:35

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
var
 mas : array [0..1000] of integer;
 q,q1 : integer;
 e,e2: longint;
 step: longint;
 k1, k2 : integer;
 x:integer;
begin
writeln ('Vvedite osnovanie sistemi');
readln(k1);
writeln('Vvedite kolichestvo simvolov');
readln(x);
writeln('Vvodite');
 
for q:= 1 to x do
    begin
    readln(mas[x-q]);
// proverka
    if (mas[x-q] >= k1) or (mas[x-q] < 0) then
       begin
       writeln('vveden nevozmojnii element ',mas[x-q],'; max = ', k1-1);
       readln;
       exit;
       end;
//
    end;
 
writeln('Vvedite osnovanie sistemi poluchaemoi');
readln (k2);
step:=1;
e:=0;
 
for q:=0 to x-1 do
    begin
    e2:=e;
    e:=e + mas[q] * step;
// proverka
    if e2>e then
       begin
         writeln ('vihod za predeli longint');
         writeln('(',e,')');
         readln;
         exit;
       end;
//
    step:=step*k1;
    end;
q:=0;
 
while e > 0 do
     begin
     mas[q]:=e mod k2;
     e:=e div k2;
     q:=q+1;
     end;
 
writeln ('otvet');
for q1:=q-1 downto 0 do
    write(mas[q1],' ');
readln;
end.

из любой в любую

@Андрей Х. · 25.12.2010, 20:35

Delphi
1
2
3
4
5
6
const HEX:array[0..15] of char = '0123456789ABCDEF';
 
function Byte2Hex (const thebyte: byte): string;
begin
Result :=  HEX [thebyte SHR 4] + HEX [thebyte and $0f];
end;

upd: Опоздал

@Елена Погодина · 25.12.2010, 20:51 **[ТС]**

А как весь код будут выглядеть а то что то смотрю и вообще не врубаюсь,я создала форму позже код скину кот у меня есть на данный момент

@DLev · 25.12.2010, 20:56

мой код просто под консольное приложение. file -> new -> other -> console application
и туда копируешь, запускаешь и все

@Елена Погодина · 25.12.2010, 21:10 **[ТС]**

Сообщение от Елена Погодина

А как весь код будут выглядеть а то что то смотрю и вообще не врубаюсь,я создала форму позже код скину кот у меня есть на данный момент

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Borland.Vcl.StdCtrls, System.ComponentModel;
 
type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    Button5: TButton;
    Button6: TButton;
    Button7: TButton;
    Button8: TButton;
    Button9: TButton;
    Button10: TButton;
    Button11: TButton;
    Edit1: TEdit;
    Button12: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure Button6Click(Sender: TObject);
    procedure Button7Click(Sender: TObject);
    procedure Button8Click(Sender: TObject);
    procedure Button9Click(Sender: TObject);
    procedure Button10Click(Sender: TObject);
    procedure Button11Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.nfm}
 
procedure TForm1.Button1Click(Sender: TObject);
begin
Edit1.Text:='1'
end;
 
procedure TForm1.Button2Click(Sender: TObject);
begin
Edit1.Text:='2'
end;
 
procedure TForm1.Button3Click(Sender: TObject);
begin
Edit1.Text:='3'
end;
 
procedure TForm1.Button4Click(Sender: TObject);
begin
Edit1.Text:='4'
end;
 
procedure TForm1.Button5Click(Sender: TObject);
begin
Edit1.Text:='5'
end;
 
procedure TForm1.Button6Click(Sender: TObject);
begin
Edit1.Text:='6'
end;
 
procedure TForm1.Button7Click(Sender: TObject);
begin
Edit1.Text:='7'
end;
 
procedure TForm1.Button8Click(Sender: TObject);
begin
Edit1.Text:='8'
end;
 
procedure TForm1.Button9Click(Sender: TObject);
begin
Edit1.Text:='9'
end;
 
procedure TForm1.Button10Click(Sender: TObject);
begin
Edit1.Text:='0'
end;
 
procedure TForm1.Button11Click(Sender: TObject);
begin
Edit1.Text:=','
end;
 
end.

КУДА НУЖНО ВСТАВИТЬ ВАШУ ПРОЦЕДУРУ

Добавлено через 3 минуты

Сообщение от DLev

мой код просто под консольное приложение. file -> new -> other -> console application
и туда копируешь, запускаешь и все

Не могу найти console application

@DLev · 25.12.2010, 21:23

см на скрине

сорри за белое пятно

@Елена Погодина · 25.12.2010, 21:41 **[ТС]**

Сообщение от DLev

сорри за белое пятно

не работает

@DLev · 25.12.2010, 22:00

ты наверняка стерла

Delphi
1
2
3
4
5
6
program Project2;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;

это должно остаться.
сначала это, потом моя прога, она не может не работать

@Елена Погодина · 25.12.2010, 22:52 **[ТС]**

Сообщение от DLev

ты наверняка стерла

Delphi
1
2
3
4
5
6
program Project2;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;

это должно остаться.
сначала это, потом моя прога, она не может не работать

Это конечно хорошо она работает,но мне нужен калькулятор с формой

Добавлено через 42 минуты

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Borland.Vcl.StdCtrls, System.ComponentModel;
 
type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    Button5: TButton;
    Button6: TButton;
    Button7: TButton;
    Button8: TButton;
    Button9: TButton;
    Button10: TButton;
    Button11: TButton;
    Edit1: TEdit;
    Button12: TButton;
    Button13: TButton;
    procedure Button12Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure Button6Click(Sender: TObject);
    procedure Button7Click(Sender: TObject);
    procedure Button8Click(Sender: TObject);
    procedure Button9Click(Sender: TObject);
    procedure Button10Click(Sender: TObject);
    procedure Button11Click(Sender: TObject);
    procedure Button13Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.nfm}
 
procedure TForm1.Button12Click(Sender: TObject);
const HEX:array[0..15] of char = '0123456789ABCDEF';
function Byte2Hex (const thebyte: byte): string;
begin
Result :=  HEX [thebyte SHR 4] + HEX [thebyte and $0f];
edit1.Text:=Result;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
Edit1.Text:='1';
end;
 
procedure TForm1.Button2Click(Sender: TObject);
begin
 Edit1.Text:='2';
end;
 
procedure TForm1.Button3Click(Sender: TObject);
begin
Edit1.Text:='3';
end;
 
procedure TForm1.Button4Click(Sender: TObject);
begin
Edit1.Text:='4';
end;
 
procedure TForm1.Button5Click(Sender: TObject);
begin
Edit1.Text:='5';
end;
 
procedure TForm1.Button6Click(Sender: TObject);
begin
Edit1.Text:='6';
end;
 
procedure TForm1.Button7Click(Sender: TObject);
begin
Edit1.Text:='7';
end;
 
procedure TForm1.Button8Click(Sender: TObject);
begin
 Edit1.Text:='8';
end;
 
procedure TForm1.Button9Click(Sender: TObject);
begin
Edit1.Text:='9';
end;
 
procedure TForm1.Button10Click(Sender: TObject);
begin
Edit1.Text:='0';
end;
 
procedure TForm1.Button11Click(Sender: TObject);
begin
Edit1.Text:=',';
end;
 
procedure TForm1.Button13Click(Sender: TObject);
begin
Edit1.Text:='';
end;
 
end.

Помогите пожалуйста не могу найти ошибку!!!

@op · 25.12.2010, 23:41

/////

@op · 26.12.2010, 00:00

или по вашему варианту с кучей кнопок.(если я правильно понял)

Новые блоги и статьи Все статьи Все блоги /
Мастер-класс по микросервисам на Node.js Reangularity 21.06.2025 Node. js стал одной из самых популярных платформ для микросервисной архитектуры не случайно. Его неблокирующая однопоточная модель и событийно-ориентированный подход делают его идеальным для. . .	Управление Arduino из WPF приложения Wired 21.06.2025 Зачем вообще связывать Arduino с WPF-приложением? Казалось бы, у Arduino есть собственная среда разработки, своя экосистема, свои способы управления. Однако при создании серьезных проектов. . .	Звёздная пыль kumehtar 20.06.2025 Я просто это себе представляю: как создавался этот мир. Как энергия слипалась в маленькие частички. Как они собирались в первые звёзды, как во вселенной впервые появился Свет. Как эти звёзды. . .	Создание нейросети с PyTorch AI_Generated 19.06.2025 Ключевое преимущество PyTorch — его питоновская натура. В отличие от TensorFlow, который изначально был построен как статический вычислительный граф, PyTorch предлагает динамический подход. Это. . .	JWT аутентификация в ASP.NET Core UnmanagedCoder 18.06.2025 Разрабатывая веб-приложения, я постоянно сталкиваюсь с дилеммой: как обеспечить надежную аутентификацию пользователей без ущерба для производительности и масштабируемости? Классические подходы на. . .
Краткий курс по С# aaLeXAA 18.06.2025 Здесь вы найдете все необходимые функции чтоб написать програму на C# Задание 1: КЛАСС FORM 1 public partial class Form1 : Form { Spisok listin = new Spisok(); . . .	50 самых полезных примеров кода Python для частых задач py-thonny 17.06.2025 Эффективность работы разработчика часто измеряется не количеством написаных строк, а скоростью решения задач. Готовые сниппеты значительно ускоряют разработку, помогают избежать типичных ошибок и. . .	C# и продвинутые приемы работы с БД stackOverflow 17.06.2025 Каждый . NET разработчик рано или поздно сталкивается с ситуацией, когда привычные методы работы с базами данных превращаются в источник бессонных ночей. Я сам неоднократно попадал в такие ситуации,. . .	Angular: Вопросы и ответы на собеседовании Reangularity 15.06.2025 Готовишься к техническому интервью по Angular? Я собрал самые распространенные вопросы, с которыми сталкиваются разработчики на собеседованиях в этом году. От базовых концепций до продвинутых. . .	Архитектура Onion в ASP.NET Core MVC stackOverflow 15.06.2025 Что такое эта "луковая" архитектура? Термин предложил Джеффри Палермо (Jeffrey Palermo) в 2008 году, и с тех пор подход только набирал обороты. Суть проста - представьте себе лук с его. . .

@Елена Погодина 4 / 4 / 1 Регистрация: 23.10.2010 Сообщений: 161

	Разработать калькулятор перевода десятичного числа в шестнадцатеричную систему счисления 25.12.2010, 20:10. Показов 4633. Ответов 11 Метки нет (Все метки) Разработать калькулятор перевода десятичного числа в шестнадцатеричную систему счисления. напишите пожалуйста процедуру для перевода в шестнадцатеричную систему счисления 0

@Елена Погодина 4 / 4 / 1 Регистрация: 23.10.2010 Сообщений: 161
	25.12.2010, 20:51 [ТС]
	А как весь код будут выглядеть а то что то смотрю и вообще не врубаюсь,я создала форму позже код скину кот у меня есть на данный момент 0

@DLev 32 / 32 / 7 Регистрация: 24.12.2009 Сообщений: 71
	25.12.2010, 20:56
	мой код просто под консольное приложение. file -> new -> other -> console application и туда копируешь, запускаешь и все 1

@DLev 32 / 32 / 7 Регистрация: 24.12.2009 Сообщений: 71
	25.12.2010, 21:23
	см на скрине сорри за белое пятно Миниатюры 0