Вітаю Васперехожий | Реєстрація | Вхід


































Меню сайту


Авторизація
Наше опитування
Чи вмієте ви готувати їжу?
Всього відповідей: 123
Сьогодні завітали
Статистика
Пошук
Друзі сайту


















За підтримки NIC.UA

Вказівки розгалуження в Delphi - Форум

[ Нові повідомлення · Учасники · Правила форуму · Пошук · RSS ]
Сторінка 1 з 11
Модератор форуму: IRINA 
Форум » Готуємо уроки разом » Інформатика » Вказівки розгалуження в Delphi
Вказівки розгалуження в Delphi
IRINAДата: Середа, 02-Листопада-2011, 17:20 | Повідомлення # 1
Вчитель інформатики
Група: Модератори
Повідомлень: 3
Репутація: 0
Статус: Оффлайн
Команди розгалуження в Delphi

Команда повного розгалуження в Delphi має такий загальний вигляд:
If <логічний вираз>
Then begin
< послідовність команд 1>
end
Else begin
< послідовність команд 2>
end;
(англ. if – якщо, then – тоді, else – інакше).
Є в Delphi й команда неповного розгалуження:
If <логічний вираз>
Then begin
<послідовність команд>
end;
Виконання команди повного розгалуження відбувається так: обчислюється значення логічного виразу; якщо це значення true, то виконується послідовність команд 1 і після цього виконується команда, наступна за командою розгалуження; якщо це значення false, то виконується послідовність команд 2 і після цього виконується команда, наступна за командою розгалуження.
Виконання команди неповного розгалуження відбувається так: обчислюється значення логічного виразу; якщо це значення true, то виконується послідовність команд і після цього виконується команда, наступна за командою розгалуження; якщо це значення false, одразу виконується команда, наступна за командою розгалуження.
Звертаємо вашу увагу:
• якщо після ключових слів Then і Else слідують тільки по одній команді, то операторні дужки begin і end можна не ставити;
• перед Else ставити крапку з комою не можна.

Задача 1. Обчислити значення виразу (a – b) / (c – d), де a, b, c, d – дійсні числа.
Якщо записати в Delphi фрагмент програми розв’язування задачі 1, то він виглядатиме так:
a := StrToFloat (Edit1.Text);
b := StrToFloat (Edit2.Text);
c := StrToFloat (Edit3.Text);
d := StrToFloat (Edit4.Text);
x := c–d;
If x = 0
Then Label1.Caption := 'Вираз значення не має: ділення на нуль'
Else begin
y := a–b;
z := y/x;
Label1.Caption := FloatToStr (z);
end;

Звертаємо вашу увагу: обчислення значення виразу можна було б записати не двома командами, а однією: z := (a–b)/x.
Логічний вираз у команді розгалуження може бути простим або складеним. Складені логічні вирази утворюються з простих шляхом використання розглянутих у попередньому пункті операцій кон’юнкції (and), диз’юнкції (or), заперечення (not). Порядок виконання цих операцій в Delphi такий самий, як і в математичній логіці.
Наведемо приклад задачі з використанням складених логічних виразів.
Задача 2. Обчислити значення заданої функції y=2*x – 12, якщо -3<x<5,
y=7 – 8*x для всіх інших x.
Фрагмент програми для розв’язування цієї задачі виглядатиме так:
x := StrToFloat (Edit1.Text);
If (x > –3) and (x < 5)
Then y := 2*x – 12
Else y := 7 – 8*x;
Label1.Caption := FloatToStr (y);

Команда розгалуження в Delphi моможе містити в собі іншу команду розгалуження.
Ось як виглядатиме команда розгалуження для алгоритму, який визначає більше із двох чисел:
If x = у
Then Label1.Caption := 'Числа рівні'
Else If x > у
Then Label1.Caption := 'Перше число більше'
Else Label1.Caption := 'Друге число більше';
Форум » Готуємо уроки разом » Інформатика » Вказівки розгалуження в Delphi
Сторінка 1 з 11
Пошук: