МАРК РЕГНЕРУС ДОСЛІДЖЕННЯ: Наскільки відрізняються діти, які виросли в одностатевих союзах
РЕЗОЛЮЦІЯ: Громадського обговорення навчальної програми статевого виховання ЧОМУ ФОНД ОЛЕНИ ПІНЧУК І МОЗ УКРАЇНИ ПРОПАГУЮТЬ "СЕКСУАЛЬНІ УРОКИ" ЕКЗИСТЕНЦІЙНО-ПСИХОЛОГІЧНІ ОСНОВИ ПОРУШЕННЯ СТАТЕВОЇ ІДЕНТИЧНОСТІ ПІДЛІТКІВ Батьківський, громадянський рух в Україні закликає МОН зупинити тотальну сексуалізацію дітей і підлітків Відкрите звернення Міністру освіти й науки України - Гриневич Лілії Михайлівні Представництво українського жіноцтва в ООН: низький рівень культури спілкування в соціальних мережах Гендерна антидискримінаційна експертиза може зробити нас моральними рабами ЛІВИЙ МАРКСИЗМ У НОВИХ ПІДРУЧНИКАХ ДЛЯ ШКОЛЯРІВ ВІДКРИТА ЗАЯВА на підтримку позиції Ганни Турчинової та права кожної людини на свободу думки, світогляду та вираження поглядів
Контакти
Тлумачний словник Авто Автоматизація Архітектура Астрономія Аудит Біологія Будівництво Бухгалтерія Винахідництво Виробництво Військова справа Генетика Географія Геологія Господарство Держава Дім Екологія Економетрика Економіка Електроніка Журналістика та ЗМІ Зв'язок Іноземні мови Інформатика Історія Комп'ютери Креслення Кулінарія Культура Лексикологія Література Логіка Маркетинг Математика Машинобудування Медицина Менеджмент Метали і Зварювання Механіка Мистецтво Музика Населення Освіта Охорона безпеки життя Охорона Праці Педагогіка Політика Право Програмування Промисловість Психологія Радіо Регилия Соціологія Спорт Стандартизація Технології Торгівля Туризм Фізика Фізіологія Філософія Фінанси Хімія Юриспунденкция |
|
|||||||
Структура вибору, оператор варіанту.
Для ситуацій, де три або більше альтернатив не раціонально використовувати логічний оператор, оскільки оператор IF в залежності від значенння логічного виразу забезпечує виконання одного з двох можливих операторів. В таких ситуаціях використовують оператор варіанту- CASE, який дає можливість виконувати один з декількох операторів і має такий синтаксис:
CASE <вираз> OF <список значень1>:<оператор1>; <список значень2>:<оператор2>; <список значеньn>:<операторn> ELSE <оператор n+1> END;
Оператор виконується так: якщо значення виразу співпадає зі значенням з деякого списку значень , то виконується оператор, записаний після цього списку, а оператори, записані рісля інших списків не виконуються. Якщо ж значення виразу не співпадає з жодним значенням жодного списку, то виконується оператор, записаний після ключового слова ELSE. В форматі оператора CASE <вираз> часто ще називають селектором. Іншими словами, оператор CASE виконує роль перемикача в залежності від значення селектора. Селектор може мати цілий, символьний, логічний тип або тип, що визначається користувачем -перерахований або діапазонний. Списки значень часто ще називають мітками варіантів. Мітки повинні мати той самий тип, що й селектор. Описувати ці мітки в розділі міток (LABEL) не потрібно. Приклад .Складемо програму, котра буде виконувати роль простого калькулятора: буде виконувати довільну арифметичну операцію над двома довільними дійсними числами.
PROGRAM kalkulator; USES Crt; LABEL m1,m2; VAR a,b,c:REAL; s,znak:CHAR; BEGIN CLRSCR; WRITELN(' ПРОГРАМА - КАЛЬКУЛЯТОР '); WRITELN(' =========================='); WRITELN('Вводіть дані: Вихід - Esc'); WRITELN('число <Enter>, знак операціі <Enter>, число <Enter>'); m2: READLN(a); READLN(znak); READLN(b); CASE znak OF '+': c:=a+b; '-': c:=a-b; '*': c:=a*b; '/': c:=a/b; ELSE BEGIN WRITELN('Невідомий знак операціі'); GOTO m1; END; END; {CASE} WRITELN(a:8:4,znak,b:8:4,'=',c:8:4); WRITELN('-----------------------'); m1: WRITELN('Вихід - Esc Продовження - довільна клавіша'); s:=READKEY; IF s<>CHR(27) THEN GOTO m2; END. {PROGRAM kalkulator}
Оператор вибору замінює кілька умовних операторів. Зокрема, повний умовний оператор можна замінити такою конструкцією: CASE <умова> OF true: <оператор1 >; false: <оператор2 > END;
Наявність оператора CASE в Турбо Паскалі значно спрощує процес складання програм і робить програми більш наглядними і простими в читанні.
Читайте також:
|
||||||||
|