Отправляет email-рассылки с помощью сервиса Sendsay

Delphi от простого к сложному.

Рассылка закрыта

При закрытии подписчики были переданы в рассылку "Программирование в Delphi" на которую и рекомендуем вам подписаться.

Вы можете найти рассылки сходной тематики в Каталоге рассылок.

  Апрель 2006   →
 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
16.04.2006
11:49:24
20:06:13
17
18
19
20
21
22
23
24
25
26
27
28
29
30
Автор
Виктор2010

Статистика

673 подписчиков
+5 за неделю
←   Все выпуски   →

Delphi от простого к сложному. >>> Действительный тип данных


Доброго времени суток, подписчик!

 Занятие 5.

èДействительный тип данных.

  1)      Действительный тип данных – дробные числа.

Значения данного типа могут быть записаны:

 1 Ввиде числа с десятичной точкой

 2 Ввиде числа с плавающей точкой, с указанием порядка после символа E.

E – Означает, что за ним следует число указывающее что левую часть надо умножить на 10 в соответствующей степени.

Пример:

 

var

a,b,c: Real;

…

a:= -5.3E-4;

b:= -5,3*10^-4;

c:= -0,00053;

{ a, b, c – Все эти переменные будут содержать одинаковые значения, несмотря на различную форму записи.  }

 

Теперь давайте напишем небольшую программу:

Расположите на форме компонент типа TButton и ниже компонент типа TEdit.

Сделайте двойной клик по Button1 и в обработчике события TForm1.Button1Click

Объявите локальную переменную B – действительного типа,

Выполните преобразование типов и отобразите полученное значение в Edit1.

Для этого в код обработчика события впишите следующий код:

B:= -5.3E-4;

Edit1.Text:=FloatToStr(B);

 

Теперь выполните приложение: щелкнув по кнопке Run или нажмите F9.

Щелкните по кнопке Button1  и убедитесь, что в поле Edit1 отобразилось значение

равным: -0,00053.

Теперь можете закрыть приложение.

Вот приважу весь получившийся код:

 

unit Unit1;

interface

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, StdCtrls;

type

  TForm1 = class(TForm)

    Button1: TButton;

    Edit1: TEdit;

    procedure Button1Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

var

B:Real;

begin

B:= -5.3E-4;

Edit1.Text:=FloatToStr(B);

end;

end.

 

  В следующем занятии: èРазберем более подробно другие типы данных.

Copyright@2006 Sergey, E-mail:2006delphi@rambler.ru
В избранное