Очередь (массив)

@papalamer · Регистрация: 15.09.2010

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

Нужна помощь в решении задачи.

За один просмотр файла f типа real и без использования дополнительных файлов напечатать элементы файла f в следующем порядке : сначала - все числа, меньше a, затем - все числа из отрезка [a, b], и наконец - все остальные числа, сохраняя исходный взаимный порядок в каждой из этих групп чисел (a, b – заданы, a < b)

@Puporev · 16.09.2010, 13:20

papalamer, Если ты не прикалывешься, то прости, никак не ожидал. У нас тут народ веселый, везде подвох ждешь.

@papalamer · 16.09.2010, 19:59 **[ТС]**

Всё нормально, привыкну.

@papalamer · 19.09.2010, 13:23 **[ТС]**

Это опять я. Не печатает числа из отрезка [a,b]. Выводит на печать цифры >a и <b. Подскажете?

@Puporev · 19.09.2010, 13:42

papalamer, Еще раз внимательно посмотрите это сообщение
https://www.cyberforum.ru/post961533.html
и проверьте свой код, больше ничем помочь не могу, у меня все выводит.
Или приложите к теме файл своей программы.

@papalamer · 19.09.2010, 13:54 **[ТС]**

Если цифры подряд, то вы водит правильно, а если в перемешку - нет.

@Puporev · 19.09.2010, 14:04

Не придумывайте, все работает.

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
54
55
Program Lr4;
Uses  crt;
Const  n = 20; a = 20; b =40;
Type  FR = file of integer;
      mass = array [1..n] of integer;
Var f : FR;
    less_a, ab, ost : mass;
    y,i,k,l,m,first_a, last_a : integer;
Begin
ClrScr;
randomize;
assign (f, 'd:\digit.dat');
{следующие 4 строки вам не нужно, это я файл создавал для тестирования}
rewrite(f);
for i:=1 to n do
 begin
  y:=random(50);
  write(f,y);
 end;
close(f);
reset(f);
k:=0;l:=0;m:=0;
while not Eof(f) do
 begin
  read(f, y);
  if y < a then
   begin
    k:=k+1;
    less_a[k] := y;
   end
  else if (y>=a) and (y<=b) then
   begin
    l:=l+1;
    ab[l]:=y;
   end
  else
   begin
    m:=m+1;
    ost[m]:=y;
   end;
 end;
close(f);
Writeln('less_a([0..',a-1,']: ');
for i:=1 to k do
Write(less_a[i],'  ');
writeln;
Writeln('ab[',a,'..',b,']: ');
for i:=1 to l do
Write(ab[i],'  ');
writeln;
Writeln('ost[',b+1,'..50]: ');
for i:=1 to m do
Write(ost[i],'  ');
Readln
end.

@papalamer · 19.09.2010, 14:23 **[ТС]**

Наверно у меня что-то не так. Сейчас посмотрю.

@papalamer · 19.09.2010, 15:32 **[ТС]**

a=8 b=12. В этом отрезке 8,19,2,6,14,17,4,12. Как сделать, что бы выводились эти числа?

@Puporev · 19.09.2010, 15:36

a=8 b=12. В этом отрезке 8,19,2,6,14,17,4,12.

С какой стати в этом отрезке числа 19,2,14,17,4?

@papalamer · 19.09.2010, 15:50 **[ТС]**

В файле числа : 1, 20, 5, 18, 3, 10, 8, 19, 2, 6, 14, 17, 4, 12, 7, 16, 9, 15, 11, 13. a=8, b=12.
Сначала нужно вывести числа <a, потом из отрезка [a,b], потом остальные, сохраняя исходный взаимный порядок в каждой из этих групп чисел.

@Puporev · 19.09.2010, 16:00

Должно вывести
<a 1 5 3 8 2 6 4 7
[a,b] 10 8 12 9 11
>b 20 18 19 14 17 16 15 13

Добавлено через 38 секунд
У тебя так и выводит, какого еще нужно?

@papalamer · 19.09.2010, 16:08 **[ТС]**

сохраняя исходный взаимный порядок в каждой из этих групп чисел.

@Puporev · 19.09.2010, 16:11

Ну так исходный порядок и сохраняется, например для первой группы
исходный порядок
1, 20, 5, 18, 3, 10, 8, 19, 2, 6, 14, 17, 4, 12, 7, 16, 9, 15, 11, 13.
выводит
<a 1 5 3 8 2 6 4 7

@papalamer · 19.09.2010, 16:12 **[ТС]**

