Проверить является ли интервалом объединение нескольких интервалов

@hostel656 · Регистрация: 18.03.2016

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

Delphi

type otr=record//тип интервал
         nc,kn:integer;//начало, конец
         end;
var a:array[1..100] of otr;//массив интервалов
    n,i,j:integer;
    x:otr;//буфер для сортировки
begin
clrscr;
write('Количество интервалов n=');
readln(n);
writeln('Введите границы ',n,' интервалов:');
for i:=1 to n do
 begin
  writeln(' Интервал ',i);
  write('  начало=');readln(a[i].nc);
  write('  конец=');readln(a[i].kn);
 end;
clrscr;
writeln('Интервалы:');
for i:=1 to n do
write('[',a[i].nc,',',a[i].kn,']  ');
writeln;
writeln;
for i:=1 to n-1 do//сортируем по возрастанию начала интервалов
for j:=i+1 to n do
if a[i].nc>a[j].nc then
 begin
  x:=a[i];
  a[i]:=a[j];
  a[j]:=x;
 end;
writeln('Интервалы по возрастанию начала:');
for i:=1 to n do
write('[',a[i].nc,',',a[i].kn,']  ');
writeln;
writeln;
for i:=2 to n do//ищем разрывы
if a[i].nc>a[i-1].kn then//ннашли, сообщаем и завершаем программу
 begin
  writeln('Эти интервалы не образуют общий интервал!');
  readln;
  exit;
 end;
writeln('Эти интервалы образуют общий интервал.');
write('начало=',a[1].nc,'  конец=',a[n].kn);//начало и конец общего интервала
readln
end.

Люди добрые. Убей бог, не знаю Delphi...Помогите пожалуйста перевести программу.

@hostel656 · 28.03.2016, 21:35 **[ТС]**

C++

#include "stdafx.h"
#include <iostream>
 
