Напишите программы на паскаль пожалуйста. 1) Вычислить площадь равнобедренного треугольника, если известна боковая сторона и высота, проведенная к основанию треугольника. 2) Определить время встречи двух пешеходов, идущих навст...
Напишите программы на паскаль пожалуйста.
1) Вычислить площадь равнобедренного треугольника, если известна боковая сторона и высота, проведенная к основанию треугольника.
2) Определить время встречи двух пешеходов, идущих навстречу друг другу, если известно, что расстояние между пешеходами L, скорость первого пешехода V1, скорость второго пешехода V2.
Гость
Ответ(ы) на вопрос:
Гость1)
var a,h,b,s:real;
begin
write('Введите длину боковой стороны = ');
readln(a);
write('Введите высоту = ');
readln(h);
b:=sqrt(a*a-h*h); // половина основания треугольника
s:=b*h;
writeln('Площадь треугольника = ',s:6:2);
end.
2)
var L,V1,V2,t:real;
begin
write('Введите расстояние между пешеходами (км) = ');
readln(L);
writeln('Введите скорости пешеходов через пробел (км/ч)');
readln(V1,V2);
t:=L/(V1+V2);
writeln('Пешеходы встретятся через ',t ,' час');
end.
Не нашли ответ?
Похожие вопросы