Курсовая работа: Создание средств наглядности с использованием программной среды Delphi и Microsoft Movie Maker

ShowMessage('Проверте правильность ввода данных!');

exit;

end;

B_Close:=false;

BitBtn3.Enabled:=false;

BitBtn4.Enabled:=true;

BitBtn2.Enabled:=false;

LabeledEdit1.Enabled:=false;

LabeledEdit2.Enabled:=false;

LabeledEdit3.Enabled:=false;

LabeledEdit4.Enabled:=false;

LabeledEdit5.Enabled:=false;

LabeledEdit6.Enabled:=false;

LabeledEdit7.Enabled:=false;

LabeledEdit8.Enabled:=false;

Form4.LabeledEdit4.Enabled:=false;

L:=StrToInt(LabeledEdit3.Text); //длинанити

fi0:=StrToFloat(LabeledEdit2.Text);//начальныйугол

d:=StrToFloat(LabeledEdit4.Text); //диаметршара

m:=StrToFloat(LabeledEdit5.Text); //массашарика

p:=StrToFloat(LabeledEdit6.Text); //плотнотьсреды

tend:=StrToFloat(LabeledEdit8.Text); //конечноевремя

w0:=StrToFloat(LabeledEdit7.Text); //начальнаяскороть

b:=StrToFloat(LabeledEdit1.Text); //вязкостьсреды

m0:=(p*PI*d*d*d)/6;

w:=w0;

t:=0;

fi0:=fi0*PI/180;

fi:=fi0;