Тема: Фундаментальні алгоритми на графах та деревах.

Лекція №6

CASE x OF

1..5: S1

2,3,8: S2

4,6,9..13: S3

ELSE

S4

END;

П р и к л а д: Складемо програму, яка буде виконувати роль простого калькулятора, що виконує чотири арифметичні дії.

 

Program kalkulator;

Uses Crt;

Var a,b:Real;

s:Char;

Begin

Clrscr;

Writeln('Введіть перший операнд');

Readln(a);

Writeln('Введіть другий операнд');

Readln(a);

Writeln('Введіть знак операції');

Readln(s);

CASE s OF

“ + ” : Writeln('Результат', (a+b):5:2);

“ – “ : Writeln('Результат', (a-b):5:2);

“ * ” : Writeln('Результат', (a*b):5:2);

“ / “ : Writeln('Результат', (a / b):5:2);

Else

Writeln('Недопустима операція')

End;

End.

 

1. Основні властивості графів.

2. Пошук в глибину та ширину.

3. Коротші путі в графі.

 

Час: 2 год.