Лабораторная работа №9

Тема работы: Подпрограммы. Функции.

Цель работы: использование функций в программировании.

ЗАДАНИЯ

1. Написать функцию решения 3 задач по выбору, используя оператор выбора Case:

· Переменные a,b,c -формальные .

· Результат вычисления передать в виде параметра в основную программу.

Пример 1. Реализация функции n+n

Пример 2.

Program S_of_Figure;

Var

choice: char;

a, x, y, z: real;

function circle(d: real): real;

const pi = 3.14159;

Begin

circle := pi * sqr(d) / 4.0;

End;

function rectangle(a, b: real): real;

Begin

rectangle := a * b

End;

function triangle(a, b, c: real): real;

var x: real;

Begin

x := (a + b + c) / 2;

triangle := sqrt(x * (x - a) * (x - b) * (x - c))

End;

Begin

Repeat

Read(choice);

Case choice of

'c': begin

Readln(x);

a := circle(x)

End;

'r': begin

Readln(x, y);

a := rectangle(x, y)

End;

't': begin

Readln(x, y, z);

a := triangle(x, y, z)

End

End;

writeln('Square: ', a:8:2);

until choice = 'q';

Readln

End.