Информационные технологии

- Санкт-Петербург : Изд-во СПбГМУ, 2015. – 256с.Макаров А.М. Организация защиты персональных данных [Электронный ресурс] : практикум / К.О. Бондаренко И.В. Калиберда А.М. Макаров. - Ставрополь : Северо-Кавказский федеральный университет, 2015. - 92 cПриложениеПрограммный код системыuses crt;type pacient=recordfio: string[40];adr: string[30];tlf: string[15];num_istb: integer;dtr: string[20];end;type vrac=recordfio: string[40];dolgn: string[30]; cab: string[15]; code: integer;end;type zapis=recordday: string[40];num_istb: integer; code: string[15];chas:integer;min:integer;end;procedure RegPac() ; var f:file of pacient; pac:pacient;beginclrscr;assign(f,'pacient.dat');reset(f);writeln('ВведитеФИО');readln(pac.fio);writeln('Введитеадрес');readln(pac.adr);writeln('Введитетелефон');readln(pac.tlf);writeln('Введитедатурождения');readln(pac.dtr);writeln('Введите номер истории болезни');readln(pac.num_istb);seek(f,filesize(f));write(f,pac);closefile(f);writeln('Записано');end; procedure RegVr() ; var f:file of vrac; vr:vrac;beginclrscr;assign(f,'vrac.dat');reset(f);writeln('ВведитеФИО');readln(vr.fio);writeln('Введите специальность');readln(vr.dolgn);writeln('Введите кабинет');readln(vr.cab);writeln('Введите номер врача');readln(vr.code);seek(f,filesize(f));write(f,vr);closefile(f);writeln('Записано');end;procedure Zps() ; var f:file of zapis; zap:zapis;label z,z1;beginclrscr;assign(f,'zapis.dat');reset(f);writeln('Введитедатуприема');readln(zap.day);writeln('Введите номер истории болезни');readln(zap.num_istb);writeln('Введите код врача');readln(zap.code);z: writeln('Введите час приема');readln(zap.chas);if (zap.chas<8) and (zap.chas>20) then beginwriteln('Некорректныйввод');gotoz;end;z1: writeln('Введите минуту приема');readln(zap.min);if (zap.min<0) and (zap.min>59) then beginwriteln('Некорректныйввод');gotoz1;end;seek(f,filesize(f));write(f,zap);closefile(f);writeln('Записано');end;procedure PecVr() ; var f:file of vrac; vr:vrac;beginclrscr;assign(f,'vrac.dat');reset(f);while not eof(f) dobeginread(f,vr);writeln('Табельныйномер:',vr.code,' ФИО:',vr.fio,' Специальность:',vr.dolgn,' Кабинет: ',vr.cab);end;closefile(f);end;procedure SpPr() ; var f:file of zapis; dt,cde,fio:string; zps:zapis; g:file of pacient; g1:pacient; beginwriteln('Введите дату приема');readln(dt);writeln('Введите номер врача');readln(cde);assign(f,'zapis.dat');reset(f);while not eof(f)dobeginread(f,zps);if (zps.day = dt) and (zps.code = cde) then beginassign(g,'pacient.dat'); reset(g);while not eof(g) do beginread(g,g1);if g1.num_istb = zps.num_istbthen fio:=g1.fio; end;closefile(g);writeln('Час:',zps.chas,' Мин:',zps.min,' Историяболезни № ',zps.num_istb, ' ФИО:',fio);end;end;closefile(f);end;var i:integer;label q;beginq: writeln('Выбор режима работы');writeln('1 - Регистрация пациента');writeln('2 - Регистрация врача');writeln('3 - Запись на прием');writeln('4 - Список врачей');writeln('5 - Список пациентов на прием');writeln('0 - Выход');readln(i);if i=1 then beginRegPac;gotoq;end;if i=2 then beginRegVr;gotoq;end;if i=3 then beginZps;gotoq;end;if i=4 thenbeginPecVr;gotoq;end;if i=5 thenbeginSpPr;gotoq;end;readln;end.