В файле дан массив интервалов на числовой оси - правильно считать их

@CerbeR-Lex · Регистрация: 02.11.2014

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

Вот допустим в файле находится такая запись (числа произвольные)
12 23 465 56 91 78 542 7 63 213 и т.д. Будем считать, что (12 23 465) - 1-ый интервал, (56 91) - второй, (78 542) и так далее. Так вот, как считать эти интервалы из файла, чтобы паскаль понимал, что 1-ый интервал это именно (12 23 465), (56 91) - второй, чтобы потом уже можно было как-то пользоваться этими интервалами. Или эти интервалы должны выглядеть в файле как-то иначе?

@Joy · 10.04.2015, 09:29

нормально выглядят

Pascal
1
2
3
4
5
6
7
8
9
10
var
  j,a:integer;
begin
  while not eoln do begin
   read(a);
   if j>a then writeln;
   write(a,' ');
   j:=a;
  end;
end.

@Puporev · 10.04.2015, 09:30

Вот на Вашем примере в Паскаль АВС(простом).
Файл в папке с программой.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
var f:text;
    a,b:integer;
begin
assign(f,'1.txt');
reset(f);
read(f,a);
write(a);
while not seekeof(f) do
 begin
  read(f,b);
  if b>=a then write(' ',b)
  else
   begin
    writeln('');
    write(b);
   end;
  a:=b;
 end;
close(f);
end.

@CerbeR-Lex · 10.04.2015, 12:02 **[ТС]**

Из файла с таким содержимым: 12 23 465 56 91 78 542 7 63 213. Файл стал с вот таким содержимым
12 23 465
56 91
78 542
7 63 213

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
var f,g:text;
a,b:integer;
begin
assign(f,'C:\Users\CerbeR\Desktop\инф\nf.txt');assign(g,'C:\Users\CerbeR\Desktop\инф\ng.txt');
reset(f);rewrite(g);
read(f,a);
write(g,a);
while not seekeof(f) do
begin
read(f,b);
if b>=a then write(g,' ',b)
else
begin
writeln(g,'');
write(g,b);
end;
a:=b;
end;
close(f);close(g);
end.

Потом мне надо будет найти пересечение этих интервалов.
Теперь что нужно сделать, чтобы вообще можно было сравнить эти интервалы? каждая строчка новый массив?
(Строчек может быть как больше,так и меньше)

@Puporev · 10.04.2015, 12:05

Pascal
1
2
assign(f,'C:\Users\CerbeR\Desktop\инф\nf.txt');assign(g,'C:\Users\CerbeR\Desktop\инф\ng.txt');
reset(f);rewrite(g);

Это что за чушь? У меня разве так?

Добавлено через 39 секунд

Pascal
1
close(f);close(g);

А чо не 10 раз?

@CerbeR-Lex · 10.04.2015, 12:14 **[ТС]**

Зачем вы так резко, разве так нельзя? Если можно продолжить без сохранения полученного результата, так вы просто скажите, как это сделать

@Joy · 10.04.2015, 13:27

CerbeR-Lex, задание полностью напиши

Добавлено через 19 секунд
и на каком диалекте паскаля пишешь?

@CerbeR-Lex · 10.04.2015, 18:59 **[ТС]**

В файле дан массив интервалов на числовой оси. Написать функцию, определяющую количество интервалов, содержащих заданную точку (пересечение), и с ее помощью составить таблицу подынтервалов с подсчитанным количеством пересечений интервалов.
(на турбо паскале)

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Основы отладки веб-приложений на SDL3 по USB и Wi-Fi, запущенных в браузере мобильных устройств 8Observer8 07.02.2026 Содержание блога Браузер Chrome имеет средства для отладки мобильных веб-приложений по USB. В этой пошаговой инструкции ограничимся работой с консолью. Вывод в консоль - это часть процесса. . .	SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве 8Observer8 02.02.2026 Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .	Философия технологии iceja 01.02.2026 На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .	SDL3 для Web (WebAssembly): Вывод текста со шрифтом TTF с помощью SDL3_ttf 8Observer8 01.02.2026 Содержание блога В этой пошаговой инструкции создадим с нуля веб-приложение, которое выводит текст в окне браузера. Запустим на Android на локальном сервере. Загрузим Release на бесплатный. . .
SDL3 для Web (WebAssembly): Сборка C/C++ проекта из консоли 8Observer8 30.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .	SDL3 для Web (WebAssembly): Установка Emscripten SDK (emsdk) и CMake для сборки C и C++ приложений в Wasm 8Observer8 30.01.2026 Содержание блога Для того чтобы скачать Emscripten SDK (emsdk) необходимо сначало скачать и уставить Git: Install for Windows. Следуйте стандартной процедуре установки Git через установщик. . . .	SDL3 для Android: Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 29.01.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами. Версия v3 была полностью переписана на Си, в. . .	Инструменты COM: Сохранение данный из VARIANT в файл и загрузка из файла в VARIANT bedvit 28.01.2026 Сохранение базовых типов COM и массивов (одномерных или двухмерных) любой вложенности (деревья) в файл, с возможностью выбора алгоритмов сжатия и шифрования. Часть библиотеки BedvitCOM Использованы. . .

@CerbeR-Lex 0 / 0 / 0 Регистрация: 02.11.2014 Сообщений: 23

	В файле дан массив интервалов на числовой оси - правильно считать их 09.04.2015, 22:27. Показов 865. Ответов 7 Метки нет (Все метки) Вот допустим в файле находится такая запись (числа произвольные) 12 23 465 56 91 78 542 7 63 213 и т.д. Будем считать, что (12 23 465) - 1-ый интервал, (56 91) - второй, (78 542) и так далее. Так вот, как считать эти интервалы из файла, чтобы паскаль понимал, что 1-ый интервал это именно (12 23 465), (56 91) - второй, чтобы потом уже можно было как-то пользоваться этими интервалами. Или эти интервалы должны выглядеть в файле как-то иначе? 0

@CerbeR-Lex 0 / 0 / 0 Регистрация: 02.11.2014 Сообщений: 23
	10.04.2015, 12:14 [ТС]
	Зачем вы так резко, разве так нельзя? Если можно продолжить без сохранения полученного результата, так вы просто скажите, как это сделать 0

@Joy 2388 / 1300 / 1492 Регистрация: 29.08.2014 Сообщений: 4,665
	10.04.2015, 13:27
	CerbeR-Lex, задание полностью напиши Добавлено через 19 секунд и на каком диалекте паскаля пишешь? 0

@CerbeR-Lex 0 / 0 / 0 Регистрация: 02.11.2014 Сообщений: 23
	10.04.2015, 18:59 [ТС]
	В файле дан массив интервалов на числовой оси. Написать функцию, определяющую количество интервалов, содержащих заданную точку (пересечение), и с ее помощью составить таблицу подынтервалов с подсчитанным количеством пересечений интервалов. (на турбо паскале) 0