.RU

Химико-технологический факультет, Vкурс, группа 558 - страница 5


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

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

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

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

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

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

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

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

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

28 Аппараты, работающие по технике кинетического препарирования [Электронный ресурс] / Режим доступа: http://www.edentworld.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 Летопись СГМУ [Электронный ресурс] / Режим доступа: http://www.nsmu.ru/visit_card/letopis/.

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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 [Электронный ресурс] / Режим доступа: http://www.citforum.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;

RadioGroup1.Visible:=false;

RadioGroup2.Visible:=false;

RadioGroup3.Visible:=false;

StringGrid1.Visible:=false;

for i:= 1 to x do

begin

StringGrid1.Cells[0,i]:='';

StringGrid1.Cells[1,i]:='';

StringGrid1.Cells[2,i]:='';

end;

StringGrid1.RowCount:=2;

StringGrid1.Height:=28;

Label1.Caption:='Введите количество исследований ==>';

// Очистка

Image1.Visible:=false;

Image2.Visible:=false;

Label6.Visible:=false;

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);

Edit5.Text:='0';

Edit6.Text:='0';

end;

// Сохранение в файл

procedure SaveStringGrid(StringGrid: TStringGrid; const FileName: TFileName);

var

f: TextFile;

i, k: Integer;

begin

AssignFile(f, FileName);

Rewrite(f);

with StringGrid do

begin

for i := 1 to ColCount - 1 do

for k := 0 to RowCount - 1 do

Writeln(F, Cells[i, k]);

end;

CloseFile(F);

AssignFile(f, FileName);

append(f);

Writeln(F, 'среднее значение 1=',Copy(Floattostr(sr1),1,Pos('.',Floattostr(sr1))+4), ' * ', 'среднее значеие 2=',Copy(Floattostr(sr2),1,Pos('.',Floattostr(sr2))+4),' * ',t,' * ', Ssr1,' * ', N);

CloseFile(F);

end;

// Описание кнопки «Сохранить»

procedure TForm1.Button6Click(Sender: TObject);

begin

SaveStringGrid(StringGrid1, 'c:\rezultat.txt');

Showmessage('Файл сохранен"c:\rezultat.txt"');

end;

// Расчет стандартного отклонения

procedure TForm1.Button7Click(Sender: TObject);

begin

Label1.Visible:=true;

Label9.Visible:=true;

Label10.Visible:=true;

Label11.Visible:=true;

Label2.Visible:=true;

Edit5.Visible:=true;

Edit6.Visible:=true;

RadioGroup1.Visible:=false;

RadioGroup2.Visible:=false;

RadioGroup3.Visible:=false;

Label9.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;

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;

otklon1:=sqrt(sumQ1/(x-1));

Edit5.Text:=floattostr(otklon1);

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;

otklon2:=sqrt(sumQ2/(x-1));

Edit6.Text:=floattostr(otklon2);

end;

// Расчет минимального значения

procedure TForm1.Button8Click(Sender: TObject);

begin

Label1.Visible:=true;

Label2.Visible:=true;

Label10.Visible:=true;

Label11.Visible:=true;

Label12.Visible:=true;

Edit7.Visible:=true;

Edit8.Visible:=true;

RadioGroup1.Visible:=false;

RadioGroup2.Visible:=false;

RadioGroup3.Visible:=false;

Label12.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]='') 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;

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

for i:= 1 to x do

begin

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

if min1>a then min1:=a;

Edit7.Text:=floattostr(min1);

end;

begin

min2:=strtofloat(stringGrid1.Cells[2,1]);

for i:= 1 to x do

begin

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

if min2>a then min2:=a;

Edit8.Text:=floattostr(min2);

end;

end;

end;

// Расчет максимального значения

procedure TForm1.Button9Click(Sender: TObject);

begin

Label1.Visible:=true;

Label2.Visible:=true;

Label10.Visible:=true;

Label11.Visible:=true;

