Advertisement
Qpel

Untitled

Dec 14th, 2017
387
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Ruby 1.02 KB | None | 0 0
  1. #2.  Tekstiniame faile duotos plokštumoje nubrėžtų apskritimų centrų koordinatės (x,y) ir spinduliai R. Sudarykite metodus apskritimo ilgiui ir perimetrui apskaičiuoti. Rezultatus įrašyti į tekstinį failą. Rasti:
  2. #a)  Apskritimų perimetrus.
  3. #b)  Kurio apskritimo I ketvirtyje ilgis didžiausias?
  4. #c)  Kiek apskritimų patenka į IV ketvirtį?
  5.  
  6. #4 5 8
  7. #3 -5 6
  8. #-4 -5 8
  9. #-9 8 3
  10. #8 -6 4
  11.  
  12. def ilgis (r)
  13.   ilg=r*2
  14. end
  15.  
  16. def perimetras (r)
  17.   p=2*3.14*r
  18. end
  19.  
  20. fp=File.open("input.txt", "r")
  21. rz=File.open("output.txt", "w+")
  22. x,y=[]
  23. max=0
  24. j=0
  25. l=0
  26. t=0
  27. stac=0
  28.  
  29. fp.each do |item|
  30. c=item.split(" ")
  31. for i in 0..c.length do
  32.   x=c[0].to_i
  33.   y=c[1].to_i
  34.   r=c[2].to_i
  35. end
  36. ilg=ilgis(r)
  37. per=perimetras(r)
  38. j+=1
  39. if(x>0) and (y>0) then
  40.   if ilg>max then
  41.     max=per
  42.     t=j
  43.   end
  44. end
  45. if (x>0) and (y<0) then
  46.   stac=stac+1
  47. end
  48.  
  49. puts "#{j} - ojo staciakampio ilgis #{per}"
  50. puts "\n"
  51. end
  52.  
  53. puts "#{t} -ojo staciakampio I ketv perimetras didz. #{max} \n"
  54. puts "IV ketvirtyje yra staciakambiu #{stac}"
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement