Напишите программы на паскаль пожалуйста.
1) Вычислить площадь равнобедренного треугольника, если известна боковая сторона и высота, проведенная к основанию треугольника.
2) Определить время встречи двух пешеходов, идущих навстречу друг другу, если известно, что расстояние между пешеходами L, скорость первого пешехода V1, скорость второго пешехода V2.
1) Вычислить площадь равнобедренного треугольника, если известна боковая сторона и высота, проведенная к основанию треугольника.
2) Определить время встречи двух пешеходов, идущих навстречу друг другу, если известно, что расстояние между пешеходами L, скорость первого пешехода V1, скорость второго пешехода V2.
More Questions From This User See All
Answers & Comments
Verified answer
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.