Label13.Visible:=true;

Edit9.Visible:=true;

Edit10.Visible:=true;

RadioGroup1.Visible:=false;

RadioGroup2.Visible:=false;

RadioGroup3.Visible:=false;

Label13.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;

max1:=0;

for i:= 1 to x do

begin

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

if a>max1 then max1:=a;

Edit9.Text:=floattostr(max1);

end;

max2:=0;

for i:= 1 to x do

begin

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

if a>max2 then max2:=a;

Edit10.Text:=floattostr(max2);

end;

end;

// Расчет размаха выборки

procedure TForm1.Button10Click(Sender: TObject);

begin

if (Edit7.Text='') or (Edit8.Text='')then

begin

MessageDlg('Необходимо рассчитать Min', mtError , [mbOk], 0);

end;

if (Edit9.Text='') or (Edit10.Text='')then

begin

MessageDlg('Необходимо рассчитать Max', mtError , [mbOk], 0);

end

else

begin

Label1.Visible:=true;

Label2.Visible:=true;

Label10.Visible:=true;

Label11.Visible:=true;

Label14.Visible:=true;

Edit11.Visible:=true;

Edit12.Visible:=true;

Label14.Caption:='Размах';

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;

razmax1:=max1-min1;

razmax2:=max2-min2;

Edit11.Text:=floattostr(razmax1);

Edit12.Text:=floattostr(razmax2);

end;

end;

end.




