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
1
2
3
3
4,5
15
11
3
4
22
6
8
11
3
4
22
6
8
Пример 2.3 Создание приложения с использованием
переключателей панели RadioGroup
Постановка задачи: По заданному номеру дня недели определить название дня, считая, что понедельник - первый день, вторник – второй, и т.д. Вид формы с компонентами:
Размещенные компоненты:
-
Компоненты
Свойство
Значение
Form1
Label1
Label2
Label3
Button1
Button2
RadioGroup1
Caption
Caption
Caption
Caption
Caption
Caption
Caption Items
Понедельник первый недели р 1
Название дня недели
Номер дня
Название дня
Определить
Выход
Выбор дня
0, 1, 2, 3, 4, 5, 6
Для формирования списка переключателей дней недели выберите в Инспекторе Объектов компонент RadioGroup1, а на странице свойств выберите свойство Items (список элементов). В окне String List Editor введите список элементов – целых чисел 0, 1, 2, 3, 4, 5, 6 (семь строк). Для завершения формирования списка щелкните по кнопке ОК.
Процедура обработки щелчка на кнопке “Определить”:
procedure TForm1.Button1Click(Sender: TObject);
var n:integer;{ переключатель дня недели:0,1,2,3,4,5,6,
номер дня недели:1,2,3,4,5,6,7}
begin Edit1.text:=' '; Edit2.text:=' ';
with RadioGroup1 do
begin n:=ItemIndex; Edit1.text:=IntToStr(n+1);
case n of
0: Edit2.text:='Понедельник';
1: Edit2.text:='Вторник';
2: Edit2.text:='Среда';
3: Edit2.text:='Четверг';
4: Edit2.text:='Пятница';
5: Edit2.text:='Суббота';
6: Edit2.text:='Воскресенье';
end;//case
end; end;
Сценарий выполнения программы:
- запустить программу (Run);
- выбрать номер дня щелчком по переключателю RadioGroup1;
- нажать кнопку “Определить”;
- просмотреть результат в редакторах Edit1 и Edit2;
- нажать кнопку “Определить”;
- просмотреть результат в редакторах Edit1 и Edit2;
-нажать кнопку “Выход”.
Задание к лабораторной работе №2 приведено в Приложениях 1 и 2, номер варианта совпадает с номером студента в списке группы.