Для первой - да, для второй - нет.

@Puporev · 19.09.2010, 16:16

Для второй
Исходная последовательность
1, 20, 5, 18, 3, 10, 8, 19, 2, 6, 14, 17, 4, 12, 7, 16, 9, 15, 11, 13.
Выводит
[a,b] 10 8 12 9 11

@papalamer · 19.09.2010, 16:21 **[ТС]**

отрезок [a,b] : 8, 19, 2, 6, 14, 17, 4, 12. В таком порядке его и надо вывести. Может быть за исключением 2, 6, 4.

@Puporev · 19.09.2010, 16:24

сначала - все числа, меньше a, затем - все числа из отрезка [a, b], и наконец - все остальные числа, сохраняя исходный взаимный порядок в каждой из этих групп чисел

Это значит сначала выбрать все числа меньше 8, затем все числа по величине от 8 до 12 (8.9.10.11.12), затем все числа, которые больше 12.

@papalamer · 19.09.2010, 16:33 **[ТС]**

Из отрезка не по величине, а по порядку как записаны. Я так думаю.

@Puporev · 19.09.2010, 16:43

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

Я так думаю

Ну, это звучит гордо! Не смею мешать...

@papalamer · 19.09.2010, 16:45 **[ТС]**

Спасибо.

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Desktop (MinGW): Создаём пустое окно с нуля для 2D-графики на SDL3, Си и C++ 8Observer8 10.03.2026 Содержание блога Финальные проекты на Си и на C++: hello-sdl3-c. zip hello-sdl3-cpp. zip Результат:	Установка CMake и MinGW 13.1 для сборки С и C++ приложений из консоли и из Qt Creator в EXE 8Observer8 10.03.2026 Содержание блога MinGW - это коллекция инструментов для сборки приложений в EXE. CMake - это система сборки приложений. Здесь описаны базовые шаги для старта программирования с помощью CMake и. . .	Как дизайн сайта влияет на конверсию: 7 решений, которые реально повышают заявки Neotwalker 08.03.2026 Многие до сих пор воспринимают дизайн сайта как “красивую оболочку”. На практике всё иначе: дизайн напрямую влияет на то, оставит человек заявку или уйдёт через несколько секунд. Даже если у вас. . .	Модульная разработка через nuget packages DevAlt 07.03.2026 Сложившийся в . Net-среде способ разработки чаще всего предполагает монорепозиторий в котором находятся все исходники. При создании нового решения, мы просто добавляем нужные проекты и имеем. . .
Модульный подход на примере F# DevAlt 06.03.2026 В блоге дяди Боба наткнулся на такое определение: В этой книге («Подход, основанный на вариантах использования») Ивар утверждает, что архитектура программного обеспечения — это структуры,. . .	Управление камерой с помощью скрипта OrbitControls.js на Three.js: Вращение, зум и панорамирование 8Observer8 05.03.2026 Содержание блога Финальная демка в браузере работает на Desktop и мобильных браузерах. Итоговый код: orbit-controls-threejs-js. zip. Сканируйте QR-код на мобильном. Вращайте камеру одним пальцем,. . .	SDL3 для Web (WebAssembly): Синхронизация спрайтов SDL3 и тел Box2D 8Observer8 04.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-sync-physics-sprites-sdl3-c. zip На первой гифке отладочные линии отключены, а на второй включены:. . .	SDL3 для Web (WebAssembly): Идентификация объектов на Box2D v3 - использование userData и событий коллизий 8Observer8 02.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-collision-events-sdl3-c. zip Сканируйте QR-код на мобильном и вы увидите, что появится джойстик для управления главным героем. . . .

@papalamer 0 / 0 / 0 Регистрация: 15.09.2010 Сообщений: 55

	Очередь (массив) 15.09.2010, 15:07. Показов 4813. Ответов 39 Метки нет (Все метки) Нужна помощь в решении задачи. За один просмотр файла f типа real и без использования дополнительных файлов напечатать элементы файла f в следующем порядке : сначала - все числа, меньше a, затем - все числа из отрезка [a, b], и наконец - все остальные числа, сохраняя исходный взаимный порядок в каждой из этих групп чисел (a, b – заданы, a < b) 0

@Puporev Почетный модератор 64315 / 47611 / 32743 Регистрация: 18.05.2008 Сообщений: 115,167
	16.09.2010, 13:20
	papalamer, Если ты не прикалывешься, то прости, никак не ожидал. У нас тут народ веселый, везде подвох ждешь. 0

