Question

СРОЧНО ЗАДАНИЕ НА 30 БАЛЛОВ!
На PASCAL нужно разработать программу которая выводит формулы площади в зависимости от вида фигур!

Answer 1

program raf105;

var figur:integer;

begin

writeln('1. Квадрат');

writeln('2. Прямоугольник');

writeln('3. Треугольник');

writeln('4. Круг');

write('Введите номер фигуры: ');

readln(figur);

if figur = 1

 then writeln('S = a^2');

if figur = 2

 then writeln('S = a*b');

if figur = 3

 then writeln('S = √(p·(p-a)·(p-b)·(p-c))');

if figur = 4

 then writeln('S = πR^2');

end.

Answer 2

Блиин, прошу прощение а можно еще Алгоритм??

Answer 3

Начало
1. Вывести список фигур
2. Запросить номер фигуры
3. Если номер фигуры 1
То вывести S = a^2
4. Если номер фигуры 2
То вывести S = a*b
5. Если номер фигуры 3
То вывести S = √(p·(p-a)·(p-b)·(p-c))
6. Если номер фигуры 4
То вывести S = πR^2
Конец.