|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
|
#1
|
||||
|
||||
Помогите с 10-й и 16-й системой счисления!
Друзья нужна помощь, я пишу лабораторную работу, создание калькулятора. Калькулятор почти готов, но нужно еще добавить кнопку чтоб он переводила из десятичной системы счисления в шестнадцатиричную. Напишите пожалуста код пожалуста.
|
#2
|
||||
|
||||
Поблема стала тепер такая, калькулятор зделал еле как. Теперь нужно добавить кнопку или же сразу две, чтоб одна переводила в 10-ую, а другая в 16-ую. Если так не получится, то есть код программы которая переводит из 10-й в 16-ую. А теперь как этот код вставить в кнопку для перевода и что нужно подправить.
Цитата:
|
#3
|
||||
|
||||
Написал программу перевода из 10 в 16 на паскале, открыл Делпхи , скопировал код для консольного режима а программа не ззапускается, в чем дело. Помогите. Как сделать прогу мою на Делпхи в консольном режиме и что надо подправить.
Цитата:
|
#4
|
||||
|
||||
Код:
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) EditHex: TEdit; EditDec: TEdit; procedure FormCreate(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.FormCreate(Sender: TObject); begin EditHex.Text:=IntToHex(1234567890123456789, 16); EditDec.Text:=IntToStr(StrToInt64('$'+EditHex.Text)); end; end. Пишу программы за еду. __________________ |
#5
|
||||
|
||||
Извините меня NumLock, ваша програма почемута ругается. Особенно на два слова EditHex, EditDec. Я бы хотел уточнить это програ под DOS или нет то откуда мне взять EditHex, EditDec или их надо переименовать в Edit1 и Edit 2. На каких они вкладках находятся? Что то я отупел в конец
|
#6
|
||||
|
||||
это едиты на форме:
Код:
type TForm1 = class(TForm) EditHex: TEdit; EditDec: TEdit; procedure FormCreate(Sender: TObject); private { Private declarations } public { Public declarations } end; Пишу программы за еду. __________________ |
#7
|
||||
|
||||
Помогите решить уравнение
Y+4/Y-4=X решите очень нужно
|
#8
|
||||
|
||||
Решаем:
Y = 1 X = 1 ... Y = 2 X = 0 ... Y = 10 X = 6.4 и т.д. Je venus de nulle part 55.026263 с.ш., 73.397636 в.д. |