|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
06.04.2020, 10:19 | #1 |
Новичок
Джуниор
Регистрация: 11.10.2019
Сообщений: 5
|
Двухпутевое естественное слияние
помогите....
Частное предприятие занимается приобретением у изготовителей шоколадных конфет в упаковках (коробках) и их продажей частным лицам и организациям. Сведения о конфетах включают в себя следующие данные: □ название; □ вес упаковки; □ цена упаковки; □ изготовитель; □ дата выпуска; □ срок хранения. Вывести сведения о конфетах, упорядочив их по названию. Использовать двухпутевое естественное слияние. Вариант без сортировки: uses crt; const n = 2; type sweets = record name: string; weight: byte; cost: integer; maker: string; data: string; save: 1..6; end; var i,j: integer; x: sweets; konf: array [1..n] of sweets; BEGIN writeln('---КОНФЕТЫ---'); for i:= 1 to n do begin with konf[i] do begin write('Название: '); readln(name); write('Масса нетто, кг: '); readln(weight); write('Цена упаковки, руб: '); readln(cost); write('Изготовитель: '); readln(maker); write('Дата выпуска: '); readln(data); write('Срок хранения, мес.: '); readln(save); end; end; writeln('Назв. кг руб Изгот. Дата в. мес. '); for i:= 1 to n do with konf[i] do begin writeln(name:5, weight:7, cost:7, maker:7, data:7, save:7); end; writeln('-------------------------------------------------------------'); for i:=1 to n-1 do for j:=i+1 to n do if konf[i].name>konf[j].name then begin x:=konf[i]; konf[i]:=konf[j]; konf[j]:=x; end; writeln('Упорядочение по названию'); writeln('Назв. кг руб Изгот. Дата в. мес. '); for i:= 1 to n do with konf[i] do begin writeln(name:5, weight:7, cost:7, maker:7, data:7, save:7); end; end. А как сделать с использованием файлов и двухпутевого естественного слияния? Последний раз редактировалось Annett#; 06.04.2020 в 11:16. |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Внешняя сортировка (естественное слияние) | (Нафаня) | Помощь студентам | 2 | 22.04.2013 08:09 |
Внешняя сортировка(естественное слияние) | (Нафаня) | Помощь студентам | 2 | 07.04.2013 15:57 |
Естественное слияние | Sparky | Помощь студентам | 0 | 31.05.2010 19:09 |
С++ Естественное двухпутёвое слияние | Dobray | Помощь студентам | 2 | 23.12.2009 16:13 |
Естественное слияние в массивах | Virus-Haker | Помощь студентам | 2 | 07.02.2008 13:40 |