Geum.ru

Малинникова Ирина Сергеевна (фамилия, имя, отчество студента) диплом

Вид материалаДиплом

Содержание


Приложение а
Подобный материал:
1   2   3   4   5   6   7   8   9
Лукиных, Л.М. Кариес зубов (Этиология, клиника, лечение, профилактика) [Текст] / Л.М. Лукиных. – Н. Новгород: Изд-во Нижегородской государственной медицинской академии, 2001. – 186 с.

20 Информационный портал о зубах и их болезнях [Электронный ресурс] / Режим доступа: world.ru/articles/etapy_i_principy_preparirovaniya_i_ plombirovaniya_zubov_bolnyh_kariesom.phpl.

21 Борисенко, А.В. Лечение хронических форм периодонтитов [Текст] / А.В. Борисенко – М.: Феникс, 2001. – 380 с.

22 Рабинович, И.М., Макеева, И.М. Перспективы развития терапевтической стоматологии в 21 веке [Текст] / И.М. Рабинович, И.М.Макеева, // Стоматология для всех. – 1998. - С.14-17.

23 Больно ли сегодня лечить зубы? [Электронный ресурс] / Режим доступа: .info/win/pac/w_pac9.php.

24 «Sandman» - новая система воздушной препаровки зуба [Электронный ресурс] / Режим доступа: tom.ru.

25 Методики препарирования кариозных полостей: воздушно-абразивная методика [Электронный ресурс] / Режим доступа: ra.com.ua/issues/ view/263.

26 Райт, Г.З., Хатибовик-Кофман, С., Милленар, Д.В., Бравермен, И. Безопасность и эффективность лечения с помощью технологии воздушной микрошлифовки [Текст] / Г.З. Райт, С. Хатибовик-Кофман, Д.В. Милленар, И. Бравермен // Интернациональный журнал педиатрической стоматологии. – 1999. – №9. – С.133-140.

27 Система Sandman – представитель последнего поколения потоково-абразивных систем [Электронный ресурс] / Режим доступа: ra.ru/Klin_b.php.

28 Аппараты, работающие по технике кинетического препарирования [Электронный ресурс] / Режим доступа: world.ru/cgi-bin/info/ lib.pl?cid=%cid%&DocID=940&print=1#four.

29 Гарвалинский, С.В. Кинетическое (воздушно-абразивное) препарирование твердых тканей зубов [Текст] / С.В. Гарвалинский // Стоматология для всех. – 1998. - № 2. – С.4-7.

30 Оборудование в стоматологии [Текст] // Институт стоматологии. –2009.- №3. – С.7-15.

31 Шумилович, Б.Р., Кунин, В.А. Современные методы одонтопрепарирования при лечении кариеса [Тест] / Б.Р. Шумилович, В.А. Кунин // Дентал Юг. – 2007. - № 7(48). – С.50-54.

32 Барер, Г.М., Овчинникова, И.А. Air Flow prep Kl - альтернативы микромотору / Г.М. Барер, И.А. Овчинникова // Стоматология. – 1999. – № 1. – С.14-16.

33 Сидоров, П.И. Северная медицинская школа: К 75-летию АГМИ – АГМА - СГМУ [Текст] / П.И. Сидоров, Г.С. Щуров, Л.Г. Доморощенова. - Архангельск: Изд. центр СГМУ, 2007. - 325 с.

34 Летопись СГМУ [Электронный ресурс] / Режим доступа: ru/visit_card/letopis/.

35 Зеновский, В.П. Стоматологический факультет (История АГМИ - АГМА – СГМУ) [Текст] / В.П. Зеновский, Г.С. Щуров. - Архангельск: Изд. центр СГМУ, 2002. - 60 с.

36 Доморощенова, Л.Г. Полвека вместе: К 50-летию стоматологического факультета АГМИ – АГМА – СГМУ [Текст] / Л.Г. Доморощенова. - Архангельск: Изд. центр СГМУ, 2008. - 143 с.

