Розгалуження

Блок-схема якого розгалуження наведена на зображені?

Блок-схема якого розгалуження наведена на зображені?

if <логічний вираз>

     [then, else] begin

<послідовність команд 1>

end

     [then, else] begin

<послідовність команд 2>

end;

Обчислити значення функції

Алгоритм

x := StrToFloat(Edit1.Text);

if (x > –3)     [and, or] (x < 5)

     [then, else] y := 2 * x – 12

     [then, else] y := 7 – 8 * x;

Label1.Caption := FloatToStr(y);

В наведеній блок-схемі, якщо результат перевірки умови во внутрішньому розгалуженні дорівнює - істина, то буде виконано команду                                  [Повідомити: «Числа рівні», Повідомити: «Перше число більше»], а команди                                  [Повідомити: «Перше число більше», Повідомити: «Друге число більше»] і                                  [Повідомити: «Перше число більше», Повідомити: «Числа рівні», Повідомити: «Друге число більше»]будуть проігноровані.

Задача. Побудуйте математичну модель і алгоритм для обчислення значення виразу a + b – c : (a – 2b).

Математична модель

вхідні дані: три довільних числа a, b та с;

кінцеві результати: значення виразу z;

формули: z = a + b – c : (a – 2b).

Алгоритм

a:=StrToFloat(Edit1.Text);

b:=StrToFloat(Edit2.Text);

c:=StrToFloat(Edit3.Text);

x:=       ; // знаходимо значення дільника і записуємо його в змінну х

         // перевірка умови чи дорівнює х нулю

     Label1.Caption:='Ділення на 0' // тоді

     begin // інакше

z:=a + b – c / x

Label1.Caption := FloatToStr(z);

end;