Полезное:
Как сделать разговор полезным и приятным
Как сделать объемную звезду своими руками
Как сделать то, что делать не хочется?
Как сделать погремушку
Как сделать так чтобы женщины сами знакомились с вами
Как сделать идею коммерческой
Как сделать хорошую растяжку ног?
Как сделать наш разум здоровым?
Как сделать, чтобы люди обманывали меньше
Вопрос 4. Как сделать так, чтобы вас уважали и ценили?
Как сделать лучше себе и другим людям
Как сделать свидание интересным?
Категории:
АрхитектураАстрономияБиологияГеографияГеологияИнформатикаИскусствоИсторияКулинарияКультураМаркетингМатематикаМедицинаМенеджментОхрана трудаПравоПроизводствоПсихологияРелигияСоциологияСпортТехникаФизикаФилософияХимияЭкологияЭкономикаЭлектроника
Пример 2.2 Вычисление функции
|
|
Вычислить значение функции 
, где
Описание переменных:
| Имя | Тип | Семантика |
| x a y | вещественный вещественный вещественный | аргумент параметр значение функции |
Вид формы с компонентами:
Процедура обработки щелчка на кнопке “Расчет”
procedure TForm1.Button1Click(Sender: TObject);
var x,a,y:real;
Begin
x:=StrToFloat(Edit1.text);
if x<=4 then a:=5+2*x
else if x<=5 then a:=3
else a:=sqrt(x+1);
y:=2*x;
Label3.Caption:='a='+FloatToStr(a);
Label4.Caption:='y='+FloatToStr(y)
End;
Процедура обработки щелчка на кнопке “Выход” (ниже в примерах текст данной процедуры приводиться не будет, т.к. полностью идентичен данному)
procedure TForm1.Button2Click(Sender: TObject);
Begin
Close
End;
Сценарий выполнения программы:
- запустить программу (Run);
- в поле Edit1 ввести значение x;
- нажать кнопку “Расчет”;
- просмотреть и проанализировать результаты;
Для завершения работы нажать кнопку “Выход”.
Тесты:
| № | x | Эталон | Результат | ||
| a | y | a | y | ||
| 4,5 |
Date: 2015-07-25; view: 346; Нарушение авторских прав