Вложенные ветвления. Примеры

Пример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

В компьютер вводятся длины трех отрезков. Компьютер должен ответить на вопрос, можно или нельзя из этих отрезков создать треугольник.

Указание: Для этого каждый отрезок должен быть меньше суммы длин двух других отрезков.