Новые сообщения · Правила  
Страница 1 из 11
Модератор форума: Berestovskiy 
Форум ПРОГРАММИСТОВ » ПРОГРАММИРОВАНИЕ » Паскаль » pascal
pascal
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.

на паскале не проверял, но должно работать)
2 | Автор: =GR@VЕ= | 2013-06-25, 16:34   |  Репутация: [ + 0 ]
Форум ПРОГРАММИСТОВ » ПРОГРАММИРОВАНИЕ » Паскаль » pascal
Страница 1 из 11
Поиск: