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

ZM1:=1; end; end;

R0:=StrToInt(ComboBox3.Text);

ZR:=StrToInt(ComboBox3.Text);

ZR1:=StrToInt(ComboBox3.Text); if (R02100) then //захист від помилки begin if MessageDlg('Помилка граничних меж дат спостереження 1990-2100 рр.'

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

ComboBox3.ItemIndex:=0;

R0:=StrToInt(ComboBox3.Text);

ZR:=StrToInt(ComboBox3.Text);

ZR1:=StrToInt(ComboBox3.Text); end; end;

FI:=StrToFloat(Edit1.Text); if abs(FI)>90 then //захист від помилки begin if MessageDlg('Помилка введення географічної широти місця спостереження!'+#13+' Має бути в межах +-90 градусів', mtError,[mbOK],0)=mrOK then begin

Edit1.Text:='56';

FI:=StrToFloat(Edit1.Text); end; end;

LB:=StrToFloat(Edit2.Text); if LB

Скачали данный реферат: Пантелей, Fetinija, In'kov, Авдей, Кондратьев, Мирсиянов, Balashov.
Последние просмотренные рефераты на тему: реферат на тему, изложение на родине ломоносова, дороги реферат, сообщения вконтакте.



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

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