Информатика. Программирование в Delphi
120
Пример 7.3 (Выполнить самостоятельно)
Разработать приложение, которое вычисляет корни квадратного уравне-
ния. Результат должен выводиться в поле
Memo
в виде строк, например:
Решение квадратного уравнения
A=1 B=-2 C=-3; X1=1 X2=-5 или A=1 B=-2 C=1; X1=1 X2=1 или A=1 B=-2 C=4;
Корней нет.
Рекомендуемый вид формы показан на рис. 7.10.
Рис 7.10
Пример 7.4 (Выполнить самостоятельно)
Разработать приложение, которое вычисляет количество очков, получен-
ных страной в олимпиаде (золото – 15 очков, серебро – 10 очков и бронза – 5
очков). Приложение должно быть спроектировано таким образом, чтобы в по-
лях
Золото
,
Серебро
и
Бронза
можно было ввести только целое число. Также в
компонент
Label
должен выводиться лидер олимпиады, например,
Франция:
155
. Вычисление очков должно происходить при нажатии клавиши
Enter
в по-
ле
Бронза (шт)
. Пример строки, добавляемой в компонент
Memo: Россия: Зо-
лото: 5 Серебро: 7 Бронза 3 Очки: 160
. При нажатии на кнопку
Очистить
должны очищаться все поля и компонент
Memo
.Рекомендуемый вид формы
приведен на рис. 7.11.
Рис. 7.11
I...,110,111,112,113,114,115,116,117,118,119 121,122,123,124,125,126,127,128,129,130,...370