Одномерный массив (перевод кода с Паскаля)

@Dmitriy_Volkov · Регистрация: 28.12.2022

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

Помогите, пожалуйста "перевести" код с Паскаля на С++.
Условия для ознакомления: Даны координаты центров n окружностей и их радиусы. Определите число пересекающихся окружностей.

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
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
uses crt;
const nmax=15;
var x,y,r:array[1..nmax] of real;
    n,i,j,k,f:byte;
    s:real;
begin
clrscr;
repeat
write('Количество окружностей до ',nmax,' n=');
readln(n);
until n in [1..nmax];
writeln('Введите параметры окружностей:');
for i:=1 to n do
 begin
  writeln('Окружность ',i);
  write(' x=');readln(x[i]);
  write(' y=');readln(y[i]);
  repeat
  write(' r>0 r=');readln(r[i]);
  until r[i]>0;
 end;
clrscr;
writeln('Окружности:');
write('X:');
for i:=1 to n do
write(x[i]:4:1);
writeln;
write('Y:');
for i:=1 to n do
write(y[i]:4:1);
writeln;
write('R:');
for i:=1 to n do
write(r[i]:4:1);
writeln;
k:=0;
for i:=1 to n do
 begin
  f:=0;
  for j:=1 to n do
    begin
     s:= sqrt(sqr(x[i]-x[j])+sqr(y[i]-y[j]));
     if (s<r[i]+r[j])and(s>abs(r[i]-r[j])) then
      begin
       f:=1;
       break;
      end;
    end;
  if f=1 then k:=k+1;
 end;
write('Число пересекающихся окружностей=',k);
readln
end.

@Folian · 28.12.2022, 17:15

Сообщение от Dmitriy_Volkov

Помогите, пожалуйста "перевести" код с Паскаля на С++.

Проще заново.

@Dmitriy_Volkov · 28.12.2022, 17:34 **[ТС]**

Может и проще, если есть понимание, по какому алгоритму писать код.

@Folian · 28.12.2022, 21:21

Сообщение от Dmitriy_Volkov

Может и проще, если есть понимание,

Ага, ток надо понять чо такое

Сообщение от Dmitriy_Volkov

число пересекающихся окружностей

Например, если А пересекается с В - это сколько?
И, если, например, А ∩ B, B ∩ C, C ∩ D, E ∩ A, E ∩ B, F ∩ G, а Н - отделный - это сколько?

Потому что там, навскидку, написано не про число окружностей, а про количество пересечений.

Добавлено через 6 минут

Сообщение от Folian

а про количество пересечений

Причём очень странных: A ∩ B - это не то же самое что и B ∩ A

Добавлено через 24 минуты
А, кажысь понял; из общего числа окружностей вычесть отдельностоящие.

Добавлено через 2 часа 20 минут

C++
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
#include <vector>
#include <iostream>
 
struct Circle
{
    double x {};
    double y {};
    double r {};
};
 
bool operator ^ (const Circle& l, const Circle& r)
{
    double a { l.x - r.x };
    double b { l.y - r.y };
    double c { l.r + r.r };
 
    return c * c <= b * b + a * a;
}
 
std::istream& operator >> (std::istream& in, Circle& circle)
{
    return in >> circle.x >> circle.y >> circle.r;
}
 
int main()
{
    std::size_t n {};
    std::cin >> n;
 
    std::vector<Circle> vec;
    while(n--)
        std::cin >> vec.emplace_back();
 
    auto check { [](std::vector<Circle>::iterator first, std::vector<Circle>::iterator last)
        {
            auto& thing { *first };
            while(++first < last)
                if(*first ^ thing)
                    return false;
            return true;
        }
    };
 
    std::size_t res { vec.size() };
    for(auto i { vec.begin() }; i < vec.end(); ++i)
        res -= !check(i, vec.end());
 
    std::cout << "\n\n\t" << res;
 
    return 0;
}

Добавлено через 35 минут
А, ещё отдкельный случай для n == 1

Добавлено через 4 минуты

Сообщение от Folian

А, ещё отдкельный случай для n == 1

И не только, всё переделывать над; поспешыл чот

Новые блоги и статьи Все статьи Все блоги /
Вопросы на собеседовании по Android mobDevWorks 14.03.2025 По данным статистики, Android занимает более 70% мирового рынка мобильных операционных систем, что делает платформу привлекательной как для начинающих разработчиков, так и для опытных профессионалов. . . .	Лучшие игровые движки для Python py-thonny 14.03.2025 Python обеспечивает разработчиков игр мощными движками и фреймворками, которые позволяют воплотить практически любую идею — от простой аркады до визуального романа с разветвленным сюжетом. Главное. . .	Бессерверный JavaScript: Разработка масштабируемых API с AWS Lambda run.dev 14.03.2025 Но что такое бессерверные вычисления на самом деле? По сути, это модель облачных вычислений, где разработчик фокусируется исключительно на создании бизнес-логики, не тратя время на настройку. . .	Безопасность кода в C++26: Менеджеры ресурсов и висячие ссылки NullReferenced 14.03.2025 C++ всегда был языком, предоставляющим разработчикам большие возможности и гибкость, но вместе с тем требующим ответственности. Одной из самых коварных проблем даже для опытных программистов остаются. . .	smart-agent proper interface settings (2025) jigi33 14.03.2025 Smart-agent proper interface settings (mart 2025). (see screenshots to look at "Etalon" ARM)
Продвинутые настройки JVM Javaican 14.03.2025 Стандартные параметры запуска JVM хороши для повседневной разработки, но совершенно недостаточны для высоконагруженных систем. Представьте, что вы запускаете финансовую платформу, обрабатывающую. . .	CI/CD для приложений Java с Azure DevOps и Docker Mr. Docker 14.03.2025 Разработка современных Java-приложений немыслима без системы непрерывной интеграции и доставки (CI/ CD). Azure DevOps в сочетании с Docker предоставляет мощный инструментарий для создания таких. . .	Разработка на PHP и интернет вещей (IoT) Jason-Webb 14.03.2025 Интернет вещей (IoT) произвел настоящую революцию в способах взаимодействия устройств с окружающим миром. В эпоху, когда холодильники сами заказывают молоко, а термостаты учатся вашим привычкам,. . .	Node.js 20: Новые возможности и улучшения производительности Reangularity 14.03.2025 Что же принёс нам релиз Node. js 20? В первую очередь, это существенные улучшения в производительности. Движок V8 получил серьёзные оптимизации, благодаря чему JavaScript-код выполняется заметно. . .	Безопасность кластеров Apache Kafka Javaican 14.03.2025 Apache Kafka стал одним из ключевых компонентов современных архитектур, обрабатывающих потоки данных в режиме реального времени. Его используют тысячи компаний от стартапов до технологических. . .

@Folian 1710 / 1110 / 337 Регистрация: 25.01.2019 Сообщений: 2,910
	28.12.2022, 17:15	2
	Сообщение от Dmitriy_Volkov Помогите, пожалуйста "перевести" код с Паскаля на С++. Проще заново. 0

@Dmitriy_Volkov 0 / 0 / 0 Регистрация: 28.12.2022 Сообщений: 2
	28.12.2022, 17:34 [ТС]	3
	Может и проще, если есть понимание, по какому алгоритму писать код. 0