|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
проверка условий(3 штуки)
дана такая задача
По вводимому возрасту и полу (ж/м) определить сколько человек находиться на пенсии. Учесть вредный стаж (если он есть), считая, что человек уходит на пенсию, если проработал 25 лет. решил ее таким путем Код:
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Buttons, StdCtrls; type TForm1 = class(TForm) Label1: TLabel; Label2: TLabel; Label3: TLabel; Label4: TLabel; RadioButton1: TRadioButton; RadioButton2: TRadioButton; CheckBox1: TCheckBox; Edit1: TEdit; Edit2: TEdit; SpeedButton1: TSpeedButton; procedure SpeedButton1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; a,b,x,y : real; implementation {$R *.dfm} procedure TForm1.SpeedButton1Click(Sender: TObject); begin a:=StrToFloat(form1.Edit1.Text); b:=a-x; begin; if Form1.RadioButton2.Checked then x:=60; y:=10; if Form1.RadioButton1.Checked then x:=55; y:=5; end; if CheckBox1.Checked then b:=a-x+y; Edit2.Text:=FloatTostr(b); end; end. |
#2
|
||||
|
||||
Цитата:
Жизнь такова какова она есть и больше никакова. Помогаю за спасибо. |
#3
|
|||
|
|||
ем.. супер, переместил b:=a-x; после первой процедуры - стало нормально... а еще вопросик можно? - как сделать так чтобы при нулевом или отрицательном значении b(годов на пенсии) - в строке edit2 писался текст "слишком молод" - или что нить еще подобное?
|