Лабораторная работа 1 по дисциплине Информатика на тему- Программа для перевода систем счисл
Работа добавлена на сайт samzan.net:
МИНЕСТЕРСТВО ОБРАЗОВАНИЯ И НАУКИ
РОССИЙСКОЙ ФЕДЕРАЦИИ
Федеральное государственное бюджетное образовательное
учреждение высшего профессионального образования
«Юго-Западный государственный университет»
Кафедра информационных систем и технологий
Лабораторная работа №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 системы счисления.
2. RO-R7- 00 ~ в регистре действительное число любое конечное число не равное нулю ненормализованное число сч
3. Господин из СанФранциско- Вечные проблемы человечества в рассказе И
4. статьям расходов Статьи расходов ГОД
5. восточной Европы
6. Тема- Основы судебномедицинскойтравматологии Травмотология это раздел о повреждениях их диагностике леч
7. Реферат- Личностный фактор в системе теоретической педагогики
8. на тему- Оренбург
9. Ракетный удар по Алтаю
10. ВВЕДЕНИЕ [4] ЧТО ТАКОЕ ЯЗЫК [5] ЗАЧЕМ МЫ ИЗУЧАЕМ ЯЗЫКИПОЧЕМУ МЫ ЯЗЫКИ ИЗУЧАЕМКОГДА НАМ ИХ ИЗУЧАТ
11. Техническая эксплуатация судовых турбинных установок
12. мес Вырастут средними
13. то время и в XVI в распространяясь за пределами центральных и портовых областей
14. С обладает рядом неоспоримых преимуществ благодаря которым эти столы можно с уверенностью назвать самыми
15. тесный мирокобьясняется темчто компании существуют в рамках своего тесного замкнутого мираих топменедж
16. Капитанская дочка хорошо видно как это происходит в жизни и к каким приводит результатам
17. Контрольная работа по дисциплине Антикризисное управление Вариант 3 Выполнила-
18. Контрольная работа- Механизм мотивации труда работников предприятий отечественного АПК
19. Выход экскрементов определяют несколькими способами
20. тема- когда мать бросает ребёнка