Помогите пожалуйста! Очень безотлагательно!_______________________________Задание 1.Отыскать площадь

Помогите пожалуйста! Очень безотлагательно!
_______________________________

Задание 1.

Отыскать площадь треугольника, две стороны которого одинаковы а и b , а уголь меж этими гранями равен у.


Задание 2.

Составить программку вычисления объема цилиндра и объема конуса, которые имеют одинаковую вышину Н и однообразный радиус основания R.
1 и 2 программу протестировать в Паскале и показать итог работы (Непременно)

Задать свой вопрос
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.

, оставишь ответ?
Имя:*
E-Mail:


Последние вопросы

Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт