11 клас (академ). Команда розгалуження в Delphi. - 11 клас (академічний) - Інформатика - Каталог статей - Кабінет інформатики Черкаської СПШ №20
Кабінет 208
Головна | Реєстрація | Вхід
Вівторок, 06.12.2016, 21:51
Меню сайту
Форма входу

Категорії розділу
5 клас [11]
6 клас [24]
7 клас [16]
8 клас [15]
9 клас [25]
10 клас (стардарт) [17]
10 клас (академічний) [23]
11 клас (стандарт) [21]
11 клас (академічний) [33]
Головна » Статті » Інформатика » 11 клас (академічний)

11 клас (академ). Команда розгалуження в Delphi.

Команда розгалуження в Delphi.


Команда повного розгалуження в Delphi має такий загальний вигляд:

if <логічний вираз> then begin  <послідовність команд 1> end

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

 

Команда неповного розгалуження в Delphi має такий загальний вигляд:

if <логічний вираз> then begin <послідовність команд> end;

 

Виконання команди повного розгалуження відбувається так:

  1.  обчислити значення логічного виразу;
  2. якщо це значення true, то виконати послідовність команд 1 і після цього виконати команду, наступну за командою розгалуження;
  3. якщо це значення false, то виконати послідовність команд 2 і після цього виконати  команда, наступну за командою розгалуження.

Виконання команди  неповного розгалуження відбувається так:  

  1. обчислити значення логічного виразу
  2.  якщо це значення true, то виконати послідовність команд і після цього виконати  команду, наступну за командою розгалуження;
  3. якщо це значення false, одразу виконати команда, наступну за командою розгалуження.

 

Фрагмент програми розв’язування задачі 1 (блок-схема алгоритму на рис. 2.39 стор.74) в Delphi матиме вигляд:

a := StrToFloat(Edit1.Text);  b := StrToFloat(Edit2.Text);

c := StrToFloat(Edit3.Text);  d := StrToFloat(Edit4.Text);

if (cd) = 0  then Label1.Caption := 'Вираз значення не має: ділення на нуль'

else begin z := (a–b)/(cd);  Label1.Caption := FloatToStr(z); end;


Логічний вираз у команді розгалуження може бути простим або складеним. Складені логічні вирази утворюються з простих шляхом використання відомих нам логічних операцій кон’юнкції (and), диз’юнкції (or), заперечення (not). Пріоритет цих операцій в Delphi такий самий, як і в математичній логіці.


Задача 4. Обчислити значення заданої функції  

Фрагмент програми для безпосереднього обчислення y має вигляд:

x := StrToFloat(Edit1.Text);

if (-3< x) and (x <5) then y := 2*x – 12 else y := 7 – 8*x;

Label1.Caption := FloatToStr(y);

 

Команда розгалуження в Delphi може містити в собі іншу команду розгалуження. Фрагмент програми
розв’язування задачі 2 (блок-схема алгоритму на рис. 2.42
стор.77) в Delphi матиме вигляд:

if x = у then Label1.Caption := 'Числа рівні'

else if x > у then Label1.Caption := 'Перше число більше'

else Label1.Caption := 'Перше число менше';

 

Домашнє завдання 

§2.8 (стор. 73-79) пит. 1-10 стор. 82  Впр. 10, 5* на стор. 83


Категорія: 11 клас (академічний) | Додав: admin (12.10.2013)
Переглядів: 2323
Пошук
Статистика

Онлайн всього: 2
Гостей: 2
Користувачів: 0
Copyright MyCorp © 2016
Безкоштовний хостинг uCoz