Хід роботи. 1.Інструктаж з техніки безпеки;

1.Інструктаж з техніки безпеки;

2. Створити новий проект (обчислення квадратного рівняння).

Розмістіть компоненти як показано на малюнку.

Змініть написи на компонентах так, як показано на наступному малюнку

Два рази клацнемо по кнопці Обчислити і введемо такий фрагмент програми:

a: =strtofloat(edit1.Text); {переводимо введений текст в число}

b: =strtofloat(edit2.Text);

c: =strtofloat(edit3.Text);

d: =sqr(b)-4*a*c; { sqr(b) - функція, яка піднімає до квадрату }

if d> 0 then begin{ накладаємо умову: якщо d > 0 то обчислюємо х1 і х2 }

x1: =(-b+sqrt(d))/2*a; { обчислюємо х1 функція sqrt(d) обчислює корінь з d }

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

edit4.Text: =floattostr(d); { виводимо результати}

edit5.Text: =floattostr(x1);

edit6.Text: =floattostr(x2);

end

else { якщо d< 0 то виводимо повідомлення }

showmessage('Дискримінант від’ємний, розв’язків немає');

В заголовку де описані змінні (var) дописуємо таке

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

3. Запускаємо програму, вводимо а, b, c тиснемо Обчислити і отримаємо результат.

4.Описати висновки роботи.

Контрольні запитання:

1. Яка структура вікна програми Borland Delphi?
2. Які особливості створення програм у середовищі програми Borland Delphi?
3. Як запустити на виконання введену програму?
4. Як описати структуру розгалуження?
5. Як коректно завершити роботу програми Borland Delphi?

Висновок: