1 / 9

Основи алгоритмізації та програмування

Основи алгоритмізації та програмування.  Оператор вибору.  Оператор вибору. Оператор вибору має таку структуру: CASE <вираз> OF <список значень 1>:<оператор1>; ……………………………………… <список значень n > : <оператор n > END ;

geona
Télécharger la présentation

Основи алгоритмізації та програмування

An Image/Link below is provided (as is) to download presentation Download Policy: Content on the Website is provided to you AS IS for your information and personal use and may not be sold / licensed / shared on other websites without getting consent from its author. Content is provided to you AS IS for your information and personal use only. Download presentation by click this link. While downloading, if for some reason you are not able to download a presentation, the publisher may have deleted the file from their server. During download, if you can't get a presentation, the file might be deleted by the publisher.

E N D

Presentation Transcript

  1. Основи алгоритмізації та програмування  Оператор вибору

  2. Оператор вибору Оператор вибору має таку структуру: CASE <вираз> OF <список значень 1>:<оператор1>; ……………………………………… <список значень n> : <оператор n> END; Дія оператора. Якщо значення виразу збігається зі значенням з деякого списку, то виконується відповідний оператор, а інші оператори не виконуються. Список значень можескладатися з одного чи декількох елементів.

  3. Приклад 1 Приклад 1: Нехай Z— змінна символьного типу, а К, L, М — змінні цілого типу. Розглянемо оператор вибору для підрахунку кількості символів у деякому тексті: CASE Z OF ’А':К:=K+1; 'О': L:=L+1; 'В’, ‘С’: M:=M+1; END;

  4.  Оператор вибору Один оператор вибору замінює декілька умовних операторів. Зокрема, повний умовний оператор можна замінити таким оператором вибору: CASE<умова> OF true: <оператор 1>; false: <оператор 2> END;

  5.  Приклад 2 Приклад 2: Розгалуження, можна реалізувати так: ... ... ... ... ... ... CASE Сina<1000 OF True: М:=М+1; False: BEGIN Suma:=Suma+Cina; END END;

  6.  З а д а ч а 1 Нехай населені пунктипозначені номерами 1, 2,3,4, 5, 6,7,8. Вартість одного квитка до конкретного пункту визначаєть так: Скільки коштуватимуть mквитків до одного конкретного пункту? Розглянемо програну Vybir. Тут в операторі CASEвикористано складову ELSE, яка забезпечує виконання оператора Сina:=97, якщо вираз к не належить до списків. Така можливість реалізована у мові Турбо Паскаль, але не передбачена у стандартні мови.

  7.  З а д а ч а 1. Програма PROGRAM Vybir; VAR k, m, Cina: integer; BEGIN write ('Введіть кількість квитків та номер пункту: '); read(m, k); CASE k OF 1 : Cina :=22; 2, 3 : Cina :=35; 4 : Cina :=50; 5,6 : Cina :=72 ELSE Cina:=97 END; writeln (m, ’ квитків до пункту ’, k,’ коштують ', m*Cina) END.

  8. Задача 2. Програма Задача 2. Виконайте програму Dialog. Введіть число — кількість років — і прочитайте відповідне повідомлення. У програмі Dialogвикористано діапазон значень 20..23 замість списку 20, 21, 22, 23, що допускається в мові Паскаль. PROGRAM Dialog; VAR Vik : integer; BEGIN write('Скільки Вам років?’); read(Vik); CASE Vik OF 12, 13: writeLn('Вам ще рано читати цей розділ'); 14,15: writeln('Вaмще не можна дивитися фільми для дорослих'); 16,17: writeln('Дo6peвчіться, батьки будуть гордитися Вами'); 18, 19: writeln('Мінздоров"я попереджає...'); 20..23:writeln('Пacкaль вивчати вже пізно –– пора заміж’) ELSE Writeln(’Закрийте цю книжку! Читайте Н.Вірта!'); END END.

  9.  Контрольні завдання 1. Скласти програму, яка визначає пору року за порядковим номером місяця. 2. Скласти програму, яка визначає день тижня за його порядковим номером. 3. Скласти програму, визначення кварталу року за порядковим номером місяця. 4. Скласти програму, виконання арифметичної операції +, -, *, / над числами a i b, в залежності від натиснутої клавіші.

More Related