1. Проверить принадлежит ли число A отрезку BC. (pascal (if then))
№ 1 | Автор: nab |
2010-02-19, 08:58
|
Репутация: [ + 0 ]
|
|
|
№ 1 | Автор: nab |
2010-02-19, 08:58
|
Репутация: [ + 0 ]
|
|
|
|
поздно, но пусть будет)
var
a1,a2,b1,b2,c1,c2,d1,d2:real;
begin
write('Введите координаты точки А');
readln(a1, a2);
write('Введите координаты точки B');
readln(b1, b2);
write('Введите координаты точки C');
readln(c1, c2);
d1:=(c1-a1)/(b1-a1);
d2:=(c2-a2)/(b2-a2);
if d1=d2 then
writeln('Точка С принадлежит отрезку АВ')
esle
writeln('Точка С не принадлежит отрезку АВ');
readln();
end.
на паскале не проверял, но должно работать)
|
|
|
|
