Написать программу решения следующей задачи: Составить программу, вычисляющую в...

Question

Написать программу решения следующей задачи: Составить программу, вычисляющую в зависимости от введённого признака n площадь одной из геометрических фигур: n=1 – квадрата, n=2- трапеции, n=3 – круга, n=4 – прямоугольника. В соответствии с введённым признаком выполнить ввод необходимых исходных данных в диалоговом режиме.

Comments

апваиви

---

var n:byte;a,b,h:real;beginwriteln ('Введи номер фигуры 1-квадрат, 2-трапеция, 3-круг, 4-прямоугольник');readln(n);if n=1 then beginwriteln ('Введи сторону квадрата');readln(a);writeln('Площадь квадрата=',sqr(a));end;if n=2 thenbeginwriteln ('Введи длины оснований и высоту');readln(a, b, h);writeln ('Площадь трапеции =', (a+b)/2*h:1:1);end;if n=3 thenbeginwriteln ('Введи радиус');

---

readln(a);writeln ('Площадь круга =', pi*sqr(a):1:1);end;if n=4 thenbeginwriteln ('Введи длины cторон');readln(a, b);writeln ('Площадь прямоугольника =', a*b);end;end.

---

Спасибо)

Answer 1

Какой язык программирования?

Comments

Паскаль