Присоединяйся к нам
Платформа, где покупают и продают студенческие работы
Главная Каталог работ Курсовые Обработка массивов указателей

Обработка массивов указателей

Курсовые, Технические, Компьютерные информационные технологии, БГУИР
31 страница
4 источника
2019 год
29.99BYN
95.00BYN
Купить
Поделиться в социальных сетях
Содержание
Часть работы
Список литературы

ВВЕДЕНИЕ 3
1 ОПИСАНИЕ ПРОГРАММНОГО КОМПЛЕКСА 4
1.1 ОПИСАНИЕ ПРОГРАММНОГО КОМПЛЕКСА MAIN 4
1.1.1 Структура программы MAIN 4
1.1.2 Процедура info_MD 4
1.1.3 Процедура create_MD 5
1.2 ОПИСАНИЕ МОДУЛЯ TYPES 6
1.3 ОПИСАНИЕ МОДУЛЯ MENU 7
1.3.1 Структура модуля MENU 7
1.3.2 Функция built_menu 7
1.4 ОПИСАНИЕ МОДУЛЯ ОБРАБОТКИ REQUESTS 8
1.4.1 Структура модуля обработки REQUSTS 8
1.4.2 Процедура output 9
1.4.3 Функция change 9
1.4.4 Функция search 10
1.4.5 Процедура add_el 10
1.4.6 Процедура remove 10
1.4.7 Процедура selection 11
2 ПРОВЕРКА И ОПИСАНИЕ РАБОТЫ ПРОГРАММЫ 12
2.1 ЗАПУСК ГЛАВНОЙ ПРОГРАММЫ MAIN 12
2.2 ПУНКТ МЕНЮ «OUTPUT» 12
2.3 ПУНКТ МЕНЮ «SWITCH MD» 14
2.4 ПУНКТ МЕНЮ «ADD UNIT» 14
2.5 ПУНКТ МЕНЮ «SEARCH BY NUMBER» 15
2.6 ПУНКТ МЕНЮ «DELETE FROM CURRENT UNIT» 16
2.7 ПУНКТ МЕНЮ «CREATE NEW MD BY SELECTION» 16
ЗАКЛЮЧЕНИЕ 18
СПИСОК ИСПОЛЬЗОВАННЫХ ИСТОЧНИКОВ 19
ПРИЛОЖЕНИЕ А 20
ПРИЛОЖЕНИЕ Б 23
ПРИЛОЖЕНИЕ В 24
ПРИЛОЖЕНИЕ Г 30

Приложение А (частично)
Program MAIN;
uses Crt, TYPES, MENU, REQUESTS;
const
{ Названия пунктов меню }
m: my_menu =
('Output',
'Switch MD',
'Add unit',
'Search by number',
'Delete from current unit',
'Create new MD by selection');
{ Выводит номер текущего МД, содержимое текущего элемента и меню}
procedure info_MD(elem1, elem2: md_type; md, ch: byte);
var
menu_index, i: byte;
len_el: string;
begin
repeat
{ Очистка экрана }
clrscr;
textbackground(White);
textcolor(Blue);
clrscr;
{ Вывод номера текущего МД}
{и содержимого текущего элемента на экран}
writeln('Current unit of MD ',md,' is '); writeln('┌───────┬──────────────────────┬──────────┬───────────┬─────────────┐');
writeln('| Number| Number of transport | Quantity | Distance | Mean of tr. |');

{Вывод содержимого элемента}
writeln('├───────┼──────────────────────┼──────────┼───────────┼─────────────┤');
write('| ', elem1[ch]^.id);
str(elem1[ch]^.id, len_el);
for i:=length(len_el) to 4 do begin
write(' ');
end;
write(' | ', elem1[ch]^.number);
for i:=length(elem1[ch]^.number) to 19 do begin
write(' ');
end;
write(' | ', elem1[ch]^.kolvo);
str(elem1[ch]^.kolvo, len_el);
for i:=length(len_el) to 7 do begin
write(' ');
end;
write(' | ', elem1[ch]^.km:9:2);
case elem1[ch]^.mean of
metro: writeln(' | metro |');

1 Зуев, Е. А. Программирование на языке Turbo Pascal 6.0,7.0,/ Е. А. Зуев// М.:Веста,Радио и связь, 1993.
2 tutorialspoint [Электронный ресурс]. – Режим доступа: http://tutorialspoint.com/pascal/pascal_basic_syntax.htm
3 Алексеев, Е. Р. Турбо Паскаль 7.0 М.,/ Е. Р. Алексеев, О. В. Чесно-кова // НТ Пресс-2006
4 Павловская, Т. А. Паскаль. Программирование на языке высокого уровня, Учебник для вузов СПБ / Т. А. Павловская// Питер-2007.

Не нашeл, что искал?
Закажи оригинальную работу сейчас
Узнать стоимость
Оставить отзыв
Имя
Город
Рейтинг
Отзыв

Задать вопрос
Задать вопрос