37 Руководство по эксплуатации пескоструйного аппарата «Sandman Mobile».

38 Воздушная микрошлифовка с использованием оборудования «Sandman» [Электронный ресурс] / Режим доступа: tom.ru/.

39 Система кинетического препарирования [Электронный ресурс] / Режим доступа: /print/2416.php.

40 Воздушно-кинетический метод лечения кариеса [Электронный ресурс] / Режим доступа: tomatologiya/lechenie-kariesa/.

41 Стоматология для пациентов [Электронный ресурс] / Режим доступа: www.dfa.ru/win/pac/w_pac10~.php.

42 Блинов, Н.Н., Варшавский, Ю.В., Зеликман, М.И., Клейменов, В.А. Выбор медицинской техники по технико-эксплуатационным характеристикам [Текст] / Н.Н. Блинов, Ю.В. Варшавский, М.И. Зеликман, В.А. Клейменов // Исследования, конструирование и технологии. – 1998. – С.3-6.

43 Салман, М.С., Пахарьков, Г.Н. Метод оценки качества медицинских изделий / М.С. Салман, Г.Н. Пахарьков // Известия ТагГРТУ «Медицинские информационные системы». – 2006. - №11. – С.29-33.

44 Реброва, О.Ю. Статистический анализ медицинских данных. Применение пакета прикладных программ STATISTICA [Текст] / О.Ю. Реброва. – М.: МедиаСфера. – 2002. – 312 с.

45 Статистический анализ как этап эмпирического исследования [Электронный ресурс] / Режим доступа: nalyse.org/articles/14-stat-analyse.

46 Васнев, С.А. Статистика [Текст] / С.А. Васнев. – М.: МГУР. – 2001. – 170 с.

47 Гудвин, Дж. Исследование в психологии: методы и планирование [Текст] / Дж. Гудвин. - СПб.: Питер.- 2004. – 558 с.

48 Выборка [Электронный ресурс] / Режим доступа: dia.org /wiki/Выборка.

49 Юнкеров, В.И., Григорьев, С.Г. Математико-статическая обработка данных медицинских исследований [Текст] / В.И. Юнкеров, С.Г. Григорьев. – СПб.: ВМедА. – 2002. – 266 с.

50 Сравнение групп методом Стьюдента [Электронный ресурс] / Режим доступа: .ru/kgufk/html/uchmetrologia7.phpl.

51 Шпак, Ю. А. Delphi 7 на примерах [Текст] / под ред. Ю. С. Ковтанюка. - К.: Юниор, 2003. - 384 с.

52 Язык программирования – Delphi [Электронный ресурс] / Режим доступа: dia.org/wiki/Delphi.

53 История развития языков программирования [Электронный ресурс] / Режим доступа: .ok.nov.ru/history/index.php.

54 Александровский, А.А. Pascal и Delphi. [Текст] / А.А. Александровский // Byte Россия. – 2000. - №3. – С.25-27.

55 Грибачев, К.Г. Delphi и Model Driven Architecture. Разработка приложений баз данных [Текст] / К.Г. Грибачев. - СПб.: Питер. - 2004. - 348 с.

56 Культин, Н. Основы программирования в Delphi7. Самоучитель [Текст] / Н. Культин. - СПб.: БХВ-Петербург. – 2003. – 608 с.

57 Кандзюба, С.П., Громов, В.Н. Delphi 6/7. Базы данных и приложения. Лекции и упражнения [Текст] / С.П. Кандзюба, В.Н. Громов. – 2002. – М.: ДиаСофтЮП – 576 с.

58 Архангельский, А.Я. Программирование в Delphi для Windows. Версии 2006, 2007, Turbo Delphi. [Текст] / А.Я. Архангельский. – Бином-Пресс. - 2007. – 1248 с.

