Автор: Пользователь скрыл имя, 27 Сентября 2011 в 15:59, реферат
Delphi — язык программирования, который используется в одноимённой среде разработки. Сначала язык назывался ObjectPascal.Начиная со среды разработки Delphi 7, в официальных документах Borland стала использовать название Delphi для обозначения языка ObjectPascal.
Delphi — результат развития языка Турбо Паскаль, который, в свою очередь, развился из языка Паскаль. Паскаль был полностью процедурным языком, Турбо Паскаль, начиная с версии 5.5, добавил в Паскаль объектно-ориентированные свойства, а в ObjectPascal — динамическую идентификацию типа данных с возможностью доступа к метаданным классов (то есть к описанию классов и их членов) в компилируемом коде, также называемом интроспекцией — данная технология получила обозначение RTTI. Так как все классы наследуют функции базового класса TObject, то любой указатель на объект можно преобразовать к нему, после чего воспользоваться методом ClassType и функцией TypeInfo, которые и обеспечат интроспекцию.
Содержание……………………………………………………2
Введение ………………………………………………………3
О калькуляторе и системе счисления………………………...5
Постановка задачи…………………………………………...10
Практическая часть, исходные данные…...………………...11
Список используемой литературы………………………….25
else if (numeralSystem='hex') then
Edit1.Text:=IntToHex(floor(
else if (numeralSystem='bin') then
Edit1.Text:=IntToBin(Floor(
else if (numeralSystem='oct') then
Edit1.Text:=IntToOct(Floor(
Memo1.Text:=Memo1.Text+
end;
// code of 1/x
procedure TForm1.BitBtn22Click(Sender: TObject);
var x:real;
begin
first:=strtofloat(edit1.text);
x:=1/first;
answer:=x;
edit1.Text:=floattostr(answer)
Memo1.Text:=Memo1.Text+'1/'+
end;
//function of x^2
procedure TForm1.BitBtn27Click(Sender: TObject);
begin
First:=StrToFloat(Edit1.Text);
Answer:=First * First;
Edit1.Text:=FloatToStr(Answer)
Memo1.Text:=Memo1.Text+
end;
// memo visible
procedure TForm1.BitBtn30Click(Sender: TObject);
begin
Memo1.Visible:=false;
Memo1.Lines.Add('');
memo1.Visible:=true;
end;
// clicking button hex
procedure TForm1.RadioButton1Click(
begin
numeralSystem:='hex';
BitBtn22.Enabled:=false;
BitBtn24.Enabled:=false;
BitBtn26.Enabled:=false;
BitBtn27.Enabled:=false;
BitBtn28.Enabled:=false;
end;
end.
Следовательно, программа будет иметь вид: