Листинг 4.1

procedure TForm1.Button1Click(Sender: TObject);

var

number:Byte; // Номер дня недели

begin

number:=StrToInt(InputBox('Номер дня недели','',''));

case number of

1:begin

ShowMessage('Понедельник');

Label1.Caption:=Label1.Caption+#13+

IntToStr(number)+' '+'Понедельник';

end;

2:begin

ShowMessage('Вторник');

Label1.Caption:=Label1.Caption+#13+

IntToStr(number)+' '+'Вторник';

end;

3:begin

ShowMessage('Среда');

Label1.Caption:=Label1.Caption+#13+

IntToStr(number)+' '+'Среда';

end;

4:begin

ShowMessage('Четверг');

Label1.Caption:=Label1.Caption+#13+

IntToStr(number)+' '+'Четверг';

end;

5:begin

ShowMessage('Пятница');

Label1.Caption:=Label1.Caption+#13+

IntToStr(number)+' '+'Пятница';

end;

6:begin

ShowMessage('Суббота');

Label1.Caption:=Label1.Caption+#13+

IntToStr(number)+' '+'Суббота';

end;

7:begin

ShowMessage('Воскресенье');

Label1.Caption:=Label1.Caption+#13+

IntToStr(number)+' '+'Воскресенье';

end;

end;

end;

Пример 4.2. Даны три вещественных числа. Выбрать из них те, которые принадлежат интервалу .

Приложение во время выполнения

Дата добавления: 2015-07-10