Ага, а как тебе такое:
Ол импиадная задача для школьников: Определить пересекаются или нет два от резка координаты начала и конца которых вводятся с кл авиатуры.
Решение просто прелесть:
(собак)
...
ReadLn(Ax1,Ay1,Ax2,Ay2,Bx1,By1,Bx2,By2);
...
Li ne(Ax1,Ay1,Ax2,Ay2);
Line(Bx1,By2,Bx2,By2);
Ou tText('А теперь посмотри пересекаются они или нет');
....
Пр
(
Read more... )