Разработка программы-советчика (стр. 2 из 2)

y:=x*z*0.01 ; //перевод в проценты

y:=Round(y); //округление результата

ify<1 theny:=1; //условие

Label1.Caption := 'ОТБЕРИТЕ ДЕТАЛЕЙ НА ПРОВЕРКУ-';

Label2.Caption := FloatToStr(y); //Метки 1 и2 показывают текст и У

end;

procedure TForm1.Button2Click(Sender: TObject); //процедуранажатиякнопкиРАСЧЁТ

varx,z,y,r,m,u:real; //объявляются переменные

begin

x:=StrToFloat(Edit1.Text); //Захватзначенияиз Edit1

z:=StrToInt(Edit2.Text); //Захват значения из Edit2

y:=x*z*0.01 ; //перевод в проценты

y:=Round(y); //округление результата

m:=y; //переменной m присваивается значение переменной y

r:=StrToFloat(Edit3.Text); //Захват значения из Edit3

u:=r/m*100 ; //перевод в проценты

Label2.Caption := FloatToStr(y); //Метке 2 присваевается числовое значение у

if u<1 then Label4.caption:='ПАРТИЯГОДНА ';

if u>=1 then Label4.caption:='ОТБЕРИТЕЕЩЁ 10 ПРОЦЕНТОВ,Т.Е'+ FloatToStr(round(z/100*10))+ ' ДЕТАЛЕЙ';

if u>=15 then Label4.caption:='ОТБЕРИТЕЕЩЁ 20 ПРОЦЕНТОВ,Т.Е'+ FloatToStr(round(z/100*20))+ ' ДЕТАЛЕЙ';

if u>20 then Label4.caption:='ПАРТИЯСРАЗУБРАКОВАНА';

//Условия и вывод в метках результата в виде информации

end;

procedureTForm1.Button3Click(Sender: TObject); //процедура нажатия кнопки ОКОНЧАТЕЛЬНЫЙ ВЫВОД

vark:real; //объявляются переменные

begin

k:=StrToFloat(Edit4.Text) ; ////Захватзначенияиз Edit3

k:=k*100/20 ;

k:=round(k); //округление результата

ifk>1 thenLabel5.Caption:='ПАРТИЯ НЕ ГОДНАЯ';

if k<1 then Label5.Caption:='ПАРТИЯГОДНАЯ';

end ; //Условия и вывод в метках результата в виде информации

procedure TForm1.Button4Click(Sender: TObject); //процедуранажатиякнопкиРАСЧЁТ

begin

Form1.close //Закрытие Формы(программы)

end;

end.

4. Вывод

Я разработал программу - советчик ОТК, которая позволяет регистрировать значения измерений, оценивать процесс и предлагать варианты приемки на основе результатов измерений

Я научился пользоваться компонентом Edit,Label,Button а также постройкой алгоритмов.

Приложения