[SkiLLer]

Вот код. прогу взял из одного обучающего учебника.Програмка очень простая, но я чего-то не могу понять.

Код:

unit Phone_u;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Variants;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
const

PAY = 0.15; // цена одной минуты разговора 0.15 рубля
DISCOUNT = 0.2; // скидка 20 процентов

var

Time:Real; // длительность разговора
Day:integer; // день недели
Summa:real; // стоимость разговора

begin
// получить исходные данные 

Time:=StrToFloat(Editl.Text) ;

Day:=StrToInt(Edit2.Text);

// Вычислить стоимость разговора

Summa:= PAY*Time;

// Если день суббота или воскресенье, то уменьшить стоимость на величину скидки

if (Day = 6) OR (Day = 7)

then Summa:=Summa*(1 - DISCOUNT);

// вывод результата вычисления

label3.caption:='K оплате '

+ FloatToStr(Summa) + 'руб.';
end;

end.

Admin: Пользуемся тегами!