Приклад до лабораторної роботи №1

CASE Bukva OF

ELSE

CASE i OF

Формати виведення

Для цілої змінної:

Write (i:p);

Число виводиться праворуч в крайні позиції поля шириною p.

Для дійсної змінної (десяткове число у форматі з фіксованою крапкою):

Write (a:p:q);

Число виводиться праворуч в крайні позиції поля шириною p, q – це кількість цифр дробової частини числа.

Тема лекції: „Умовні оператори”

1. Умовні оператори IF реалізують операцію умовного переходу (операцію розгалуження на два напрямки):

Загальний вигляд:

1. IF <умова> THEN <оператор1> ELSE <оператор2>;
2. IF <умова> THEN <оператор>;

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

Приклад:

a:=2; b:=8;

IF a>b THEN writeln(a)

ELSE writeln(b);

Відповідь: 8;

Частину оператора ELSE можна не вживати.

Приклад:

a:=2; b:=8; c:=0;

IF a>b THEN c:=a+b;

c:=c+12;

writeln(‘c= ’, c:2);

Відповідь: 12;

Якщо умова приймає значення False, то управління передається оператору, який стоїть після оператору IF.

Приклад використання оператора IF із складеним оператором.

IF a<b THEN begin

writeln (‘a<b’); begin…end – операторні дужки

d:=a*b;

end

ELSE begin

writeln (‘a>b’);

d:=a/b;

end;

В складеному операторі записують будь – яку кількість операторів. Вони виконуються „як одне ціле”.

2. Оператор вибору CASE забезпечує розгалуження на декілька напрямків.

Загальний вигляд:

CASE <індекс вибору> OF <список вибору>;

[ ELSE <оператори>];

END;

де індекс вибору – проста змінна цілого, символьного або логічного типу;

список вибору – сукупність простих або складених операторів, перед кожним з яких стоїть константа вибору;

Не треба плутати мітки операторів з константами вибору.

Приклад:

1: y:=sin(x);

2: y:=cos(x);

3: y:=sin(x)+cos(x);

y:=0;

END;

Частину оператора ELSE можна не вживати.

Оператор в списку вибору може мати декілька констант вибору.

Приклад:

Var

Bukva: char;

…………….

‘a’, ‘o’,’e’,’u’: begin

…….

end;

‘y’,’x’: begin

…….

end;

END;

Дано дійсні числа x і y. Обчислити z.

max(x,y), якщо x<0,

z=

min(x,y), якщо x≥0;

Uses crt;

Var

x, y, z: real;

begin

writeln (‘введіть x та y’);

readln (x,y);

if x<0 then

if x<y then z:=y else z:=x;

if x>=0 then

if x<y then z:=x else z:=y;

writeln (‘z= ‘,z:5:2);

readln

end.

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