Приклад 4.4

Приклад використання складеного оператора

Застосування складеного оператора

Складений оператор

Приклад 4.3.

Відомо, що в заданих числах а1, а2, а3, и а4 одне відрізняється від трьох інших, рівних між собою. Привласнити номер цього числа змінній n.

Рис. 4.3. Схема алгоритму прикладу 4.3.

Program ne_dorivnjue;

var a1,a2,a3,a4:real; n:byte; begin write(‘a1=’);readln(a1);

write(‘a2=’);readln(a2); write(‘a3=’);readln(a3); write(‘a4=’);readln(a4);

if (a1=a2) and (a1=a3) then n:=4

else if (a1=a2) and (a1=a4) then n:=3

else if (a1=a3) and (a1=a4) then n:=2 else n:=1;

writeln(‘n=’,n);

end.

Складений оператор це послідовність інструкцій, що розташовані між зарезервованими словами BEGIN i END.

Зарезервовані слова BEGIN i END являють собою так звані операторні дужки.

Оператори, що входять до складу складеного оператора, повинні виконуватись в тому порядку, у якому вони записані.

Якщо за зарезервованими словами THEN i ELSE необхідно записати декілька інструкцій, то обов'язковим є використання складеного оператора. У більшості операторів цикла, тілом циклу також служить складений оператор.

Нехай необхідно виконати такі дії. Якщо логічна змінна А має значення FALSE, то кожне з двох дійсних значень Х и Y збільшити на одиницю; у противному випадку кожне з двох дійсних значень Х в Y замінити його абсолютним значенням. Реалізацію цих дій неможливо виконати без складеного оператора:

IF NOT A THEN BEGIN X:=X+1; Y:=Y+1; END ELSE

BEGIN X:=ABS(X); Y:=ABS(Y); END;

Інструкція вибору CASE

Інструкція вибору CASE має вигляд

CASE S OF

B:g1 ELSE g2 END,

де CASE, OF, ELSE, END - зарезервовані слова;

S – вираз, який називають селектором;

В - константа, тип якої повинен співпадати з типом виразу селектора. Константу В називають міткою випадку.

g1, g2 – інструкції алгоритмічної мови Паскаль.

Вимоги до парметрів інструкції вибору CASE

Вираз S може належати до одного з ординальних типів (цілий, логічний, літерний, перелічувальний, обмежений) крім типу REAL (дійсний);

Одна i та сама мітка випадку може з'явитися в операторі CASE лише один раз.

Як же працює інструкція CASE?

Спочатку обчислюється значення селектору, а потім виконується оператор, мітка якого співпала зі значенням селектору.

Якщо значення селектору не збігається ні з однією із міток випадків, то виконується інструкція, що стоїть після ключового слова ELSE.

Частина ELSE g2 може буде відсутня у операторі CASE. Тоді при відсутності збігу значення селектору з мітками випадків, оператор CASE закінчує свою роботу.

Скласти програму, яка виконує одну з арифметичних операцій над двома заданими числами.

program pryklad_4_4;

uses crt;

var x,y,z:integer; op:char;

begin clrscr; write('operation: '); read(op);{вводимо символ операції}

writeln('vvod x y');

read(x,y);;{вводимо два числа}

case op of

'+': begin z:=x+y; writeln(x,op,y,'=',z); end;

'-': begin z:=x-y; writeln(x,op,y,'=',z); end;

'*': begin z:=x*y; writeln(x,op,y,'=',z); end;

'\': begin z:=x div y; writeln(x,op,y,'=',z); end

else

writeln('error',op);

end;{end of Case}

end.

Дані і результат

operation: +

vvod x y

6 8

6+8=14

Лекція 6

Реалізація структури повторення

Застосування циклів

Цикл з передумовою, і цикл із постумовою застосовують лише у тому випадку, коли кількість повторень є невідомою до початку виконання циклу — в іншому разі використовують цикл із лічильником

Дата добавления: 2014-01-07