Помогите пожалуйста! Очень безотлагательно!_______________________________Задание 1.Отыскать площадь
Помогите пожалуйста! Очень безотлагательно!
_______________________________
Задание 1.
Отыскать площадь треугольника, две стороны которого одинаковы а и b , а уголь меж этими гранями равен у.
Задание 2.
Составить программку вычисления объема цилиндра и объема конуса, которые имеют одинаковую вышину Н и однообразный радиус основания R.
1 и 2 программу протестировать в Паскале и показать итог работы (Непременно)
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.
-
Вопросы ответы
Статьи
Информатика
Статьи
Русский язык.
Геометрия.
Физика.
Русский язык.
Химия.
Математика.
География.
Литература.
Разные вопросы.
Математика.