Advertisement
Qpel

9.2.Plokštumoje yra n atkarpų, kurių galų taškų koordinatės

Jan 8th, 2018
445
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Ruby 0.74 KB | None | 0 0
  1. Plokštumoje yra n atkarpų, kurių galų taškų koordinatės - x1, y1, x2, y2. Surasti ketvirtojo ketvirčio atkarpų ilgių sumą. Atkarpos ilgiui  nustatyti sudarykite metodą.
  2. #4 5 8 3
  3. #3 -5 6 -4
  4. #-4 -5 8 5
  5. #-9 8 3 6
  6. #8 -6 4 1
  7.  
  8. def ilgis (x,y,xx,yy)
  9.   ilg=((xx-x)**2+(yy-y)**2)**0.5
  10. end
  11.  
  12. fp=File.open("input.txt", "r")
  13. rz=File.open("output.txt", "w+")
  14. x,y=[]
  15. xx,yy=[]
  16. j=0
  17. l=0
  18. sum=0
  19.  
  20. fp.each do |item|
  21. c=item.split(" ")
  22. for i in 0..c.length do
  23.   x=c[0].to_i
  24.   y=c[1].to_i
  25.   xx=c[2].to_i
  26.   yy=c[3].to_i
  27. end
  28. j+=1
  29.  
  30. if (x>0) and (y<0) and (xx>0) and (yy<0) then
  31.   ilg=ilgis(x,y,xx,yy)
  32.   sum=sum+ilg
  33.   puts "IV-ojo ketvircio #{j}-osios atkarpos ilgis #{ilg}"
  34. end
  35.  
  36. end
  37.  
  38. puts "IV ketvirtyje atkarpu ilgiu suma #{sum}"
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement