Advertisement
Guest User

Untitled

a guest
Sep 19th, 2019
90
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 1.54 KB | None | 0 0
  1. program lab1;
  2.  
  3. var
  4. a, b, x0, xl, xr, y, ys: real;
  5.  
  6.  
  7. begin
  8. read(x0, a, b, xl, xr, y);
  9. ys := sqrt(sqr(b) - (sqr(b) * sqr(((xr + xl) / 2) - x0)) / sqr(a));
  10. if xl < (x0 - a) then
  11. if xr < (x0 - a) then
  12. write('Не пересекаются')
  13. else if xr = (x0 - a) then
  14. write('Касание')
  15. else
  16. write('Пересекаются') else if xl > (x0 + a) then
  17. write('Не пересекаются')
  18. else if xr > (x0 + a) then
  19. write('Пересекаются')
  20. else if (xl = (x0 - a)) and (xr = (x0 + a)) and (y = ys) then
  21. write('Внутреннее касание трех точек')
  22. else if (xl = (x0 - a)) and (xr = (x0 + a)) then
  23. write('Внутреннее касание двух вершин при основании')
  24. else if (xl = (x0 - a)) and (y = ys) then
  25. write('Внутреннее касание левой и верхней точки')
  26. else if (xr = (x0 + a)) and (y = ys) then
  27. write('Внутреннее касание правой и верхней точки')
  28. else if xl = (x0 - a) then
  29. write('Внутреннее касание левой точки')
  30. else if xr = (x0 + a) then
  31. write('Внутреннее касание правой точки')
  32. else if y = ys then
  33. write('Внутреннее касание верхней точкой')
  34. else if y > ys then
  35. write('Пересекаются')
  36. else
  37. write('Не пересекаются') ;
  38. end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement