Опубликовано 10.06.2017 по предмету Информатика от Гость >> <<

Работа в Паскале.
1) Определить минимум из двух различных чисел. (усл.алгоритма)
2) Вычислить расстояние между двумя точками на прямой
r=(Xa-Xb)
Xa;Xb - коор-т. точки A и B
3) Найти значение гипотенузы в прямоуг. треугольнике по известным значениям катетов (т. Пифагора)

Ответ оставил Гость

1)
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.