Перевести программу из паскаля в Руби

@Romixx · Регистрация: 26.11.2014

Студворк — интернет-сервис помощи студентам

Помогите пожалуйста перевести из паскаля в Руби!
Вот задание:
Дано множество A из N точек на плоскости и точка B (точки заданы своими координатами x, y). Найти точку из множества A, наиболее близкую к точке B. Расстояние R между точками с координатами (x1, y1) и (x2, y2) вычисляется по формуле: R =q(x2−x1)2 + (y2−y1)2
На паскале программа выглядит вот так!

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
program Array131;
var
X: array [1..10] of integer;
Y: array [1..20] of integer;
n,Tohka,BX,BY,i:integer;
R:real;
begin
writeln('Введите N (N<=10)');
readln(N);
writeln('Введите координаты точки В, X и Y');
read(BX);
readln(BY);
 
writeln('Значения множества точек А (X Y)');
for i:=1 to n do begin write(i,' )точка '); read(X[i]); read(Y[i]); end;
// решение 
R:=(sqrt(sqr(X[1]-BY)+sqr(BX-Y[1])));
Tohka:=1;
for i:=1 to N do
begin
if R>(sqrt(sqr(X[i]-BX)+sqr(Y[i]-BX))) then
begin R:=(sqrt(sqr(X[i]-BX)+sqr(Y[i]-BX)));
Tohka:=i;
end;
end;
 
 
Writeln;
Writeln('Ответ');
Write(tohka,' - точка с координатами ',X[tohka],' ',Y[tohka]);
end.

@j2FunOnly · 16.12.2015, 14:48

Расстояние вычисляется по формуле $https://www.cyberforum.ru/cgi-bin/latex.cgi?d = \sqrt{{(x1-x2)}^{2} + {(y1-y2)}^{2}}$
У вас ошибки в формулах на строках 17, 21, 22.

Ruby
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
print 'Введите N (N<=10): '
n = gets.chomp.to_i
puts 'Введите координаты точки В'
print 'X:'
bx = gets.chomp.to_i
print 'Y:'
by = gets.chomp.to_i
 
puts 'Значения множества точек А (X Y)'
x = Array.new(n)
y = Array.new(n)
(1..n).each do |i|
  puts "#{i} )точка "
  x[i] = gets.chomp.to_i
  y[i] = gets.chomp.to_i
end
 
tohka = 1
r = Math.sqrt((x[1] - bx)**2 + (y[1] - by)**2)
(1..n).each do |i|
  next unless r > Math.sqrt((x[i] - bx)**2 + (y[i] - by)**2)
  r = Math.sqrt((x[i] - bx)**2 + (y[i] - by)**2)
  tohka = i
end
 
puts 'Ответ'
puts "#{tohka} - точка с координатами #{x[tohka]} #{y[tohka]}"

Кликните здесь для просмотра всего текста

Ruby
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
class Point
  attr_accessor :x, :y
  
  def initialize(x, y)
    self.x = x
    self.y = y
  end
  
  def self.get_point
    puts 'Non number values will equal zero'
    print 'Type X:'
    x = gets.chomp.to_i
    print 'Type Y:'
    y = gets.chomp.to_i
    new(x,y)
  end
  
  def to_s
    "X: #{x}, Y: #{y}"
  end
 
  def distance_to(point)
    Math.sqrt((x - point.x)**2 + (y - point.y)**2)
  end
  
  # вообще-то таких точек может быть несколько
  # пока будет считаться, что одна - первая найденная
  def nearest_point(points)
    nearest = points.first
    points.each do |p|
      nearest = p if distance_to(p) < distance_to(nearest)
    end
    nearest
  end
  
  # TODO: массив точек
  def nearest_points(points)
    nearest = []
    # ...
    raise NotImplementedError.new('Use nearest_point instead.')
    return nearest
  end
end
 
point = Point.get_point
puts "You typed #{point}"
 
points = Array.new(20)
20.times { |i| points[i] = Point.new(rand(20)-10, rand(20)-10) }
 
puts 'Points:'
points.each_with_index do |p, i|
  puts "##{i}: #{p}, d = #{p.distance_to point}"
end
 
nearest = point.nearest_point points
puts "Shortest distance is #{point.distance_to nearest}. (#{nearest})"

@Romixx · 16.12.2015, 22:11 **[ТС]**

j2FunOnly, Спасибо большое)) Если поможешь еще с парой программ разобраться - отблагодарю денюжкой

Новые блоги и статьи Все статьи Все блоги /
моя боль iceja 24.01.2026 Выложила интерполяцию кубическими сплайнами www. iceja. net REST сервисы временно не работают, только через Web. Написала за 56 рабочих часов этот сайт с нуля. При помощи perplexity. ai PRO , при. . .	Модель сукцессии микоризы anaschu 24.01.2026 Решили писать научную статью с неким РОманом	http://iceja.net/ математические сервисы iceja 20.01.2026 Обновила свой сайт http:/ / iceja. net/ , приделала Fast Fourier Transform экстраполяцию сигналов. Однако предсказывает далеко не каждый сигнал (см ограничения http:/ / iceja. net/ fourier/ docs ). Также. . .	http://iceja.net/ сервер решения полиномов iceja 18.01.2026 Выкатила http:/ / iceja. net/ сервер решения полиномов (находит действительные корни полиномов методом Штурма). На сайте документация по API, но скажу прямо VPS слабенький и 200 000 полиномов. . .
Расчёт переходных процессов в цепи постоянного тока igorrr37 16.01.2026 / * Дана цепь(не выше 3-го порядка) постоянного тока с элементами R, L, C, k(ключ), U, E, J. Программа находит переходные токи и напряжения на элементах схемы классическим методом(1 и 2 з-ны. . .	Восстановить юзерскрипты Greasemonkey из бэкапа браузера damix 15.01.2026 Если восстановить из бэкапа профиль Firefox после переустановки винды, то список юзерскриптов в Greasemonkey будет пустым. Но восстановить их можно так. Для этого понадобится консольная утилита. . .	Сукцессия микоризы: основная теория в виде двух уравнений. anaschu 11.01.2026 https:/ / rutube. ru/ video/ 7a537f578d808e67a3c6fd818a44a5c4/	WordPad для Windows 11 Jel 10.01.2026 WordPad для Windows 11 — это приложение, которое восстанавливает классический текстовый редактор WordPad в операционной системе Windows 11. После того как Microsoft исключила WordPad из. . .

@Romixx 0 / 0 / 0 Регистрация: 26.11.2014 Сообщений: 14
	16.12.2015, 22:11 [ТС]
	j2FunOnly, Спасибо большое)) Если поможешь еще с парой программ разобраться - отблагодарю денюжкой 0

Перевести программу из паскаля в Руби

Решение