Алгоритм Lab3

А. Начать исполнение.

1. Присвоить переменной Loop значение "истина".

2. Пока Loop имеет значение "истина", повторять:

А. Вывести на экран меню: "1 – Расчет площади прямоугольника
2 – Расчет площади треугольника
3 – Расчет площади круга".

Б. Вывести сообщение "Выберите пункт меню".

В. Ввести n.

Г. Исследовать n:

1. Если n =1, то:

А. Повторять:

1. Вывести сообщение "Введите стороны прямоугольника".

2. Ввести a, b.

3. Если a ≤0, или b ≤0,

А. то вывести сообщение "Некорректный ввод".

Б. иначе вывести "Площадь прямоугольника равна ", ab.

4. Вывести сообщение "Продолжить вычисления (Y / N)?".

5. Ввести символ ot.

Б. Конец цикла при условии ot = 'N'.

2. Если n =2, то:

А. Повторять:

1. Вывести сообщение "Введите стороны треугольника".

2. Ввести a, b, c.

3. Если a ≤0, или b ≤0, или с≤0,

А. то вывести "Некорректный ввод".

Б. иначе:

1. Если a + b ≤ c, или a + c ≤ b, или b + c ≤ a,

А. то вывести "Некорректный ввод".

Б. иначе:

1. Рассчитать полупериметр .

2. Вывести "Площадь треугольника равна ", .

4. Вывести сообщение "Продолжить вычисления (Y / N)?".

5. Ввести символ ot.

Б. Конец цикла при условии ot = 'N'.

3. Если n =3, то:

А. Повторять:

1. Вывести сообщение "Введите радиус круга".

2. Ввести r.

3. Если r ≤0,

А. то вывести сообщение "Некорректный ввод".

Б. иначе вывести "Площадь круга равна ", πr².

4. Вывести сообщение "Продолжить вычисления (Y / N)?".

5. Ввести символ ot.

Б. Конец цикла при условии ot = 'N'.

4. Если n =4, то присвоить переменной Loop значение "ложь".

3. Конец цикла.

Б. Закончить исполнение.