|
#1
|
|||
|
|||
Discount
Доброго времени суток всем. Делаю программу по заданию:
Цитата:
Но не пропускает в одном месте не пойму почему. Код:
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Edit1: TEdit; Edit2: TEdit; Edit3: TEdit; Edit4: TEdit; Button1: TButton; Label1: TLabel; Label2: TLabel; Label3: TLabel; Label4: TLabel; Label5: TLabel; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); var cenamin:real; skidka:real; Time:Real; Day:integer; Summa:real; begin Time:=StrToFloat(Edit1.Text) ; Day:=StrToInt(Edit2.Text); skidka:=StrToInt(Edit3.Text); cenamin:=StrToInt(Edit4.Text); Summa:= DAY*Time*skidka*cenamin; if (Day=6)or (Day=7) then Summa:=SUMMA*(1-Discount); label5.caption:='K оплате ' + FloatToStr(Summa) + 'руб.'; end; end. |
#2
|
||||
|
||||
идентификатор Discount не объявлен
Пишу программы за еду. __________________ |
Этот пользователь сказал Спасибо NumLock за это полезное сообщение: | ||
ApxaHGe1 (13.01.2012)
|