Question

1. найти площадь треугольника, две стороны которого равны а и b , а уголь между этими сторонами равен у. 2. составить программу вычисления объема цилиндра и объема конуса, которые имеют одинаковую высоту н и одинаковый радиус основания r. 1 и 2 программу протестировать в паскале и показать результат работы (обязательно)

Answer 1

1.program plo;

program plo;

var a, b, y: integer;

   s:real;

const pi=3.14;

begin

writeln('Длина сторон: ');

readln(a, b);

writeln('Угол: ');

readln(y);

s:=0.5*a*b*sin(y*pi/180);

writeln('S= ', s)

end.

2. program V;

var a, b: integer;

   s1, s2:real;

const pi=3.14;

begin

writeln('Высота H= ');

readln(a);

writeln('Радиус R= ');

readln(b);

s1:=pi*a*sqr(b);

s2:=pi*a*sqr(b)/3;

writeln('Объем цилиндра = ', s1);

writeln('Объем конуса = ', s2);

end.