´elisk´ Воскресенье, 24.11.2024, 13:37:04
Здраствуйте Гость | RSS


Меню сайта
Категории раздела
Программы [20]
Книги [27]
Книги по HTML [2]
Книги по HTML
Поставьте оценку
Оцените мой сайт
Всего ответов: 38
INFOBAR

Статистика

Онлайн всего: 1
Гостей: 1
Пользователей: 0
Форма входа

free counters

Информеры


Праздники сегодня

Главная » Файлы » Программы

Перевод 10-го числа
[ Скачать с сервера (175.0 Kb) ] 23.03.2011, 20:06:24
Перевод 10-го числа  в другие системы счисления

Категория: Программы | Добавил: Rain
Просмотров: 615 | Загрузок: 97 | Комментарии: 2 | Рейтинг: 0.0/0
Всего комментариев: 2
2 Rain  
0
//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
AnsiString numb1 = "";
int n; // исходное число
int osn; // основание системы счисления
void Perevod(int n, int osn);
char st[17]; // представление числа в заданной
// системе счисления
AnsiString Otvet;
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{

}
//---------------------------------------------------------------------------
void Perevod(int n, int osn) {

int cn; // копия исходного числа
int r; // остаток от деления числа

int i;

// cn = n;
st[16] = '\0';
i = 15;
do {
r = n % osn; //
n = n / osn;
st[i--] = r + 48;
} while(n > 0);
i++;
int j=0;
while(st[i])
st[j++]=st[i++];
st[j]='\0';
st[i--] = ' ';
Otvet = st;

}
void __fastcall TForm1::Button1Click(TObject *Sender)
{
n = StrToInt(Edit1->Text);
//osn = StrToInt(Edit2->Text);
Perevod(n, 2);
Label1->Caption = Otvet;
Perevod(n, 3);
Label3->Caption = Otvet;
Perevod(n, 4);
Label4->Caption = Otvet;
Perevod(n, 5);
Label5->Caption = Otvet;
Perevod(n, 6);
Label6->Caption = Otvet;
Perevod(n, 7);
Label7->Caption = Otvet;
Perevod(n, 8);
Label8->Caption = Otvet;
Perevod(n, 9);
Label9->Caption = Otvet;
Label21->Caption = IntToHex(n,5);

}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
Edit1->Text = "";
Label1->Caption = "";

Label3->Caption = "";

Label4->Caption = "";

Label5->Caption = "";

Label6->Caption = "";

Label7->Caption = "";

Label8->Caption = "";

Label9->Caption = "";

Label21->Caption = "";
Edit1->SetFocus();
}
//---------------------------------------------------------------------------

void __fastcall TForm1::FormActivate(TObject *Sender)
{
Edit1->SetFocus();
}
//---------------------------------------------------------------------------

1 Бахытгуль  
0
дайте пожалуйста на эту программу листинг, код программы

Имя *:
Email *:
Код *:
Поиск
Друзья сайта
  • Официальный блог
  • Сообщество uCoz
  • FAQ по системе
  • Инструкции для uCoz
  • Copyright I.E.G. © 2024Бесплатный конструктор сайтов - uCoz