Предыдущая страница реферата | 3  4  5  6  7  8  9  10  11  12  13 | Следующая страница реферата

PLN,D0,M0,R0,i,DR,n : integer;
FI,LB,k,S0,P0,RM, ED,EG,ER,ER0,ESD,EH,ER1,EGD,
AD,AG,AR,x,AR0,ASD,AH,AR1,AGD, AAD1,ARS,AZE,AZP,
ABD,AV,AYD,AYDS,AAD0,AAD,AA,AAM,AAS,AID1,AID2,AID,AB,ABM,AF,
AT1,ATK,ATKL,
ATKLM,AP,AT2,AT3,ATG,ATS,ATSL,ATSLM,ATZ,ATZL,ATZLM,AZ,AAH,ABG,ATKLH,
ATSLH,ATZLH :real; implementation

{$R *.dfm}

procedure TForm2.Button4Click(Sender: TObject); begin
MessageDlg('Інформація! Деякі географічні координати:'+#13+'Чортків
FI=49.03, LB=25.83'+#13+'Тернопіль FI=49.6, LB=25.6'+#13+'Львів FI=49.8,
LB=24'+#13+'Київ FI=50.5, LB=30.5'+#13+'Лондон(Грінвіч) FI=51.6, LB=0'
,mtInformation,[mbOK],0); end;

procedure TForm2.Button3Click(Sender: TObject); begin close; end;

procedure TForm2.RadioButton1Click(Sender: TObject); begin
PLN:=1;ZPL:=1; ZPL1:=1;
Image1.Picture.LoadFromFile('mercury.jpg'); end;

------------------------------------------------------

procedure TForm2.RadioButton9Click(Sender: TObject); begin
PLN:=9; ZPL:=9; ZPL1:=9;
Image1.Picture.LoadFromFile('pluton.jpg'); end;

procedure TForm2.FormCreate(Sender: TObject); begin
Image1.Picture.LoadFromFile('star1.jpg');
Image2.Picture.LoadFromFile('sun.bmp');
ComboBox1.ItemIndex:=8;
ComboBox2.ItemIndex:=0;
ComboBox3.ItemIndex:=0;
Label4.Visible:=false;
-------------------
Label46.Visible:=false;
Button2.Enabled:=false; end;

procedure TForm2.Button1Click(Sender: TObject); begin
Button2.Enabled:=false;
Label4.Visible:=false;
---------------------
Label46.Visible:=false; if PLN=0 then //захист від помилки begin if MessageDlg(' Ви забули вибрати планету!'+#13+'По замовчуванню буде вибрана Земля.'

,mtError,[mbOK],0)=mrOK then begin

RadioButton3.Checked:=true;

PLN:=3;

Image1.Picture.LoadFromFile('eath.jpg'); end; end;
D0:=StrToInt(ComboBox1.Text);
ZD:=StrToInt(ComboBox1.Text);
ZD1:=StrToInt(ComboBox1.Text); if (D031) then //захист від дурня begin if MessageDlg('Помилка введення номера дня місяця!'

,mtError,[mbOK],0)=mrOK then begin

ComboBox1.ItemIndex:=8;

D0:=StrToInt(ComboBox1.Text);

ZD:=StrToInt(ComboBox1.Text);

ZD1:=StrToInt(ComboBox1.Text); end; end; if ComboBox2.ItemIndex=0 then begin

M0:=1;ZM:=1; ZM1:=1; end;

-----------------------------------

if ComboBox2.ItemIndex=11 then begin

M0:=12;ZM:=12; ZM1:=12; end; if M0=0 then //захист від помилки begin if MessageDlg('Введення значення місяця цифрою недопустиме!', mtError,[mbOK],0)=mrOK then begin

ComboBox2.ItemIndex:=0;

M0:=1;

ZM:=1;

Рекомендуем скачать другие рефераты по теме: 6 класс контрольные работы, реферат на тему життя.



Предыдущая страница реферата | 3  4  5  6  7  8  9  10  11  12  13 | Следующая страница реферата

Поделитесь этой записью или добавьте в закладки