Работа в Паскале.
1) Определить минимум из двух различных чисел. (усл.алгоритма)
2) Вычислить расстояние между двумя точками на прямой
r=(Xa-Xb)
Xa;Xb - коор-т. точки A и B
3) Найти значение гипотенузы в прямоуг. треугольнике по известным значениям катетов (т. Пифагора)
1) Определить минимум из двух различных чисел. (усл.алгоритма)
2) Вычислить расстояние между двумя точками на прямой
r=(Xa-Xb)
Xa;Xb - коор-т. точки A и B
3) Найти значение гипотенузы в прямоуг. треугольнике по известным значениям катетов (т. Пифагора)
More Questions From This User See All
Answers & Comments
var
a,b:integer;
begin
write('Введите 2 числа: ');
read(a,b);
if a>b
then
write('Первое число больше второго')
else
write('Второе число больше первого');
end.
2)
var
a,b:real;
begin
write('Введите координаты X точек: ');
read(a,b);
write('Расстояние между точками = ', abs(a-b));
end.
3)
var
a,b:real;
begin
write('Введите значения катетов: ');
read(a,b);
write('Гипотенуза равна ', sqrt(sqr(a)+sqr(b)));
end.