59 Обзор Палитры Компонент Delphi 7 [Электронный ресурс] / Режим доступа: rum.ru/programming/32less/les13.shtml#3.

60 Кузнецова, И.А. Практикум по Delphi для решения прикладных задач [Текст] / И.А. Кузнецова. – Н.Новгород: ННГУ. – 2005. – 144 с.

61 Зеновский, В.П. Стоматологический факультет (История АГМИ - АГМА – СГМУ) [Текст] / В.П. Зеновский, Г.С. Щуров. - Архангельск: Изд. центр СГМУ. - 2002. - 60 с.

62 Трезубов, В.Н. Стоматологический кабинет [Текст] / Оборудование, материалы, инструменты: учебное пособие для медицинских вузов / В.Н. Трезубов. – СПб.: СпецЛит, 2002. – 142 с.

63 Техническое обслуживание медицинской техники [Текст] / Методические рекомендации. - Министерство Здравоохранения Российской Федерации. - Письмо от 27 октября 2003 г. N 293-22/233.

64 ИН 5-31. Инструкция по охране труда для персонала стоматологических кабинетов.

65 СанПиН 2.2.2.542-96. Гигиенические требования к видеодисплейным терминалам, персональным электронно-вычислительным машинам и организации работы.

66 ТОИ Р-45-084-01. Типовая инструкция по охране труда при работе на персональном компьютере.

67 Голицын А. Н. Безопасность жизнедеятельности [Текст] / А.Н. Голицын, Л.Е. Пикалова; под ред. А.Н. Голицына. - М.: Москва: Оникс. - 2008. - 188 c.

68 Грохольский, А.П., Заксон, М.Л., Корбелецкий, И.Н., Сердюков, В.И. Врачебные ошибки в стоматологии [Текст] / А.П. Грохольский, М.Л. Заксон, И.Н. Корбелецкий, В.И. Сердюков. – Киев: Здоровье. – 2004. – 224 с.

69 Методические рекомендации Министерства экономики РФ, Министерства финансов РФ, Государственного комитета РФ по строительной, архитектурной и жилищной политике от 21.06.1999 № ВК 477 «По оценке эффективности инвестиционных проектов».

70 Поршнев, А.Г., Румянцева, З.П., Соломатин, Н.А. Управление организацией: учебник [Текст] / А.Г. Поршнев, З.П. Румянцева, Н.А. Соломатин. – М.: ИНФРА-М. – 2008. – 384с.

71 Постановление Правительства РФ №1 от 01.01.2002 г. «О классификации основных средств, включаемых в амортизационные группы».

72 Попов, Л.В. Управление инновационными проектами [Текст] / В.Л. Попов. – М.: ИНФРА-М. – 2009. – 336 с.

73 Богомолов, В.А. Экономическая безопасность [Текст] / В.А. Богомолов. – М.: Экзамен. – 2009. – 295с.

74 Самсонов, Н.Ф. Финансы, денежное обращение и кредит [Текст] / Н.Ф. Самсонов. – М.: ИНФРА-М. – 2003. – 302 с.

75 СТО 01.04 – 2005. Работы студентов. Общие требования и правила оформления. [Текст]. Введ. 2006-01-11. – Архангельск: Стандарт организации, 2006 – 104 с.

ПРИЛОЖЕНИЕ А

(обязательное)


Листинг программы


unit dip2_;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, Grids, DBGrids, StdCtrls, ExtCtrls, DBCtrls;

type

TForm1 = class(TForm)

Button1: TButton;

Button2: TButton;

Button3: TButton;

Label1: TLabel;

Edit1: TEdit;

StringGrid1: TStringGrid;

Button4: TButton;

Edit2: TEdit;

RadioGroup1: TRadioGroup;

RadioGroup2: TRadioGroup;

Edit3: TEdit;

RadioGroup3: TRadioGroup;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Label5: TLabel;

Edit4: TEdit;

Button5: TButton;

