Четверг, 28.03.2024, 21:57
Главная | Регистрация | Вход Приветствую Вас Гость | RSS


Меню сайта


Статистика

Онлайн всего: 1
Гостей: 1
Пользователей: 0


Тестування онлайн
тестування онлайн 


Социальные закладк

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

Пример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)  + '   - число равно нулю' )
   
ElseShowMessage(inttostr(a)  + '  -  число отрицательное' )
        
End;
 End ;

 

Пример 2

Брокер получает процент от суммы сделки. Для сделок, сумма которых составляет меньше 150 т.г. вознаграждение брокера составит 5%, если  сумма договора составляет от 150 т.г. до 500 т.г. – %, а для сделок, сумма которых составляет больше 500 т.г. – %. Составить программу для расчёта вознаграждения брокера.

Интерфейс проекта

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

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

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

 

Форма входа
Поиск
Календарь
«  Март 2024  »
ПнВтСрЧтПтСбВс
    123
45678910
11121314151617
18192021222324
25262728293031
Архив записей
Друзья сайта
  • Официальный блог
  • Сообщество uCoz
  • FAQ по системе
  • Инструкции для uCoz

  • Рейтинг@Mail.ru
    Copyright MyCorp © 2024
    Конструктор сайтов - uCoz