1 / 1 / 0
Регистрация: 18.03.2016
Сообщений: 82
1

Определить является ли интервалом числовой оси объединение заданных интервалов

18.03.2016, 21:47. Показов 2184. Ответов 2

Помогите написать программу:
Даны действительные числа a1, a2, ... , a2n. Эти точки определяют n интервалов числовой оси (a1, a2), (a3, a4), ..., (a2n-1, a2n). Является ли интервалом объединение этих интервалов? Если да, то указать концы этого интервала.
Заранее, огромное спасибо!!!
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
18.03.2016, 21:47
Ответы с готовыми решениями:

Является ли интервалом объединение заданных интервалов?

Проверить является ли интервалом объединение нескольких интервалов
type otr=record//тип интервал nc,kn:integer;//начало, конец end; var a:array...

Имеются ли точки числовой оси, принадлежащие по крайней мере трем из заданных интервалов?
Даны действительные числа a1, a2, ... , a2n. Эти точки определяют n интервалов числовой (a1, a2),...

Имеются ли точки числовой оси, принадлежащие по крайней мере трем каким нибудь из данных интервалов?
помогите решить заранее спасибо=) 1. Даны целые числа A 1, A 2, ... , A n и B 1, B 2, ... , B...

2
1 / 1 / 0
Регистрация: 18.03.2016
Сообщений: 82
27.03.2016, 13:03  [ТС] 2
Дано несколько интервалов, количество которых, определяется вводом. Каждый интервал состоит из двух точек числовой оси, опять же, определяемых вводом. Нужно узнать, является ли интервалом объединение этих интервалов? Если да, то указать концы этого интервала.
0
1 / 1 / 0
Регистрация: 18.03.2016
Сообщений: 82
27.03.2016, 13:10  [ТС] 3
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
const n=10;
type inter=record
       a1,a2:real
      end;
     mas=array[1..n] of inter;
var m:mas;
    temp:inter;
    t,max,min:real;
    i,j:integer;
begin
 randomize;
 for i:=1 to n do
  with m[i] do
   begin
    a1:=-random*(20)+random*(20);
    a2:=-random*(20)+random*(20);
    write('(',a1:0:1,',',a2:0:1,') ');
    {если начало интервала меньше чем значение конца - меняем их местами}
    if a2<a1 then begin t:=a1;a1:=a2;a2:=t end;
   end;
 {сортируем интервалы по началу}
 for i:=1 to n-1 do
  for j:=1 to n-i do
    if m[j].a1>m[j+1].a1
     then
      begin
       temp:=m[j];
       m[j]:=m[j+1];
       m[j+1]:=temp
      end;
  max:=m[1].a2;    
  {находим максимальное значение конца интервалов}
  for i:=2 to n do if m[i].a2>max then max:=m[i].a2;
  writeln;
  min:=m[1].a2;
  {сдвигаем min так, чтобы интервалы перекрывали друг друга}
  for i:=1 to n do 
   with m[i] do
    if (a1<min)and(min<a2) then min:=a2;
  {вывод результата}
  if min=max
   then
    begin
     min:=m[1].a1;
     writeln('интервал (',min:0:1,', ',max:0:1,') является объединением всех интервалов');
    end
   else writeln('объединение всех интервалов не интервал') 
end.
Помогите перевести на язык С++
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
27.03.2016, 13:10

Имеются ли точки числовой оси, принадлежащие по крайней мере трем каким-нибудь из данных интервалов
Имеется вот такая задача с данным условием: Даны действительные числа a1, a2, ... , a2n. Эти точки...

Является ли интервалом объединение заданных интервалов?
Даны действительные числа a1, a2, ... , a2n. Эти точки определяют n интервалов числовой оси (a1,...

Массивы в Delphi (Console): Определить, является ли интервалом объединение этих интервалов
Даны действительные числа a1, a2, ... , a2n. Эти точки определяют n интервалов числовой оси (a1,...

Является ли интервалом объединение интервалов
2. Даны действительные числа a1, a2, ... , a2n. Эти точки определяют n интервалов числовой оси (a1,...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.