Практическая работа № 1Процедура создания БД клиентов
Продолжение приложения А Процедура просмотра доходов
Процедура удаления БД
Продолжение приложения А Процедура считывания БД из файла
Продолжение приложения А Процедура поиска
(обязательное)
Листинг программы uses crt; const p=7; type PNode=^Node; Node=record data:longint; left,right:PNode; name:string[15]; end; Base = array [1..p] of node; var BD:Base; Tree,p1:PNode; n,x,i:integer; ch:char; k:string [15]; t:string; f:text;
procedure AddToTree (var Tree:PNode;x:integer;t:string[15]; k:string[15]); begin if Tree=nil then begin New(Tree); Tree^.name:=k; Tree^.data:=x; Tree^.name:=t; Tree^.left:=nil; Tree^.right:=nil; exit; end; if x < Tree^.data then AddToTree(Tree^.left,x,t,k) else AddToTree(Tree^.right,x,t,k); clrscr; end;
function Search(Tree:PNode;x:integer;t:string [15];k:string [15]):PNode; var p:PNode; begin if Tree=nil then begin Search:=nil; exit; end; p:=tree; if x=p^.data then else if x < p^.data then p:=Search(p^.left,x,t,k) else p:=Search(p^.right,x,t,k); Search:=p; clrscr; end;
procedure Lkp(Tree:PNode); begin if Tree=nil then exit; Lkp(Tree^.left); writeln; write(' ',Tree^.data); write(' ',Tree^.name); writeln; Lkp(Tree^.right); end;
procedure zapis (var BD:Base); var i:integer; begin for i:=1 to p do begin readln (f, BD[i].name); readln (f, BD[i].data); end; end;
procedure DeleteTree(var Tree1:PNode); begin if Tree1 <> nil then begin DeleteTree (Tree1^.LEFT); DeleteTree (Tree1^.RIGHT); Dispose(Tree1); end; clrscr; end;
begin Tree:=nil; repeat TextColor (1); Writeln('Доступны пункты:'); TextColor (4); Writeln('1) Создание базы данных клиентов банка'); TextColor (4); Writeln('2) Считывание бызы данных из файла'); TextColor (4); Writeln('3) Поиск по базе'); TextColor (4); Writeln('4) Доход клиентов банка '); TextColor (4); Writeln('5) Выход');
writeln; readln(ch); case ch of '1': begin ; writeln('Кол-во эллементов'); ; readln(n); for i:=1 to n do begin ; writeln('Размер дохода клиента');
readln(x); Writeln('Номер телефона');
readln(t); Writeln('Имя клиента');
readln(k);
AddToTree(Tree,x,t,k); end; end; '2': begin ; assign(f, 'C:\bd.txt'); reset (f); zapis (BD); for i:=1 to p do AddToTree (Tree,BD[i].data,BD[i].name,BD[i].name); TextColor (1); writeln ('БД считана.'); writeln; close(f); end; '3': begin ; writeln('Введите размер дохода'); TextColor (4); readln(x); p1:=Search(Tree,x,t,k); if p1 <> nil then begin TextColor (1); writeln ('Доход найден, имя клиента:'); TextColor (4); writeln (p1^.name); TextColor(1); end else writeln('Доход не найден'); end; '4': begin ; writeln('Все клиенты'); TextColor (4); Lkp(Tree); writeln; end; end; until ch='5'; DeleteTree(Tree); end. ГОСУДАРСТВЕННОЕ БЮДЖЕТНОЕ ПРОФЕССИОНАЛЬНОЕ ОБРАЗОВАТЕЛЬНОЕ УЧРЕЖДЕНИЕ РЕСПУБЛИКИ КРЫМ «КРЫМСКИЙ КОЛЛЕДЖ ОБЩЕСТВЕННОГО ПИТАНИЯ И ТОРГОВЛИ»
Технология продукции общественного питания
19.02.10 «Технология продукции общественного питания» РАБОЧАЯ ТЕТРАДЬ ДЛЯ ВЫПОЛНЕНИЯ ПРАКТИЧЕСКИХ РАБОТ
ФИО обучающегося ________________ Курс, группа: 1 курс ТПОП – 3
Дисциплина: Оборудование предприятий общественного питания
Симферополь, 2015 Индивидуальная карта учёта успеваемости по выполнения практических работ Учебная дисциплина:Оборудование предприятий общественного питания Преподаватель: Садовский Д. В. Обучающийся: ________________________________ группа ТПОП - Ф.И.О.
Содержание 1. Практическая работа 1. Тема: Универсальные приводы; 2. Практическая работа 2. Тема: Машины для очистки и нарезки овощей; 3. Практическая работа 3. Тема: Машины для нарезки и протирание овощей; 4. Практическая работа 4. Тема: Машины для обработки мяса; 5. Практическая работа 5. Тема: Вспомогательное механическое оборудование; 6. Практическая работа 6. Тема: Весизмерительное оборудование; 7. Практическая работа 7. Тема: Подъёмно-транспортное оборудование 8. Практическая работа 8. Тема: Варочное оборудование; 9. Практическая работа 9. Тема: Жарочное оборудование; 10. Практическая работа 10. Тема: Пекарное оборудование; 11. Практическая работа 11. Тема: Водонагревательное оборудование; 12. Практическая работа 12. Тема: Холодильные шкафы и камеры; 13. Практическая работа 13. Тема: Торговое холодильное оборудование; 14. Практическая работа 14. Тема: Подбор технологического оборудования для выполнения производственной программы; 15. Практическая работа 15. Тема: Подбор технологического оборудования для выполнения производственной программы; Практическая работа № 1 Тема: Устройство и эксплуатация универсальных приводов Актуализируются в работе ПК и ОК: ПК 1.1. Организовывать подготовку мяса и приготовление полуфабрикатов для сложной кулинарной продукции. ПК. 3.3. Организовывать и проводить приготовление сложных блюд из овощей, грибов и сыра; ОК 2. Организовывать собственную деятельность, выбирать типовые методы и способы выполнения профессиональных задач, оценивать их эффективность и качество; ОК 4. Осуществлять поиск и использование информации, необходимой для эффективного выполнения профессиональных задач, профессионального и личностного развития; ОК 6. Работать в коллективе и в команде, эффективно общаться с коллегами, руководством, потребителями. Цель: научиться правильно эксплуатировать универсальные приводы с учётом установленных требований, выбирая типовые методы безопасной работы. Информационное обеспечение: - Кащенко В.Ф. «Оборудование предприятий общественного питания» учебное пособие / В.Ф Кащенко, Р.В. Кащенко. – М.: Альфа-М: ИНФРА-М, 2013. – 416 с.; - Колупаева Т.Л. «Оборудование предприятий общественного питания. Торговое оборудование»: учебное пособие / под общ. ред. Т.Л. Колупаевой. – М. ФОРУМ, 2015. – 272; -конспект по дисциплине; -материалы визуального сопровождения занятия. - инструкции по технике безопасности; Материально-техническое оснащение рабочего места обучающегося: - Рабочая тетрадь по выполнению практических работ; - Натуральные образцы: ПУ-0,6, П II -1. Оценка за практическое занятие ______________________________________ Подпись преподавателя______________________________________________ Порядок оценивания учебной деятельности: 100-90 баллов- «5» 89-74 баллов- «4» 73-60 баллов –«3»
|