Button6: TButton;

Label7: TLabel;

Label8: TLabel;

Image1: TImage;

Image2: TImage;

Label6: TLabel;

Edit5: TEdit;

Edit6: TEdit;

Label9: TLabel;

Label10: TLabel;

Label11: TLabel;

Button7: TButton;

Button8: TButton;

Button9: TButton;

Button10: TButton;

Edit7: TEdit;

Edit8: TEdit;

Label12: TLabel;

Label13: TLabel;

Edit9: TEdit;

Edit10: TEdit;

Label14: TLabel;

Edit11: TEdit;

Edit12: TEdit;

Label15: TLabel;

Label16: TLabel;

Label17: TLabel;

Label18: TLabel;

procedure Button3Click(Sender: TObject);

procedure Button4Click(Sender: TObject);

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure FormCreate(Sender: TObject);

procedure Button5Click(Sender: TObject);

procedure Button6Click(Sender: TObject);

procedure Button7Click(Sender: TObject);

procedure Button8Click(Sender: TObject);

procedure Button9Click(Sender: TObject);

procedure Button10Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

x,i,d,s1:Integer;

sr1,sr2,disp1,disp2,a,sumQ1,sumQ2,t,sum1,sum2,N,ms1,ms2,otklon1,otklon2,

min1,min2,max1,max2,razmax1,razmax2:Real;

s,prot,prom,Ssr1:string;

implementation

{$R *.dfm}

// Процедура кнопки «Выход»

procedure TForm1.Button3Click(Sender: TObject);

begin

if MessageDlg('Вы действительно хотите выйти?', mtConfirmation, [mbYes, mbNo], 0) = mrYes

then close;

end;

// Описание кнопки «ОК»

procedure TForm1.Button4Click(Sender: TObject);

begin

x:=strtoint(Edit1.Text);

if x=0 then

MessageDlg('Неверное количество исследований', mtError , [mbOk], 0)

else

begin

Button1.Visible:=true;

Button2.Visible:=true;

Button5.Visible:=true;

Button6.Visible:=true;

Button7.Visible:=true;

Button8.Visible:=true;

Button9.Visible:=true;

Button10.Visible:=true;

Button4.Visible:=false;

Label8.Visible:=true;

Edit1.Visible:=false;

Form1.Color:=clSkyBlue;

RadioGroup1.Visible:=true;

RadioGroup2.Visible:=true;

RadioGroup3.Visible:=true;

StringGrid1.Cells[1,0]:=' T.M.';

StringGrid1.Cells[2,0]:=' П.М.';

StringGrid1.Visible:=true;

StringGrid1.Cells[1,1];

StringGrid1.RowCount:=x+1;

StringGrid1.Height:=28*(x+1);

Label1.Caption:='Количество исследований '+#9+inttostr(x);

for i:=0 to x do

StringGrid1.Cells[0,i+1]:=inttostr(1+i);

end;

end;

// Процедура кнопки «Среднее значение»

procedure TForm1.Button1Click(Sender: TObject);

begin

Label1.Visible:=true;

Label2.Visible:=true;

Label4.Visible:=true;

Label10.Visible:=true;

Label11.Visible:=true;

Label16.Visible:=true;

Label17.Visible:=true;

Label18.Visible:=true;

Edit1.Visible:=false;

RadioGroup1.Visible:=false;

RadioGroup2.Visible:=false;

RadioGroup3.Visible:=false;

Edit2.Visible:=true;

Edit3.Visible:=true;

Label16.Caption:='Среднее'+#13+'значение';

Label10.Caption:='Традиционный метод';

Label11.Caption:='Пескоструйный метод';

for i:=1 to x do

if (stringGrid1.Cells[1,i]='') or (stringGrid1.Cells[2,i]='') then

begin

MessageDlg('Таблица не заполнена!'+#13+'Пустые ячейки будут заполнены значением "0"',

mtWarning , [mbOk], 0);