@papalamer 0 / 0 / 0 Регистрация: 15.09.2010 Сообщений: 55
	16.09.2010, 19:59 [ТС]
	Всё нормально, привыкну. 0

@papalamer 0 / 0 / 0 Регистрация: 15.09.2010 Сообщений: 55
	19.09.2010, 13:23 [ТС]
	Это опять я. Не печатает числа из отрезка [a,b]. Выводит на печать цифры >a и <b. Подскажете? 0

@Puporev Почетный модератор 64315 / 47611 / 32743 Регистрация: 18.05.2008 Сообщений: 115,167
	19.09.2010, 13:42
	papalamer, Еще раз внимательно посмотрите это сообщение https://www.cyberforum.ru/post961533.html и проверьте свой код, больше ничем помочь не могу, у меня все выводит. Или приложите к теме файл своей программы. 0

@papalamer 0 / 0 / 0 Регистрация: 15.09.2010 Сообщений: 55
	19.09.2010, 13:54 [ТС]
	Если цифры подряд, то вы водит правильно, а если в перемешку - нет. 0

@papalamer 0 / 0 / 0 Регистрация: 15.09.2010 Сообщений: 55
	19.09.2010, 14:23 [ТС]
	Наверно у меня что-то не так. Сейчас посмотрю. 0

@papalamer 0 / 0 / 0 Регистрация: 15.09.2010 Сообщений: 55
	19.09.2010, 15:32 [ТС]
	a=8 b=12. В этом отрезке 8,19,2,6,14,17,4,12. Как сделать, что бы выводились эти числа? Миниатюры 0

@papalamer 0 / 0 / 0 Регистрация: 15.09.2010 Сообщений: 55
	19.09.2010, 15:50 [ТС]
	В файле числа : 1, 20, 5, 18, 3, 10, 8, 19, 2, 6, 14, 17, 4, 12, 7, 16, 9, 15, 11, 13. a=8, b=12. Сначала нужно вывести числа <a, потом из отрезка [a,b], потом остальные, сохраняя исходный взаимный порядок в каждой из этих групп чисел. 0

@Puporev Почетный модератор 64315 / 47611 / 32743 Регистрация: 18.05.2008 Сообщений: 115,167
	19.09.2010, 16:00
	Должно вывести <a 1 5 3 8 2 6 4 7 [a,b] 10 8 12 9 11 >b 20 18 19 14 17 16 15 13 Добавлено через 38 секунд У тебя так и выводит, какого еще нужно? 0

@papalamer 0 / 0 / 0 Регистрация: 15.09.2010 Сообщений: 55
	19.09.2010, 16:08 [ТС]
	сохраняя исходный взаимный порядок в каждой из этих групп чисел. 0

@Puporev Почетный модератор 64315 / 47611 / 32743 Регистрация: 18.05.2008 Сообщений: 115,167
	19.09.2010, 16:11
	Ну так исходный порядок и сохраняется, например для первой группы исходный порядок 1, 20, 5, 18, 3, 10, 8, 19, 2, 6, 14, 17, 4, 12, 7, 16, 9, 15, 11, 13. выводит <a 1 5 3 8 2 6 4 7 0

@papalamer 0 / 0 / 0 Регистрация: 15.09.2010 Сообщений: 55
	19.09.2010, 16:12 [ТС]
	Для первой - да, для второй - нет. 0

@Puporev Почетный модератор 64315 / 47611 / 32743 Регистрация: 18.05.2008 Сообщений: 115,167
	19.09.2010, 16:16
	Для второй Исходная последовательность 1, 20, 5, 18, 3, 10, 8, 19, 2, 6, 14, 17, 4, 12, 7, 16, 9, 15, 11, 13. Выводит [a,b] 10 8 12 9 11 0

@papalamer 0 / 0 / 0 Регистрация: 15.09.2010 Сообщений: 55
	19.09.2010, 16:21 [ТС]
	отрезок [a,b] : 8, 19, 2, 6, 14, 17, 4, 12. В таком порядке его и надо вывести. Может быть за исключением 2, 6, 4. 0

@papalamer 0 / 0 / 0 Регистрация: 15.09.2010 Сообщений: 55
	19.09.2010, 16:33 [ТС]
	Из отрезка не по величине, а по порядку как записаны. Я так думаю. 0

@papalamer 0 / 0 / 0 Регистрация: 15.09.2010 Сообщений: 55
	19.09.2010, 16:45 [ТС]
	Спасибо. 0