Процедура_1 для кнопки «Обчислити»

procedure TForm1.Button1Click(Sender: TObject);

var Form1: TForm1;

a,b,c,d,x,x1,x2:real;

kor, kor1, kor2:string;

begin

a:=StrToFloat(Edit1.Text);

b:=StrToFloat(Edit2.Text);

c:=StrToFloat(Edit3.Text);

d:=b*b-4*a*c;

if d<0

then ShowMessage('Дискримінант від"ємний. Коренів немає.')

else if d=0

then begin

x:=-b/(2*a);

kor:=FloattoStr(x);

Label5.Caption:='Один корінь: x1= '+kor

end

else begin

x1:=(-b-sqrt(d))/(2*a);

x2:=(-b+sqrt(d))/(2*a);

kor1:=FloatToStr(x1);

kor2:=FloatToStr(x2);

Label5.Caption:='Два корені:'+ chr(10)+ 'x1=' +kor1+chr(10)+ 'x2='+kor2;

end;

end;

Процедура_2 для кнопки «Інше рівняння»

procedure TForm1.Button2Click(Sender: TObject);

begin

Edit1.Text:='';

Edit2.Text:='';

Edit3.Text:='';

Label5.Caption:='';

end;

1. Збережіть проект у папці Проект4_1.

2. Запустіть проект та перевірте правильність його виконання.

3. Закрийте проект.

Завдання 2

АЗС реалізує 4 марки пального з відповідними цінами:

А-95 – 8,82 грн.; А-92 – 8,43; А-80 – 7,95 грн.; ДП – 8,23 грн.

Скласти програму для автоматизації процесу нарахування коштів за пальне.

Вікно програми зображено на рисунку 10.

Рис. 10 Рис. 11

Порядок виконання

4. У папці ЛР-Delphi, що знаходиться у власній папці, створіть папку Проект4_2.

5. Відкрийте Delphi 7.

6. На заготовку форми, що з’явилася на екрані після запуску Delphi 7, помістіть три написи (Label), чотири перемикачі (RadioButton), поле редагування (Edit), одну стандартну кнопку (Button) відповідно до рисунка 11.

7. Встановіть значення властивостей компонентів згідно даних таблиці 3.

Таблиця 3

Компонент	Вкладка вікна «Інспектор об’єктів» (Object Inspector)	Властивість (Properties) /Подія (Events)	Значення властивості/ обробка події (тіло процедури обробки події)
Form1	Properties	Caption	АЗС
		Color	clInactiveCaptionText
		Height	270
		Width	450
Label1	Properties	Caption	Оберіть марку
		Font	<Шрифт, розмір, колір за вибором>
Label2	Properties	Caption	Кількість літрів
		Font	<Шрифт, розмір, колір за вибором>
Label3	Properties	Caption	<Чисте поле>
		Font	<Шрифт, розмір, колір за вибором>
RadioButton1	Properties	Caption	A-95
		Checked	True
		Font	<Шрифт, розмір, колір за вибором>
RadioButton2	Properties	Caption	A-92
		Checked	False
		Font	<Шрифт, розмір, колір за вибором>
RadioButton3	Properties	Caption	A-80
		Checked	False
		Font	<Шрифт, розмір, колір за вибором>
RadioButton4	Properties	Caption	ДП
		Checked	False
		Font	<Шрифт, розмір, колір за вибором>
Edit1	Properties	Text	<Чисте поле>
		Enabled	True
		Font	<Шрифт, розмір, колір за вибором>
Button1	Properties	Caption	Сума до сплати
		Font	<Шрифт, розмір, колір за вибором>
	Events	OnClick	<Процедура>