break;

end;

for i:=1 to x do

if stringGrid1.Cells[1,i]='' then

begin

d:=0;

stringGrid1.Cells[1,i]:=inttostr(d);

end

else

begin

stringGrid1.Cells[1,i+1];

end;

for i:=1 to x do

if stringGrid1.Cells[2,i]='' then

begin

d:=0;

stringGrid1.Cells[2,i]:=inttostr(d);

end

else

begin

stringGrid1.Cells[2,i+1];

end;

sum1:=0;

sum2:=0;

for i:= 1 to x do

sum1:= sum1+strtofloat(stringGrid1.Cells[1,i]);

sr1:=sum1/x;

for i:= 1 to x do

sum2:= sum2+strtofloat(stringGrid1.Cells[2,i]);

sr2:=sum2/x;

if RadioGroup2.ItemIndex = 0 then

Label2.Caption:='Анализ результатов исследования образцов на разрыв'

else

Label2.Caption:='Анализ результатов исследования образцов на сдвиг';

if RadioGroup3.ItemIndex=0 then

Label3.Caption:=' Проводилась' +#13+ '"протравка" полости'

else

Label3.Caption:=' "Протравка"'+#13+'полости не проводилась';

case RadioGroup1.ItemIndex of

0: Label4.Caption:='Проводилась промывка'+#13+' полости I степени';

1: Label4.Caption:='Проводилась промывка'+#13+' полости II степени';

2: Label4.Caption:='Проводилась промывка'+#13+' полости III степени';

end;

edit2.Text:=floattostr(sr1);

edit3.Text:=floattostr(sr2);

// График

ms1:=sr1*100;

ms2:=sr2*100;

Image1.Visible:=true;

Image2.Visible:=true;

Label6.Visible:=true;

Image1.Canvas.Pen.Color := clRed;

Image1.Canvas.Brush.Color := clWhite;

Image1.Canvas.Rectangle(3,1,29,113);

Image1.Canvas.Pen.Color := clRed;

Image1.Canvas.Brush.Color := clRed;

Image1.Canvas.Rectangle(3,round(113-ms1),29,113);

Image2.Canvas.Pen.Color := clBlue;

Image2.Canvas.Brush.Color := clWhite;

Image2.Canvas.Rectangle(3,1,29,113);

Image2.Canvas.Pen.Color := clBlue;

Image2.Canvas.Brush.Color := clBlue;

Image2.Canvas.Rectangle(3,round(113-ms2),29,113);

end;

// Критерий Стьюдента

procedure TForm1.Button2Click(Sender: TObject);

begin

Label2.Visible:=true;

Label10.Visible:=true;

Label11.Visible:=true;

Label10.Caption:='Традиционный метод';

Label11.Caption:='Пескоструйный метод';

Edit4.Visible:=true;

Label1.Visible:=true;

for i:=1 to x do

if (stringGrid1.Cells[1,i]='') or (stringGrid1.Cells[2,i]='') then

begin

MessageDlg('Таблица не заполнена!'+#13+'Пустые ячейки будут заполнены значением "0"',

mtWarning , [mbOk], 0);

break;

end;

for i:=1 to x do

if stringGrid1.Cells[1,i]='' then

begin

d:=0;

stringGrid1.Cells[1,i]:=inttostr(d);

end

else

begin

stringGrid1.Cells[1,i+1];

end;

for i:=1 to x do

if stringGrid1.Cells[2,i]='' then

begin

d:=0;

stringGrid1.Cells[2,i]:=inttostr(d);

end

else

begin

stringGrid1.Cells[2,i+1];

end;

sum1:=0;

sum2:=0;

for i:= 1 to x do

sum1:= sum1+strtofloat(stringGrid1.Cells[1,i]);

sr1:=sum1/x;

for i:= 1 to x do

sum2:= sum2+strtofloat(stringGrid1.Cells[2,i]);

