Если у вас возникли сложности с курсовой, контрольной, дипломной, рефератом, отчетом по практике, научно-исследовательской и любой другой работой - мы готовы помочь.
Предоплата всего
Подписываем
МИНЕСТЕРСТВО ОБРАЗОВАНИЯ И НАУКИ
РОССИЙСКОЙ ФЕДЕРАЦИИ
Федеральное государственное бюджетное образовательное
учреждение высшего профессионального образования
«Юго-Западный государственный университет»
Кафедра информационных систем и технологий
Лабораторная работа №1
по дисциплине «Информатика» на тему:
«Программа для перевода систем счисления»
Выполнил: ст.гр. ИБ-41
Романов А. Н.
Проверил: с.т. преподователь
Ключникова О.Е.
Курск 2014
Цель работы: написать программу для перевода чисел из 10 системы счисления в 2, 8 и 16 системы счисления
Оборудование: компьютер с установленными программой Delphi
Исходный код программы:
Delphi:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Edit4: TEdit;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
const digit:string[16]='0123456789ABCDEF';
var
Form1: TForm1;
x:integer;
implementation
function FromDec(n,r:integer):string;
var s:String;
begin
s:='0';
repeat
s:=digit[(n mod r)+1]+s;
n:=n div r;
until n=0;
FromDec:=s;
end;
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
x:=strtoint(Edit1.Text);
Edit2.Text:=FromDec(x,2);
Edit3.Text:=FromDec(x,8);
Edit4.Text:=FromDec(x,16);
end;
end.
Вывод: написал программу для перевода числа из 10 системы счисления в 2, 8 и 16 системы счисления.