2.2.2. Варианты задач
Варианты задач представлены в таблице 5.
Таблица 5. Индивидуальные варианты задания 2
Вариант |
Условия задачи |
1. |
|
2. |
|
3. |
|
4. |
|
5. |
|
6. |
|
7. |
|
8. |
|
9. |
|
10. |
|
11. |
|
12. |
|
13. |
|
14. |
|
15. |
|
-2;
1
0.5;4
2.2.3. Пример выполнения задания
вычислить
y = x^(1/2), если х > 0
y= 99, если х= 0
у = - (abs(x)^(1/3)), если х< 0
Последовательность решения задачи приведена ниже:
1.В экранной форме создать объекты управления LABEL в которые занести следующую информацию
LABEL1: Название
«Задание 2 »
LABEL2: Ввод задаваемого значения управляемой переменной
(x, t, i) из 3 колонки «Условие» индивидуального задания лабораторной работы. Например,
« Значение Х»
LABEL3, LABEL4, LABEL5 - пояснения к результатам расчетов
Например, «X>A» , «X=A», «X<A»
2. Рядом с объектами LABEL2 - LABEL5 расположить объекты управления «ТЕКСТОВОЕ ПОЛЕ»
Edit1 - для ввода значения
Edit2 - Edit4 для вывода результатов расчетов в соответствии с одним из условий
В экранной форме расположить три объекта управления BUTTON1 - BUTTON3
в которые ввести записи СТАРТ, ОЧИСТИТЬ, КОНЕЦ
В процедуре для кнопки СТАРТ внести программный код, обеспечивающий расчет согласно заданного алгоритма, указанного в колонках «ФУНКЦИЯ» и «УСЛОВИЕ» индивидуального задания. Причем числовые значения, указанные в 5 колонке «ИСХОДНЫЕ ДАННЫЕ», присвоить переменным с помощью оператора присваивания (:=).
В процедуре для кнопки «КОНЕЦ» внести Close;
В процедуре для кнопки «ОЧИСТИТЬ» внести обнуление для тестовых полей
Edit1.TEXT = ‘’ , Edit2.TEXT = ‘’ и т.д.
Интерфейс пользователя, соответствующий описанному выше, выглядит следующим образом
7. Программный код, реализующий алгоритм решения
procedure Tform1.Button1Click(Sender:Tobject);
var x, y, : real;
Begin
X:= STRtoFloat(Edit3.Text);
If x=0 then Edit3.Text^:=’99’
Else If x>0 then begin
Y:=SQRT(x);
Edit2.Text:= FloatToSTR(y)
End
Else begin
Y:=-EXP((1/3)*Ln(ABS(X)));
Edit4.Text:= FloatToSTR(y)
End ;
8. Результаты расчетов в форме
