| Вложенные ветвления. Примеры
Пример1 . Создайте проект, при выполнении которого устанавливается знак числа. Если значение числа равно нулю, требуется сообщить об этом
- Создайте проект с использованием элементов управления: окно запроса, надпись.
- Для вывода результатов используйте окно сообщений.
|
Блок – схема проекта
|
procedure TForm1.Button1Click(Sender: TObject);
var a: Integer;
begin
a = strtoint(InputBox('Ввод чисел', 'Введите число' , ''));
If a>0 Then
ShowMessage(inttostr(a) + ' - число положительное' )
ElseIf a=0Then
ShowMessage(inttostr(a) + ' - число равно нулю' )
Else : ShowMessage(inttostr(a) + ' - число отрицательное' )
End;
End ;
|
Пример 2
Брокер получает процент от суммы сделки. Для сделок, сумма которых составляет меньше 150 т.г. вознаграждение брокера составит 5%, если сумма договора составляет от 150 т.г. до 500 т.г. – 4 %, а для сделок, сумма которых составляет больше 500 т.г. – 3 %. Составить программу для расчёта вознаграждения брокера.
Интерфейс проекта
 |
procedure TForm1.Button1Click(Sender: TObject);
var s, p : real;
begin
s:= strtofloat(inputbox('Ввод данных','Введите размер сделки',''));
If s<=150 Then
begin
p:=s*0.05;
MessageDlg('Размер вознаграждения равен ' + floattostrF(p,ffFixed,5,2)+' грн.',mtinformation,[mbok],0);
end
Else If s>=500 Then
begin
p:=s*0.03;
MessageDlg('Размер вознаграждения равен ' + floattostrF(p,ffFixed,5,2)+' грн.',mtinformation,[mbok],0);
end
Else
begin
p:=s*0.04;
MessageDlg('Размер вознаграждения равен ' + floattostrF(p,ffFixed,5,2)+' грн.',mtinformation,[mbok],0);
End;
end;
|
Задание 1
В компьютер вводятся три числа. Выяснить какое из трех чисел меньше.
Задание 2
Компьютер спрашивает пользователя, как его зовут, а затем приветствует его в соответствии с именем: Колю – «Привет», Васю – «Здорово», Джона – «Hello», а остальных – «Здравствуйте». Для Васи, кроме этого, он красит форму в зеленый цвет.
Задание 3
В компьютер вводятся длины трех отрезков. Компьютер должен ответить на вопрос, можно или нельзя из этих отрезков создать треугольник.
Указание: Для этого каждый отрезок должен быть меньше суммы длин двух других отрезков.
| |
