Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 12.02.2023, 00:46   #1
jxh
Новичок
Джуниор
 
Регистрация: 12.02.2023
Сообщений: 5
По умолчанию Сформировать две очереди с фамилиями клиентов

Сформировать две очереди с фамилиями клиентов. Слить обе очереди в третью, расположив клиен-
тов через одного.
jxh вне форума Ответить с цитированием
Старый 12.02.2023, 10:20   #2
ViktorR
Старожил
 
Регистрация: 23.10.2010
Сообщений: 2,334
По умолчанию

Прежде, чем раздавать задания другим, научись делать сам, или покажи, что сделал и что не получается.
Предложение:
1. "Лезем" в список литературы (есть в этом разделе) и "достаём" волшебную книжку: Т.А. Павловская, Паскаль. Программирование на языке высокого уровня.
2. Открываем раздел по динамическим структурам, читаем.
3. Берём готовое решение из параграфа "Очереди" (у меня это на стр. 134) и решаем свою задачу самостоятельно.
Получаем немного адреналина.

Влом?
Есть раздел, который называется Фриланс. Там за небольшую денежку сделают под ключь.
Как-то так, ...
ViktorR вне форума Ответить с цитированием
Старый 12.02.2023, 15:44   #3
jxh
Новичок
Джуниор
 
Регистрация: 12.02.2023
Сообщений: 5
По умолчанию

душно стало
jxh вне форума Ответить с цитированием
Старый 12.02.2023, 15:56   #4
digitalis
Старожил
 
Аватар для digitalis
 
Регистрация: 04.02.2011
Сообщений: 4,647
По умолчанию

Ну так никто не держит - иди проветрись
digitalis вне форума Ответить с цитированием
Старый 12.02.2023, 16:37   #5
jxh
Новичок
Джуниор
 
Регистрация: 12.02.2023
Сообщений: 5
По умолчанию

лол, такие душнилы токсичные, ещё помощи 0. Ради чего вы тут сидите?
jxh вне форума Ответить с цитированием
Старый 12.02.2023, 19:19   #6
Valick
Форумчанин
 
Регистрация: 27.04.2022
Сообщений: 495
По умолчанию

не, я сегодня добрый

Последний раз редактировалось Valick; 12.02.2023 в 20:18.
Valick вне форума Ответить с цитированием
Старый 13.02.2023, 10:19   #7
digitalis
Старожил
 
Аватар для digitalis
 
Регистрация: 04.02.2011
Сообщений: 4,647
По умолчанию

Цитата:
Сообщение от jxh Посмотреть сообщение
Ради чего вы тут сидите?
Вопрос ребром. Действительно: бросив всё, сидите тут, бездельники, в ожидании вопросов от двоечников. А если таковой соизволит выдать задание - не бросаетесь сломя голову выполнять, а ещё выёживаетесь.
Для тех, кто не понял - об этом уже 100500 раз говорено: https://www.programmersforum.ru/showthread.php?t=323061 (заголовок топика) .
Если и теперь не понял - те, кто совсем ни бум-бум, идут лесом во ФРИЛАНС и нанимают шерпов. Такса - по договорённости.

Последний раз редактировалось digitalis; 13.02.2023 в 10:24.
digitalis вне форума Ответить с цитированием
Старый 13.02.2023, 20:45   #8
Alex314
Пользователь
 
Регистрация: 14.04.2014
Сообщений: 10
По умолчанию

"Волшебную книжку" можно и не читать.

Код:
## // PascalАВС.NЕТ 3.8.3
var Q1 := new Queue<string>(Seq('Иванов_1', 'Петров_1', 'Козлова_1', 'Павлов_1'));
var Q2 := new Queue<string>(Seq('Иванов_2', 'Сидоров_2', 'Копейкина_2'));
Q1.Println;
Q2.Println;
var Q3 := new Queue<string>;
while (Q1.Count > 0) or (Q2.Count > 0) do
begin  
  if Q1.Count > 0 then Q3.Enqueue(Q1.Dequeue);
  if Q2.Count > 0 then Q3.Enqueue(Q2.Dequeue);
end;
Q3.Print
{
Иванов_1 Петров_1 Козлова_1 Павлов_1
Иванов_2 Сидоров_2 Копейкина_2
Иванов_1 Иванов_2 Петров_1 Сидоров_2 Козлова_1 Копейкина_2 Павлов_1
}
Alex314 вне форума Ответить с цитированием
Старый 14.02.2023, 18:54   #9
jxh
Новичок
Джуниор
 
Регистрация: 12.02.2023
Сообщений: 5
По умолчанию

благодарю
jxh вне форума Ответить с цитированием
Старый 15.02.2023, 01:15   #10
ViktorR
Старожил
 
Регистрация: 23.10.2010
Сообщений: 2,334
По умолчанию

Alex314
Цитата:
"Волшебную книжку" можно и не читать.
Вы это о чём?
Воспитываете глупость в тех, на ком сможете зарабатывать в будущем?

PS: Знал бы что ТС удовлетворит решение
Цитата:
## // PascalАВС.NЕТ 3.8.3
не стал бы мараться.

PS:
jxh
Цитата:
лол, такие душнилы токсичные, ещё помощи 0. Ради чего вы тут сидите?
Есть два способа помочь:
- Дать подачку
- Дать работу
Первый способ - это вырастить неблагодарного бомжа, который будет попрошайничать и плеваться в след, если не подали.
Второй способ - это вырастить человека, который сможет зарабатывать сам и кормить свою семью.
Моя помощь - это ссылка на литературу.
Но вам нужна низкопробная халява. Кушайте.
Как-то так, ...

Последний раз редактировалось ViktorR; 15.02.2023 в 01:27.
ViktorR вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
[РЕШЕНО][Pascal] поменять местами найденный максимальный элемент в очереди и первый элемент очереди Mishka_M Помощь студентам 4 16.05.2018 00:06
список книг с фамилиями авторов в алфавитном порядке IVAN17 Общие вопросы C/C++ 1 13.05.2015 15:56
В каждый момент на форме отображаются только два списка с именами и фамилиями Johny91 Помощь студентам 4 08.11.2013 14:44
С заданной целочисленной очереди организовать две: первая содержит все положительные элементы данной очереди, вторая - отрицательн wowan30002 Общие вопросы C/C++ 0 20.11.2012 17:39
Задание с Фамилиями в QBasic toprocksta Помощь студентам 4 10.06.2010 12:33