izpitna-programa-za-opredelyane-na-godishna-ocenka-po-blgarski-ezik-i-literatura-zadlzhitelna-podgotovka-za-x.html
izpolzvani-skrasheniya-izpolzvani-skrasheniya-19-razdel-1-20-osnovaniya-za-reformata-20.html
izrail-i-ego-izbrannichestvo-vladimir-marcinkovskij.html
izrail.html
izraitel-b-polnoe-rukovodstvo-po-rektifikacii-stranica-2.html
izsledvane-sstoyanieto-na-shirokolentov-iya-dostp-v-republika-blgariya-sofiya-2009-g-sdrzhanie.html
  • institute.bystrickaya.ru/glava-2-bogosluzhebnij-tekst-v-religioznoj-zhizni-rossii-xvii-v-n-i-sazonova-u-istokov-raskola-russkoj-cerkvi.html
  • paragraf.bystrickaya.ru/vvedenie-s-v-geodakyan-adres-elektronnoj-pochti-sgeodyahoo-com.html
  • letter.bystrickaya.ru/n257-rozhdestvenskij-spisok-opredelenno-chernij-spisok-stranica-4.html
  • bukva.bystrickaya.ru/mehanika-galileo-galilej.html
  • nauka.bystrickaya.ru/vidi-podhodov-v-associanizme-chast-2.html
  • institute.bystrickaya.ru/folklor-byulleten-novih-postuplenij-2005-god.html
  • institut.bystrickaya.ru/turisticheskoe-agentstvo-otdih-v-derevne.html
  • ucheba.bystrickaya.ru/proektirovaniya-osnovnoj-obrazovatelnoj-programmi-oop-kazhdim-vuzom-po-napravleniyu-prikladnaya-matematika-i-informatika-stepen-kvalifikaciya.html
  • teacher.bystrickaya.ru/glava-8-aj-yaj-tebe-uzhe-chetire-goda-a-ti-ne-mozhesh-uderzhatsya-v-sedle-nikogda-ti.html
  • kanikulyi.bystrickaya.ru/ziryan-audani-ziryan-alasi-memlekeetk-krster-basarmasi-mlm-eted.html
  • knigi.bystrickaya.ru/rrossiya-franciya-bolonskij-process-stranica-2.html
  • kolledzh.bystrickaya.ru/angloyazichnaya-literatura-diplomaticheskie.html
  • control.bystrickaya.ru/bilet-7-pravila-raboti-so-sterilnim-materialom-14-anafilakticheskij-shok-opredelenie-prichini-vozniknoveniya-pervaya-pomosh-14.html
  • essay.bystrickaya.ru/centralnij-bank-rossijskoj-federacii-osnovnie-napravleniya-edinoj-gosudarstvennoj-denezhno-kreditnoj-politiki-na-2012-god-i-period-2013-i-2014-godov.html
  • thescience.bystrickaya.ru/i-robert-sovremennie-informacionnie-tehnologii-v-obrazovanii-didakticheskie-problemi-perspektivi-ispolzovaniya-moskva.html
  • institute.bystrickaya.ru/esli-vi-zahotite-prilozhitsya-k-obrazu-na-gubah-ne-dolzhno-bit-kosmetiki-dazhe-gigienicheskoj-pomadi.html
  • klass.bystrickaya.ru/apustoshnij.html
  • university.bystrickaya.ru/glava-2-avtomobil-poluchen-vo-vremennoe-polzovanie-buhgalterskij-i-nalogovij-uchet-avtotransporta.html
  • education.bystrickaya.ru/31-perechen-laboratornih-rabot-metodicheskie-ukazaniya-i-kontrolnie-zadaniya-dlya-studentov-zaochnikov-po-specialnosti.html
  • ekzamen.bystrickaya.ru/specialnost-130304-geologiya-nefti-i-gaza-gn-tyumenskij-gosudarstvennij-neftegazovij-universitet-spravochnik.html
  • education.bystrickaya.ru/31-uchenie-o-bitii-filosofiya-prirodi-uchebnoe-posobie-k-kursu-filosofiya.html
  • exchangerate.bystrickaya.ru/audit-rashodov-na-reklamu-chast-6.html
  • crib.bystrickaya.ru/informacionnaya-karta-ishodnih-dannih-dlya-rejtinga-nirs-za.html
  • ekzamen.bystrickaya.ru/sozh-1-kvantmehanikali-superpoziciya-princip.html
  • grade.bystrickaya.ru/ob-utverzhdenii-pravil-bezopasnosti-sistem-gazoraspredeleniya-i-gazopotrebleniya.html
  • obrazovanie.bystrickaya.ru/portion-iv-posobie-sostavleno-na-kafedre-anglijskogo-yazika-zaochnogo-otdeleniya-sostavitel-solovyova-m-v.html
  • lektsiya.bystrickaya.ru/proekt-shvejnogo-predpriyatiya-po-izgotovleniyu-komplekta-zhenskoj-odezhdi-bluzi-i-bryuk-na-baze-unificirovannogo-promishlennogo-zdaniya.html
  • upbringing.bystrickaya.ru/lekciya-6-organizaciya-obsluzhivaniya-proizvodstva-organizaciya.html
  • letter.bystrickaya.ru/np-soau-tpp-rf-g-moskva.html
  • testyi.bystrickaya.ru/a-gparhomov.html
  • ekzamen.bystrickaya.ru/rekomenduemaya-literatura-po-kursu-tema-ponyatie-sistema-i-istochniki-rimskogo-prava.html
  • ekzamen.bystrickaya.ru/sostav-struktura-i-stoimost-osnovnih-sredstv-kreditnoj-organizacii-emitenta-ezhekvartalnij-otchet-po-cennim-bumagam-za-2-kvartal-2003-goda.html
  • ekzamen.bystrickaya.ru/rizomatika-kartografiya-mashinnost-uchebnoe-posobie-dlya-studentov-filologicheskih-fakultetov-vuzov-izdanie-trete.html
  • institut.bystrickaya.ru/tema-7-socialnaya-differenciaciya-subkulturi-i-etnosi-metodicheskie-ukazaniya-po-kursu-chelyabinsk-2006.html
  • predmet.bystrickaya.ru/relyativistskij-podhod-k-teorii-istini-chast-4.html
  • © bystrickaya.ru
    Мобильный рефератник - для мобильных людей.