|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
17.01.2012, 19:10 | #1 |
Регистрация: 01.05.2011
Сообщений: 4
|
Структуры данных
Я студент-заочник и мне дали задание:
Создать меню обслуживающее список типа очередь В меню должны быть: • Создание списка; • Добавление элементов списка; • Выведение всех элементов списка; • Выведение элементов списка за номером; • Исключение элементов списка за номером; • Исключение элементов списка за свойством. Количество элементов: 9. Поля: word, Word, Char. Способ сортировки: вставка. Критерий сортировки: по 3 полю по уменьшению. Что мог, сделал на предыдущей сессии, а сейчас смотрю в книгу, вижу много интересного. Вот мои наброски: Код HTML:
uses crt; type pp=^el; el=record pole1:word; pole2:word; pole3:char; pnt:pp; end; var pb,x,uk:pp; k,i:byte; procedure sozd(var uk:pp); var tt:pp; begin randomize; new(tt); uk:=tt; tt^.pole1:=random(100); tt^.pole2:=random(100); tt^.pole2:=random(100); for i:=1 to 8 do begin new(tt^.pnt); tt:=tt^.pnt; tt^.pole1:=random(100); tt^.pole2:=random(100); tt^.pole2:=random(100); end; tt^.pnt:=nil; writeln('список створено'); end; procedure vyv(uk:pp); begin if uk=nil then writeln('список порожній') else writeln(' поле 1','':6,' поле 2','':6,' поле 3','':6); while uk<>nil do begin writeln('':2,uk^.pole1, '':12,uk^.pole2,'':12, uk^.pole3,'':12); uk:=uk^.pnt; end; readkey; end; procedure dodav(var uk:pp); var newElem:pp; begin randomize; new(newElem); newElem^.pole1:=random(100); newElem^.pole2:=random(100); newElem^.pole2:=random(100); newElem^.uk:=tt^.pnt; newElem^.pnt:=nil; writeln('Елемент додано'); end; procedure vivzanom(uk:pp); begin { } end; procedure vilzanom(uk:pp); begin { } end; procedure vilzavlas(uk:pp); begin { } end; begin while true do begin writeln; writeln('виберіть операцію над списком:'); writeln('1:створення списку'); writeln('2:виведення вмісту полів елементів списку*'); writeln('3:додати елемент списку*'); writeln('4:вивести елемент списку за номером*'); writeln('5:вилучення елемента списку за номером*'); writeln('6:вилучення елемента списку за властивістю*'); writeln('7:вихід з програми'); read(k); case k of 1:sozd(pb); 2:vyv(pb); 3:dodav(pb); 4:vivzanom(pb); 5:vilzanom(pb); 6:vilzavlas(pb); 7:exit; else continue; end; end; end. |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Структуры данных | Shadow94 | Общие вопросы C/C++ | 8 | 22.04.2011 11:50 |
Структуры данных | SlayerLiving | C++ Builder | 2 | 07.03.2011 20:26 |
Структуры данных | LeNus'Ka | Помощь студентам | 4 | 23.11.2010 17:43 |
С++ Структуры данных | DarkSwan | Помощь студентам | 0 | 27.10.2010 12:21 |
Структуры данных в С++ | ArniLand | Общие вопросы C/C++ | 2 | 14.07.2010 18:34 |