using namespace std;
int main()
{
    setlocale(LC_ALL, "RUS");
    int n;
    int *a = new int[255];
    int *b = new int[255];
    cout << "Введите кол-во чисел: " << endl;
    cin >> n;
    cout << "Введите левый ряд чисел: " << endl;
    for (int i = 0; i < n; i++)
        cin >> a[i];
    cout << "Введите второй ряд чисел: " << endl;
    for (int i = 0; i < n; i++)
        cin >> b[i];
    for (int i = n - 1; i >= 0; i--)
    {
        for (int j = 0; j < i; j++)
        {
            if (a[j] > a[j + 1])
            {
                int tmp = a[j];
                a[j] = a[j + 1];
                a[j + 1] = tmp;
            }
        }
    }
    for (int i = n - 1; i >= 0; i--)
    {
        for (int j = 0; j < i; j++)
        {
            if (b[j] > b[j + 1])
            {
                int tmp = b[j];
                b[j] = b[j + 1];
                b[j + 1] = tmp;
            }
        }
    }

Вот задание:
Даны действительные числа a1, a2, ... , a2n. Эти точки определяют n интервалов числовой оси (a1, a2), (a3, a4), ..., (a2n-1, a2n). Является ли интервалом объединение этих интервалов? Если да, то указать концы этого интервала.
Подскажите, как мне реализовать следующее:
Если (предположим, что мы взяли 2 числа) a2<a3, тогда получается, что между ними есть пробел, в противном случае - нет пробела.

@bizba · 28.03.2016, 21:52

Не совсем понял вопрос...А в первой части вы сортируете a и b по возрастанию с какой целью?

@hostel656 · 28.03.2016, 21:56 **[ТС]**

bizba, ну мне нужно сравнить два массива так, чтобы a[второе число]<b[первое число]

@bizba · 28.03.2016, 22:34

первая часть магии:

C++

#include <iostream>
 
using namespace std;
int main()
{
    setlocale(LC_ALL, "RUS");
 
    struct s_otr{
    int nc;
    int kn;
    };
 
    s_otr otr[100];
    int n,i,j;
    s_otr xotr;
 
    cout << "Введите кол-во чисел: ";
    cin >> n;
    cout << "Введите границы " << n <<" интервалов:" << endl;
 
    for(i=0; i<n; i++){
        cout<< "Интервал "<< i <<endl;
        cout<< "Начало=";
        cin >> otr[i].nc;
        cout<< "Конец=";
        cin >> otr[i].kn;
 
    }
    cout<<endl;
    cout<< "Интервалы: "<<endl;
    for(i=0; i<n; i++)
        cout<<"["<<otr[i].nc<<","<<otr[i].kn<<"] ";
    cout<<endl;
 
//сортируем по возрастанию начала интервалов
 
    for(i=0;i<n-2;i++){
        for(j=i+1; j<n ; j++){
            if(otr[i].nc > otr[j].nc){
                xotr = otr[i];
                otr[i]=otr[j];
                otr[j]=xotr;
            }
        }
    }
 
    cout<<endl;
    cout<< "Интервалы по возрастанию начала: "<<endl;
    for(i=0; i<n; i++)
        cout<<"["<<otr[i].nc<<","<<otr[i].kn<<"] ";
    cout<<endl;
 
 
}

Добавлено через 8 минут
и продолжение:

C++

//ищем разрывы
 
    for(i=1; i<n; i++ ){
        if(otr[i].nc > otr[i-1].kn){
            cout<< "Эти интервалы не образуют общий интервал!"<< endl;
            return 1;
        }
    }
 
    cout<<"Эти интервалы образуют общий интервал!"<< endl;
    cout<<"Начало="<< otr[0].nc << " конец="<< otr[n-1].kn<<endl;
    return 0;

@hostel656 · 28.03.2016, 23:30 **[ТС]**

C++

// Задача 6(2).cpp: определяет точку входа для консольного приложения.
//
 
#include "stdafx.h"
#include <iostream>
#include <conio.h>
 
using namespace std;
struct s_otr {
    int nc;
    int kn;
};
int main()
{
    setlocale(LC_ALL, "RUS");
    s_otr otr[100];
    int n, i, j;
    s_otr xotr;
    cout << "Введите кол-во чисел: ";
    cin >> n;
    cout << "Введите границы " << n << " интервалов:" << endl;
    for (i = 0; i<n; i++) {
        cout << "Интервал " << i << endl;
        cout << "Начало=";
        cin >> otr[i].nc;
        cout << "Конец=";
        cin >> otr[i].kn;
    }
    cout << endl;
    cout << "Интервалы: " << endl;
    for (i = 0; i<n; i++)
        cout << "[" << otr[i].nc << "," << otr[i].kn << "] ";
    cout << endl;
    for (i = 0;i<n - 2;i++) {
        for (j = i + 1; j<n; j++) {
            if (otr[i].nc > otr[j].nc) {
                xotr = otr[i];
                otr[i] = otr[j];
                otr[j] = xotr;
            }
        }
    }
    cout << endl;
    cout << "Интервалы по возрастанию начала: " << endl;
    for (i = 0; i < n; i++)
        cout << "[" << otr[i].nc << "," << otr[i].kn << "] ";
        cout << endl;
        for (i = 1; i<n; i++)
        {
            if (otr[i].nc > otr[i - 1].kn)
                cout << "Эти интервалы не образуют общий интервал!" << endl;
            else
                cout << "Эти интервалы образуют общий интервал!" << endl;
        }
cout << "Начало=" << otr[0].nc << " конец=" << otr[n - 1].kn << endl;
system("pause");
return 0;
}

Собственно проблема в том, что он узнаёт, образуют ли интервалы общий интервал
Укажите, пожалуйста, на ошибку

Добавлено через 10 минут
не узнаёт*

@mir16 · 29.03.2016, 13:46

почему-же не узнаёт? только интервалы по порядку вводить надо, что-бы конец был правильным

@bizba 6 / 6 / 4 Регистрация: 29.10.2015 Сообщений: 45
	28.03.2016, 21:52	3
	Не совсем понял вопрос...А в первой части вы сортируете a и b по возрастанию с какой целью? 0

@hostel656 1 / 1 / 0 Регистрация: 18.03.2016 Сообщений: 82
	28.03.2016, 21:56 [ТС]	4
	bizba, ну мне нужно сравнить два массива так, чтобы a[второе число]<b[первое число] 0

@mir16 90 / 84 / 42 Регистрация: 27.09.2015 Сообщений: 316
	29.03.2016, 13:46	7
	почему-же не узнаёт? только интервалы по порядку вводить надо, что-бы конец был правильным Миниатюры 0

Проверить является ли интервалом объединение нескольких интервалов

Решение