sr2:=sum2/x;

if RadioGroup2.ItemIndex = 0 then

Label2.Caption:='Анализ результатов исследования образцов на разрыв'

else

Label2.Caption:='Анализ результатов исследования образцов на сдвиг';

if RadioGroup3.ItemIndex=0 then

Label3.Caption:=' Проводилась' +#13+ '"протравка" полости'

else

Label3.Caption:=' "Протравка"'+#13+'полости не проводилась';

case RadioGroup1.ItemIndex of

0: Label4.Caption:='Проводилась промывка'+#13+' полости I степени';

1: Label4.Caption:='Проводилась промывка'+#13+' полости II степени';

2: Label4.Caption:='Проводилась промывка'+#13+' полости III степени';

end;

if x>30 then

begin

for i:= 1 to x do

sum1:= sum1+strtofloat(stringGrid1.Cells[1,i]);

sr1:=sum1/x;

a:=0;

sumQ1:=0;disp1:=0;

for i:= 1 to x do

begin

a:=strtofloat(stringGrid1.Cells[1,i]);

sumQ1:=sumQ1+sqr(a-sr1);

end;

disp1:=sumQ1/(x-1);

for i:= 1 to x do

sum2:= sum2+strtofloat(stringGrid1.Cells[2,i]);

sr2:=sum2/x;

a:=0;

sumQ2:=0;disp2:=0;

for i:= 1 to x do

begin

a:=strtofloat(stringGrid1.Cells[2,i]);

sumQ2:=sumQ2+sqr(a-sr2);

end;

disp2:=sumQ2/(x-1);

t:=abs(sr1-sr2)/(sqrt((disp1/x)+(disp2/x)));

Label5.Caption:='Критерий Стьюдента составляет = = >';

Edit4.Text:=floattostr(t);

end

else

begin

Showmessage();

end;

end;

procedure TForm1.FormCreate(Sender: TObject);

begin

abel2.Visible:=false;

Label8.Visible:=false;

Edit2.Visible:=false;

Edit3.Visible:=false;

Edit4.Visible:=false;

Button1.Visible:=false;

Button2.Visible:=false;

Button5.Visible:=false;

Button6.Visible:=false;

RadioGroup1.Visible:=false;

RadioGroup2.Visible:=false;

RadioGroup3.Visible:=false;

Edit1.Text:='0';

Image1.Canvas.Pen.Color := clRed;

Image1.Canvas.Brush.Color := clWhite;

Image1.Canvas.Rectangle(3,1,29,113);

Image2.Canvas.Pen.Color := clBlue;

Image2.Canvas.Brush.Color := clWhite;

Image2.Canvas.Rectangle(3,1,29,113);

end;

// Описание кнопки «Новое иследование»

procedure TForm1.Button5Click(Sender: TObject);

begin

Edit1.Text:='0';

Label2.Visible:=false;

Label8.Visible:=false;

Label9.Visible:=false;

Label10.Visible:=false;

Label11.Visible:=false;

Label12.Visible:=false;

Label13.Visible:=false;

Label14.Visible:=false;

Label15.Visible:=false;

Label16.Visible:=false;

Label17.Visible:=false;

Label18.Visible:=false;

Edit1.Visible:=true;

Edit2.Visible:=false;

Edit3.Visible:=false;

Edit4.Visible:=false;

Edit5.Visible:=false;

Edit6.Visible:=false;

Edit7.Visible:=false;

Edit8.Visible:=false;

Edit9.Visible:=false;

Edit10.Visible:=false;

Edit11.Visible:=false;

Edit12.Visible:=false;

Button1.Visible:=false;

Button2.Visible:=false;

Button4.Visible:=true;

Button5.Visible:=false;

Button6.Visible:=false;

Button7.Visible:=false;

Button8.Visible:=false;

Button9.Visible:=false;

Button10.Visible:=false;