Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
0 / 0 / 0
Регистрация: 14.12.2009
Сообщений: 6
1

Очередь- как разобраться!!!!!

15.12.2009, 17:44. Просмотров 492. Ответов 0
Метки нет (Все метки)

Помогите пожалуйста решить задачу с помошью очереди:
Найдите среди четерёх очередей две одинаковые.

Я начала писать а что дальше не знаю((((
{тут описан ввод очередей, а как найти равные????????}
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
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
 uses Crt;
 type Alfa= INTEGER; 
   PComp= ^Comp;
   Comp=record
          sD:Alfa;
          pNext:PComp
        end;
 var pBegin1, pEnd1,pBegin2, pEnd2,pBegin3, pEnd3,pBegin4, pEnd4: PComp;
     O1, O2,O3,O4: Alfa; I,J,K,L,kol: INTEGER;
 
 Procedure CreateQueue(var pBegin,pEnd: PComp; var sC: Alfa);
 begin
   New(pBegin);
   pBegin^.pNext:=NIL;
   pBegin^.sD:=sC;
   pEnd:=pBegin
 end;
 
 Procedure AddQueue(var pEnd:PComp; var sC:Alfa);
   var pAux: PComp;
 begin
   New(pAux);
   pAux^.pNext:=NIL;
   pEnd^.pNext:=pAux;
   pEnd:=pAux;
   pEnd^.sD:=sC
 end;
 Procedure DelQueue(var pBegin: PComp; var sC: Alfa);
 begin
   sC:=pBegin^.sD;
   pBegin:=pBegin^.pNext
 end;
 
{procedure ravno(var x1,x2:alfa);
begin
while x2<>nil do
begin
if x2^.sd=x1^.sd then
begin
x1:= x1^.pNext;
x2:= x2^.pNext;
if x1=nil then write (x1,' ne ravno  ', x2)
else x2:=x2^.sd
end
end;   }
 
 begin
 clrscr;
 I:=0; J:=0; K:=0;  L:=0; kol:=0 ;
 writeln(' VVEDIE STROKU OCHEREDI '); readln(O1);
 CreateQueue(pBegin1,pend1,O1);
 repeat
 writeln(' VVEDIE STROKU OCHEREDI ');
 readln(O1);
 AddQueue(pEnd1,O1);
 INC(i)
 until O1=0;
 writeln('******************************** ');
 writeln(' VVEDIE STROKU OCHEREDI '); readln(O2);
 CreateQueue(pBegin2,pend2,O2);
 repeat
 writeln(' VVEDIE STROKU OCHEREDI ');
 readln(O2);
 AddQueue(pEnd2,O2) ;
 INC(J)
 until O2=0;
 writeln('******************************** ');
 writeln(' VVEDIE STROKU OCHEREDI '); readln(O3);
 CreateQueue(pBegin3,pend3,O3);
 repeat
 writeln(' VVEDIE STROKU OCHEREDI ');
 readln(O3);
 AddQueue(pEnd3,O3);
 INC(K)
 until O3=0;
 writeln('******************************** ');
 writeln(' VVEDIE STROKU OCHEREDI '); readln(O4);
 CreateQueue(pBegin4,pend4,O4);
 repeat
 writeln(' VVEDIE STROKU OCHEREDI ');
 readln(O4);
 AddQueue(pEnd4,O4) ;
 INC(L)
 until O4=0;
 writeln(' -----OCHERED 1 -----');
 repeat
 DelQueue(pBegin1,O1);
 writeln(O1);
 until pBegin1=NIL ;
 writeln(' -----OCHERED 2 -----');
 repeat
 DelQueue(pBegin2,O2);
 writeln(O2);
 until pBegin2=NIL ;
 writeln(' -----OCHERED 3 -----');
 repeat
 DelQueue(pBegin3,O3);
 writeln(O3);
 until pBegin3=NIL ;
 writeln(' -----OCHERED 4 -----');
 repeat
 DelQueue(pBegin4,O4);
 writeln(O4);
 until pBegin4=NIL ;
    if (i<>j) and (i<>k) and (i<>l) and (j<>k)
    and (j<>l) and (k<>l) then writeln ('net odinakovyh ocheredej')
    else
 
 
 
   READLN
end.
Добавлено через 1 час 39 минут
Помогите, пожалуйста!!
ниужели никто не знает чо с этим делать???????????

Добавлено через 17 часов 48 минут
Народ, ну пажалуста.......
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
15.12.2009, 17:44
Ответы с готовыми решениями:

Как переделать очередь основанную на массиве в циклическую очередь
Как переделать очередь основанную на массиве в циклическую очередь? Тут кое-какие попытки. Беда с...

Как подписать комментарии и разобраться с работой кода? Дали задание разобраться и объяснить, а я совсем новичок
using System; using System.Collections.Generic; using System.ComponentModel; using System.Data;...

Сформировать односвязную очередь из элементов, которые входят в очередь Q1, но не входят в очередь Q2
Составить программу обработки динамической структуры данных: сформировать односвязную очередь Q из...

Задали работу, не могу разобраться. Используется делфи 10, не могу разобраться, как это сделать
В одномерном массиве, состоящем из n вещественных элементов, вычислить: минимальный элемент массива...

0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
15.12.2009, 17:44

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Очередь (сделать очередь, чтобы добавляло, удаляло, читало. Не STL.)
Помогите пожалуйста написать очередь. Есть Температура double и ее тип int ну и нужно сделать...

Сформировать очередь по файлу целых чисел. Промоделировать очередь в супермаркете
Сформировать очередь по файлу целых чисел. Промоделировать очередь в супермаркете. В каждый момент...

Возможно ли смоделировать очередь, где условие входа в очередь задаётся логическим выражением?
Доброго всем дня! Моделирую Lean/Kanban, есть такое требование: пользователь должен иметь...

Дана очередь с вещественными числами, упорядоченными по убыванию. Добавить в очередь среднее арифметическое элементов
Дана очередь с вещественными числами, упорядоченными по убыванию. Добавить в очередь среднее...

Задача на очередь (вывод сообщения, что очередь пуста)
Доброго дня! Есть задачка на очередь, которая работает нормально, только надо добавить код, чтобы...

Сформировать очередь, содержащую целые числа. Построить новую очередь, состоящую из элементов первоначальной очереди Q,
Сформировать очередь, содержащую целые числа. Построить новую очередь, состоящую из элементов...


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

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

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