На языке delphi разработка учебного пособия по основам программирования на языке delphi

К тому же на них устанавливаются фильтры, что позволяет очищать воздух от примесей и пылей. Повышенный уровень шума.

При работе на персональном компьютере шум, воздействующий на инженера, не должен превышать максимально допустимых уровней звукового давления, определенных в ГОСТ 12.

1.003−83* и указанных в таблице 6.

4.Таблица 6.4 Нормы уровня шума.

Повышенный уровень вибрации.

Работающие персональные компьютеры создают вибрацию, вызванную вращением электродвигателей вентиляторов, дисководов. Нормы вибрации по ГОСТ 12.

1.012−90 приведены в таблице 6.

5.Таблица 6.5Нормы вибрации.

Однако работающая компьютерная техника не создает значительных вибраций. Исключение составляют только приводы чтения дисков. Но их относительное время работы невелико, и для снижения вибрации достаточно переставить системный блок со стола на пол. Для большего снижения уровня вибрации. Повышенное значение напряжения в электрической цепи.

Предельно допустимые уровни напряжений и токов в зависимости от времени прикосновения регламентируются в ГОСТ 12.

1.038−82* и приведены в таблице 6.

6.Таблица 6.6 Предельно допустимые уровни напряжений и токов.

Рисунок 6.4 — Схема расположения светильников в помещении.

Помещения, где расположены компьютеры, должны иметь определенное освещение. Нормы освещенности определены в СНиП 23−05−95 и приведены в таблице 5.7 для данного типа работ. Рассчитываемое помещение имеет следущие характеристики:

Длина, А — 10 мШирина В — 8 мВысота — 3,7 мДлина подвеса светильников — 0,2 мВысота рабочей поверхности — 0,8 мНеобходимо рассчитать освещение помещения исходя из того, что будет использоваться 20 светильников. Для данного вида работ достаточно использовать одно общее освещение без применения местного. В качестве источников света выбраны люминесцентные лампы, так как они обладают высокой световой отдачей, большим сроком службы, равномерный спектр. Таблица 6.7Нормы освещенности.

Характеристика зрительной работы.

Разряд и подразряд зрительной работы.

Контраст объекта различения с фоном.

Характеристика фона.

Минимальный размер объекта различения,(мм)Искусственное освещение.

Естественное освещение.

Освещенность, лк.

КЕО, %При комбинированном освещении.

При общем освещении.

При верхнем или верхнем и боковом освещении.

Средняя точностьIV (г)Большой.

Светлыйот 0,5 до 1,0−2004.

Световой поток одного светильника определяется по формуле, где EH — нормируемое значение освещенности (табл. 6.1), КЗ — коэффициент запасаS — освещаемая площадьZ=EСР/EМИН, где EСР и EМИН — среднее и минимальное значения освещенностиn — число светильниковUОУ — коэффициент использования светового потока.

Для люминесцентных ламп коэффициент Z принимается равным 1,1/Значения коэффициента запаса для различных помещений приведены в таблице 6.8Таблица 6.8 Значения коэффициента запаса.

Тип помещения.

Тип источника светагазоразрядныенакаливания.

С незначительным содержанием пыли и копоти1,51,3Со средним содержанием пыли и копоти1,81,5Открытые территории1,51,4Используя таблицу 6.2 находим Z=1,5Индекс помещения определяется по формуле, где, А и В — длина и ширина помещения соответственно, hР — высота подвеса над рабочей поверхностью. Так как в рассчитываемом помещении побеленный потолок и светлые стены, то примем значения коэффициентов отражения равными ρП=0,7; ρС=0,5; ρР=0,1. Используя найденные коэффициенты отражения и индекс помещения найдем коэффициент использования светового потока UОУ=0,35Вычислим необходимый световой поток светильника лк.

Для обеспечения требуемого светового потока выберем лампу ЛДЦ40−1, обеспечивающую световой поток в 2200 лк.

Лампы будем размещать в светильниках ЛСП02−2×40−13−15, которые имеют габаритные размеры 1234×280×159 мм.

Внешний вид светильника представлен на рисунке 6.

5.Рис. 6.5 — Внешний вид светильника.

Светильники с люминесцентными лампами устанавливают рядами, параллельно длинной стороне помещения или стенке с окнами. Расстояние между светильниками по длине и ширине помещения выбирается из условия La / Lb l, 5. Расстояние от крайних светильников до стены выбирается из 0,3 0,5 La, 0,3 0,5 Lb. L1 ~ 0, 6−0,7 м, L2 ~2 м. Схема размещения светильников в помещении приведена на рисунке 6.

4.6. 4 Мероприятия по пожарной безопасности.

Согласно НПБ 105−03 помещения, где располагаются персональные компьютеры, относятся к категории ‘В' пожарной опасности, при которой горючие и трудногорючие жидкости, твердые материалы и вещества, а также материалы, которые при взаимодействии с водой, воздухом или друг с другом способны только гореть. СНиП 2101−97 регламентирует число, размеры и конструкторские решения устройства эвакуационных путей. В соответствии с ним выбираем:

число выходов — 2;высота потолка в проходах — не менее 2 м;ширина проходов — не менее 0.8 м. Проходы должны иметь естественное и искусственное освещение. Согласно ГОСТ 12.

4.009−83* помещения вычислительного центра объемом 200 м² должны иметь следующие средства пожаротушения:

углекислотный огнетушитель ОУ-8 — 1 шт;порошковый огнетушитель ОП-5−01 — 1 шт;спринклерная система пожаротушения. Технические характеристики спринклеров приведены в таблице 6.

9.Таблица 6.9Технические характеристики спринклеров.

ПараметрЗначениерасход Q0,6 — 2,5 л/cрабочее давление Pp6 -10 барзащищаемая площадь Sз12 м2−30 м2угол распыла120°.

— 240°Cинтенсивность орошения qср0,03 -0,08 л/(с· м2) среднеквадратическое отклонение Sq<50%Возможность работы на растворах пенообразователя.

Под пожаром понимают неконтролируемый процесс горения, сопровождающийся уничтожением материальных ценностей и создающий опасность для жизни людей. Пожар может принимать различные формы, однако все они в конечном счете сводятся к химической реакции между горючими веществами и кислородом воздуха (или иным видом окислительных сред), возникающей при наличии инициатора горения или в условиях самовоспламенении. Пожары и возгорания на производственных предприятиях могут привести к ожогам разных степеней работающего персонала, отравлению продуктами горения, а так же могут стать причиной смерти. Для предупреждения пожаров, возникающих от неправильной эксплуатации электроустановок, необходимо правильно выбирать и применять кабели, электропровода, двигатели, светильники и другое электрооборудование в соответствии с классом пожаровзрывоопасности помещений и условий окружающей среды. Все электроустановки должны иметь аппараты защиты от токов короткого замыкания и других нарушений режимов, могущих привести к пожарам и загораниям. Электрическую сеть необходимо монтировать так, чтобы электрические светильники не соприкасались со сгораемыми конструкциями зданий и горючими материалами; светильники должны быть закрытыми или защищёнными от пыли. Большое значение для пожарной профилактики имеет система мер по предотвращению распространения огня: противопожарные разрывы между зданиями и сооружениями, противопожарные внутренние и внешние преграды, наличие противопожарного водоснабжения и первичных средств для тушения очагов возгораний, пожарной сигнализации и связи и др. Расчет эвакуации при пожаре Лаборатория имеет один эвакуационный выход. Количество человек работающих в ней равно 4. Число людей, которые могут оказаться в лаборатории по служебной необходимости, принимается равным 50%. Определяем общее количество людей в лаборатории: SN = Nт + 0,5 · Nт SN = 4 + 0,5 · 4 = 6 человек Определяем равномерное перераспределение людей по потокам эвакуации: SN / n = 6 / 1 = 6 человек Минимальную скорость движения людских потоков принимаем равной 20 м / мин. Определяем время перемещения (эвакуации): t = l / v, где t — максимальная продолжительность эвакуации людей от рабочих мест до ближайшего выхода, мин.; l — наибольшее расстояние от рабочего места до ближайшего эвакуационного выхода, м.; v — скорость перемещения людей при эвакуации, м / мин. t = 6/ 20 = 0,3 минуты.

Суммарную ширину проходов (В) для эвакуации всех находящихся в лаборатории людей определяем по формуле: В = (N * C) / (t *j), где N — общее число людей в лаборатории, человек; С — минимальная ширина одного потока, С = 0,8 м; t — время эвакуации, мин.; j — средняя пропускная способность одного потока; j = 20 чел/мин. В = (6 * 0,8) / (0,3 * 20) = 0,8 метра Полученная ширина соответствует нормам противопожарной безопасности, установленными для лаборатории.

ЗАКЛЮЧЕНИЕ

В дипломном проекте был разработано Электронное учебное пособиена базе которого был создан курс обучения «Основы программирования на языке Delphi», который предназначен для обучения студентов. Благодаря дружественному и простому в использовании интерфейсу у пользователя есть возможность быстро и эффективно освоить данный курс, оценить свои знания, с помощью программы самоконтроля проверить, усвоен ли материал. В рамках работы над этой системой было проанализировано техническое задание на разработку информационно-обучающей системы, разработана его информационная часть, сформированы требования к аппаратной, информационной частям системы, выполнено функциональное проектирование системы. На основании полученных результатов спроектирована информационная часть информационно-обучающей системы по энергосистемам автомобиля, разработано алгоритмическое и программное обеспечение системы проведения тестирующего опроса база данных. В качестве средств разработки информационной обучающей системы в виде электронного учебного пособия использовалось средство визуального проектирования Borland Development Studio 2006, а так же язык разметки Web документов HTML. Было разработано алгоритмическое и программное обеспечение тестирующей системы, которое способнонакапливать сведения о результатах тестирования студентами разных групп и отображать результаты тестирования, а так же дополнять систему новыми тестами и вариантами ответов. С разработанным проектом были проведены все необходимые мероприятия по тестированию и испытанию в среде Windows. На основании проведения тестирования были сделаны следующие выводы:

Созданная система выполняет все функции, указанные в ТЗ. Система корректно осуществляет свою работу при работе с большими объемами данных и при выполнении запросов. При тестировании было определено, что система обрабатывает все исключительные ситуации, но имеет недостаточную информационную поддержку сообщений об ошибках и недостаточное описание ошибок. В ходе тестирования на разных конфигурациях было определено, что система способна эффективно работать в среде Windows на компьютере минимальной конфигурацией, все ошибки, выявленные в результате тестирования, были устранены. В завершении работы была проведена оценка экономической эффективности предлагаемых решений, а так же экологической безопасности предлагаемых проектных решений.

ЛИТЕРАТУРА

Delphi 7 на примерах/Под ред. Ю. С. Ковтанюка — К.: Издательство Юниор, 2003. — 384 с., ил. Автоматизированные информационные системы. Криницкий Н. А., Миронов Г. А., Фролов Г. Д./ Под ред. А. А. Дородницына.

М.: Наука. Главная редакция физико-математической литературы, 1982.-384 с. Андрианова E.Г., Колесников Г. С., Сыромятников В. П. Структуры и алгоритмы обработки данных — часть 2.

/ Лабораторный практикум. МИРЭА, Москва, 2004 г. Архангельский А. Я. 100 компонентов общего назначения библиотеки Delphi 5. — М.: Бином, 1996.

— 266 с. Архангельский А. Я. Программирование в Delphi 6. — М.: Бином, 2001. — 564 с. Архангельский А. Я. Язык SQL в Delphi 5.

— М.: Бином, 2000. — 205 с. Ахо Альфред. В.

Хопкрофт, Джон, Ульман, Джеффри Д. Структуры данных и алгоритмы.: Пер. с англ.: Уч.

пос. — М.: Издательский дом «Вильяме», 2000, — 384 сАхтамова С. С. Алгоритмы поиска данных // Современные наукоемкие технологии. -.

2007. — № 3 — С. 11−14.Бакнелл Джулиан М. Фундаментальные алгоритмы и структуры данных в Delphi.

Пер. с англ./ Джулиан М. Бакнелл. — СПб: ООО «Диа.

СофтЮП", 2003. 560 с. Башмаков А. И., Башмаков И. А. Разработка компьютерных учебников и обучающих систем. — М.: Информационно-издательский дом «Филинъ», 2003.

Безопасность жизнедеятельности: Электробезопасность: учеб.

пособие / В. С. Розанов. ;

М.: 1999 г. Беспалько В. П. Образование и обучение с участием компьютера (педагогика третьего тысячелетия). М.: Изд-во Моск.

психол.

соц. Ин-та-Воронеж: Изд-во НПО «МОДЭК», 2002. — 352 с. Буч Г. Объектно-ориентированное проектирование с примерами применения. М., 1992. — 654с. Вирт Н.

Алгоритмы и структуры данных: Пер. с англ. М.: Мир, 2001.

Гагарина Л. Г. Алгоритмы и структуры данных: учеб. пособие/ Л. Г. Гагарина, В. Д. Колдаев. — М.: Финансы и статистика; ИНФРА-М, 2006. ;

304 с. Гайдамакин Н. А. Автоматизированные информационные системы, базы и банки данных. Вводный курс: Учебное пособие. — М.: Гелиос АРВ, 2002.

— 368 с. Гасфилд Д. Строки, деревья и последовательности в алгоритмах: Информатика и вычислительная биология / Пер с англ. И. В. Романовского. — СПб.: Невский диалект; БХВ-Петербург, 2003 г. — 654 с. Гиндикин С. Г., Рассказы о физиках и математиках.

— 3-е изд., расширенное. М.: МЦНМО, 2001. — 448 с/Голицына ОЛ., Попов И. И. Основы алгоритмизации и программирования: учеб.

пособие. — 3-е изд., испр. и доп. — М: ФОРУМ, 2008. —.

432 сГолубков Е. П. Маркетинговые исследования: теория, методология и практика. М., Финпресс, 1998. — 280с. ГОСТ 16.701−90 (ИСО 5807−85).

Схемы алгоритмов программ, данных и систем. Условные обозначения и правила выполнения. — Введ.

01.

01.92. — М.: Госстандартиздат, 1990. — 20 с. ГОСТ 16.701−90 (ИСО 5807−85). Схемы алгоритмов программ, данных и систем.

Условные обозначения и правила выполнения. — Введ. 01.

01.92. — М.: Госстандартиздат, 1990. — 20 с. Гофман В. Э. Хомоненко А.Д. Delphi 6. — СПб.: — Санкт-Петербург, 2001. -.

1145с.Информатика: учебник для вузов / под ред. Н. В. Макаровой. — М. :

Финансы и статистика, 2007. — 768 с. Каймин В. А., Горелов Ю. Н., «Об электронных учебниках по информатике и финансовому менеджменту», / Материалы конференции «Информационные технологии в образовании», Троицк. 1998.

Ковалев А. И., Войленко В. В. Маркетинговый анализ. М., Центр экономики и маркетинга, 1996.

Конноли Томас, Бегг Каролин. Базы данных. Проектирование, реализация и сопровождение. Теория и практика. — М.: Вильямс, 2000.

— 1111 с. Культин Н. Б. Delphi 6: Программирование на Object Pascal. — М.: Бином, 2001. — 526 с. Культин Н. Б. Delphi 7: Программирование на Object Pascal. —.

М.: Бином, 2003. — 535 с. Нестандартные приемы программирования на Delphi. — СПб.: БХВ-Петербург, 2005. — 560 с: ил. Питер Роб, Карлос Коронел. Системы баз данных: проектирование, реализация и управление, БХВ-Петербург, Сп-б, 2004 г. Смирнов А. Н. Проблемы электронного учебника // «Математика в школе», 2000 год., № 5.Фатрелл Р., Шафер Д.

Шафер Л. Управление программными проектами: достижение оптимального качества при минимуме затрат. М.: «Вильямс», 2003. — 1128с. Федотова Д. Э. Технология разработки и отладки программ: Учебн.

пособие / МИРЭА.

М., 1987.-80с.Федотова Д. Э. Типы и структуры данных в современных языках программирования. / Учебное пособие. Москва, 1981 г. Федотова Д. Э., Семенов Ю. Д., Чижик К. Н. CASE — технологии. Москва, Горячая линия — Телеком, 2003 г. Челышкова М. Б. Адаптивное тестирование в образовании М.: Информационно-издательский дом «Филинъ», 2003. 440 с. Шумаков П. В., Фаронов В. В. Delphi 5. Руководство разработчика баз данных. — М.: Нолидж, 2000. — 635 с. Экономика предприятия (фирмы):/ Учебник/ под ред.

проф. О. И. Волкова и доц. О. В. Девяткина.- 3-е изд., перераб. и доп. ._М.: ИНФРА, М.-2004 г. Якобсон А., Буч Г., Рамбо, Дж Унифицированный процесс разработки программного обеспечения. — СПб.: Питер, 2002.-496 с. ПРИЛОЖЕНИЕ АЛИСТИНГ ПРИЛОЖЕНИЯunit main;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, RzDlgBtn, RzButton, ExtCtrls, RzPanel, view, RzLabel, StdCtrls;type Tmainform = class (TForm) RzPanel1: TRzPanel; RzButton1: TRzButton; RzPanel2: TRzPanel; RzButton2: TRzButton; RzButton3: TRzButton; RzButton4: TRzButton; RzButton5: TRzButton; Label1: TLabel; RzLabel1: TRzLabel; Label2: TLabel; Label3: TLabel; procedure RzButton2Click (Sender: TObject); procedure RzButton3Click (Sender: TObject); procedure RzButton4Click (Sender: TObject); procedure FormCreate (Sender: TObject); procedure RzButton1Click (Sender: TObject); procedure RzButton5Click (Sender: TObject); private { Private declarations } public { Public declarations } end; TVopros= record tema: integer; soder: string[100]; otvet1: string[50]; otvet2: string[50]; otvet3: string[50]; prav: integer; end; totvet=record FIO: string[20]; Nomer: string[6]; test: string[25]; datetest: string[15]; vsego: word; osh: word; v: array[1.10] of string[1]; end; TVoprosFile = file of TVopros; TOtvetFile = file of TOtvet;var mainform: Tmainform; path, name_file:string; cur_tem, cur_vopros, cur_count:word; vopros: array[1.10] of Tvopros; student, f_student:totvet; //Файловая переменная. gF: TVoprosFile; gf2: TOtvetFile; //Полное имя файла gFileName, gShortFileName: String; gFileName1, gShortFileName1: String;implementation uses Htmlabt, edit, test;{$R *.dfm}procedure Tmainform. FormCreate (Sender: TObject);begin Left := Left div 2+100;Top := Top div 2;cur_vopros:=0;end;procedure Tmainform. RzButton1Click (Sender: TObject);begin mainform. Visible:=false;// Update; path:=ExtractFilePath (Application.ExeName); name_file:=path+'htmlindex.html'; htmlform.Viewer.LoadFromFile (name_file); Caption := htmlform.Viewer.DocumentTitle;htmlform.Show;end;procedure Tmainform. RzButton2Click (Sender: TObject);begin mainform. Visible:=false;testform.Show;testform.RzPanel1.Top:=0;testform.RzPanel1.left:=0;end;procedure Tmainform. RzButton3Click (Sender: TObject);begin mainform. Visible:=false; if InputBox ('ввод пароля','Введите пароль','') = 'admin' then editform. Show else begin ShowMessage ('Пароль неправильный'); mainform. Visible:=true;; end;end;procedure Tmainform. RzButton4Click (Sender: TObject);beginAboutBox := TAboutBox. CreateIt (Self, 'Учебное пособие ', 'TFrameViewer');try AboutBox. ShowModal;finally AboutBox. Free; end;end;procedure Tmainform. RzButton5Click (Sender: TObject);beginmainform.Close;end;end.unit view;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, RzButton, ExtCtrls, RzPanel, Htmlview, Menus, Readhtml, FramView; const MaxHistories = 6; {size of History list}type Thtmlform = class (TForm) RzPanel1: TRzPanel; FwdButton: TRzBitBtn; backbutton: TRzBitBtn; RzBitBtn3: TRzBitBtn; ReLoadButton: TRzBitBtn; MainMenu: TMainMenu; File1: TMenuItem; PrinterSetup1: TMenuItem; Printpreview: TMenuItem; Print1: TMenuItem; N1: TMenuItem; Exit1: TMenuItem; HistoryMenuItem: TMenuItem; About1: TMenuItem; Viewer: TFrameViewer; RzBitBtn1: TRzBitBtn; RzBitBtn2: TRzBitBtn; procedure About1Click (Sender: TObject); procedure RzBitBtn2Click (Sender: TObject); procedure RzBitBtn1Click (Sender: TObject); procedure Exit1Click (Sender: TObject); procedure ViewerHistoryChange (Sender: TObject); procedure FwdButtonClick (Sender: TObject); procedure HistoryClick (Sender: TObject); procedure FormCreate (Sender: TObject); procedure backbuttonClick (Sender: TObject); procedure ReLoadButtonClick (Sender: TObject); procedure RzBitBtn3Click (Sender: TObject); private { Private declarations } Histories: array[0.MaxHistories-1] of TMenuItem; public { Public declarations } end;var htmlform: Thtmlform; i: word;implementationuses main, Htmlabt;{$R *.dfm}procedure Thtmlform. ReLoadButtonClick (Sender: TObject);beginwith htmlform. Viewer do begin ReLoadButton. Enabled := False; ReLoad; ReLoadButton. Enabled := CurrentFile <> ''; Viewer. SetFocus; end;end;procedure Thtmlform. Exit1Click (Sender: TObject);begin htmlform. Close; mainform. Visible:=true;end;procedure Thtmlform. FormCreate (Sender: TObject);begin Left := Left div 2;Top := Top div 2;{Width := (Screen.Width * 8) div 10;Height := (Screen.Height * 6) div 8; }Viewer.HistoryMaxCount := MaxHistories; {defines size of history list}for I := 0 to MaxHistories-1 do begin {create the MenuItems for the history list} Histories[I] := TMenuItem. Create (HistoryMenuItem); HistoryMenuItem. Insert (I, Histories[I]); with Histories[I] do begin OnClick := HistoryClick; Caption := 'XX'; Tag := I; end; end;{DragAcceptFiles (Handle, True);HintWindow := THintWindow. Create (Self);HintWindow.Color := $CCFFFF; }end;procedure Thtmlform. FwdButtonClick (Sender: TObject);begin htmlform.Viewer.GoFwd;end;procedure Thtmlform. About1Click (Sender: TObject);beginAboutBox := TAboutBox. CreateIt (Self, 'Вычислительная техника и информационные технологии ', 'TFrameViewer');try AboutBox. ShowModal;finally AboutBox. Free; end;end;procedure Thtmlform. backbuttonClick (Sender: TObject);begin with Viewer do begin if Sender = BackButton then HistoryIndex := HistoryIndex +1 else HistoryIndex := HistoryIndex -1;// Self. Caption := DocumentTitle; end;end;procedure Thtmlform. HistoryClick (Sender: TObject);begin Viewer. HistoryIndex := (Sender as TMenuItem).Tag;end;procedure Thtmlform. RzBitBtn1Click (Sender: TObject);begin htmlform. Close; mainform. Visible:=true;end;procedure Thtmlform. RzBitBtn2Click (Sender: TObject);begin // htmlform. htmlform. close; mainform. RzButton1Click (sender);end;procedure Thtmlform. RzBitBtn3Click (Sender: TObject);begin htmlform. close; mainform. RzButton1.Click;end;procedure Thtmlform. ViewerHistoryChange (Sender: TObject);var I: integer; Cap: string[80]; beginwith Sender as TFrameViewer do begin {check to see which buttons are to be enabled} FwdButton. Enabled := FwdButtonEnabled; BackButton. Enabled := BackButtonEnabled; {Enable and caption the appropriate history menuitems} HistoryMenuItem. Visible := History. Count > 0; for I := 0 to MaxHistories-1 do with Histories[I] do if I < History. Count then Begin Cap := History. Strings[I]; if TitleHistory[I] <> '' then Cap := Cap + '.

—&# 39; + TitleHistory[I]; Caption := Cap; {Cap limits string to 80 char} Visible := True; Checked := I = HistoryIndex; end else Histories[I]. V isible := False;//Caption := DocumentTitle; {keep the caption updated}//Viewer.SetFocus; end;end;end.unit edit;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, RzButton, Grids, RzGrids, ExtCtrls, RzPanel, StdCtrls, RzCmboBx, Mask, RzEdit, RzSpnEdt, main, rezult;type TEditForm = class (TForm) RzStringGrid1: TRzStringGrid; RzSpinEdit1: TRzSpinEdit; RzComboBox1: TRzComboBox; Label1: TLabel; Label2: TLabel; RzPanel1: TRzPanel; RzBitBtn1: TRzBitBtn; RzBitBtn2: TRzBitBtn; RzBitBtn3: TRzBitBtn; RzBitBtn4: TRzBitBtn; Label3: TLabel; procedure RzBitBtn4Click (Sender: TObject); procedure RzComboBox1Change (Sender: TObject); procedure RzBitBtn2Click (Sender: TObject); procedure RzBitBtn3Click (Sender: TObject); procedure RzBitBtn1Click (Sender: TObject); procedure FormCreate (Sender: TObject); procedure RzSpinEdit1Change (Sender: TObject); private { Private declarations } public { Public declarations } end;var EditForm: TEditForm; j: integer;implementation{$R *.dfm}procedure TEditForm. FormCreate (Sender: TObject);begineditform.RzStringGrid1.ColWidths[0]: =250;editform.RzStringGrid1.Cells[0,0]:='Вопрос';editform.RzStringGrid1.ColWidths[1]:=100;editform.RzStringGrid1.Cells[1,0]:='Вариант 1';editform.RzStringGrid1.ColWidths[2]: =100;editform.RzStringGrid1.Cells[2,0]:='Вариант 2';editform.RzStringGrid1.ColWidths[3]: =100;editform.RzStringGrid1.Cells[3,0]:='Вариант 3';editform.RzStringGrid1.ColWidths[4]: =100;editform.RzStringGrid1.Cells[4,0]:='№ прав.';editform.RzComboBox1Change (sender);end;procedure TEditForm. RzBitBtn1Click (Sender: TObject); var j: integer;begineditform.Label3.Caption:=''; gShortFileName := 'v'+inttostr (editform.RzComboBox1.ItemIndex)+'.txt'; gFileName := ExtractFilePath (Application.ExeName) + '' + gShortFileName; AssignFile (gF, gFileName); Rewrite (gF); for j:=1 to editform. RzStringGrid1.rowcount-1 do begin vopros[j]. tema:=editform.RzComboBox1.ItemIndex; vopros[j]. soder:=editform.RzStringGrid1.Cells[0,j]; vopros[j].

otvet1:=editform.RzStringGrid1.Cells[1,j]; vopros[j]. otvet2:=editform.RzStringGrid1.Cells[2,j]; vopros[j]. otvet3:=editform.RzStringGrid1.Cells[3,j]; if editform. RzStringGrid1.Cells[4,j]='' then showmessage ('не введен правильный ответ в строке '+inttostr (j)) else vopros[j]. prav:=strtoint (editform.RzStringGrid1.Cells[4,j]); //Записываем данные Write (gF, vopros[j]); end; //Закрываем файл. C loseFile (gF); editform. Label3.Caption:='файл успешно сохранен';end;procedure TEditForm. RzBitBtn2Click (Sender: TObject);begineditform.Label3.Caption:=''; gShortFileName := 'v'+inttostr (editform.RzComboBox1.ItemIndex)+'.txt'; gFileName := ExtractFilePath (Application.ExeName) + gShortFileName; AssignFile (gF, gFileName); Reset (gF); j:=1; editform. RzStringGrid1.RowCount:=5; while not (eof (gf)) do begin read (gF, vopros[j]); editform. RzStringGrid1.Cells[0,j]: = vopros[j].

soder; editform. RzStringGrid1.Cells[1,j]: =vopros[j].otvet1; editform. RzStringGrid1.Cells[2,j]: =vopros[j].otvet2; editform. RzStringGrid1.Cells[3,j]: =vopros[j].otvet3; editform. RzStringGrid1.Cells[4,j]: = inttostr (vopros[j]. prav); j:=j+1; end; //Закрываем файл. editform. RzSpinEdit1.IntValue:=j-1; CloseFile (gF); editform. Label3.Caption:='файл успешно загружен'; //close (gf);end;procedure TEditForm. RzBitBtn3Click (Sender: TObject);begin editform. Close; mainform. Visible:=true;end;procedure TEditForm. RzBitBtn4Click (Sender: TObject);begin rezform. FormCreate (sender); rezform. show;end;procedure TEditForm. RzComboBox1Change (Sender: TObject);begin gShortFileName := 'v'+inttostr (editform.RzComboBox1.ItemIndex)+'.txt'; gFileName := ExtractFilePath (Application.ExeName) + gShortFileName; AssignFile (gF, gFileName); Reset (gF); j:=1; editform. RzStringGrid1.RowCount:=5; while not (eof (gf)) do begin read (gF, vopros[j]); editform. RzStringGrid1.RowCount:=j+1; editform. RzStringGrid1.Cells[0,j]: = vopros[j]. soder; editform. RzStringGrid1.Cells[1,j]: =vopros[j].otvet1; editform. RzStringGrid1.Cells[2,j]: =vopros[j].otvet2; editform. RzStringGrid1.Cells[3,j]: =vopros[j].otvet3; editform. RzStringGrid1.Cells[4,j]: = inttostr (vopros[j].

prav); j:=j+1; end; editform. RzSpinEdit1.IntValue:=j-1; CloseFile (gF);end;procedure TEditForm. RzSpinEdit1Change (Sender: TObject);begineditform.RzStringGrid1.RowCount:=editform.RzSpinEdit1.IntValue+1;end;end.unit test;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, RzButton, ExtCtrls, RzPanel, RzRadChk, RzRadGrp, StdCtrls, Mask, RzEdit, main, RzPrgres;type TTestForm = class (TForm) RzPanel1: TRzPanel; RzButton1: TRzButton; RzPanel2: TRzPanel; RzButton2: TRzButton; RzButton3: TRzButton; RzButton4: TRzButton; RzButton5: TRzButton; RzButton6: TRzButton; RzPanel3: TRzPanel; RzPanel4: TRzPanel; RzCheckGroup1: TRzCheckGroup; RzCheckBox1: TRzCheckBox; RzCheckBox3: TRzCheckBox; RzCheckBox2: TRzCheckBox; RzPanel5: TRzPanel; RzBitBtn1: TRzBitBtn; RzBitBtn2: TRzBitBtn; RzEdit1: TRzEdit; RzEdit2: TRzEdit; Label1: TLabel; Label2: TLabel; RzProgressBar1: TRzProgressBar; Label3: TLabel; RzProgressBar2: TRzProgressBar; Label4: TLabel; procedure FormCreate (Sender: TObject); procedure RzBitBtn1Click (Sender: TObject); procedure RzButton6Click (Sender: TObject); procedure RzButton4Click (Sender: TObject); procedure RzButton3Click (Sender: TObject); procedure RzButton2Click (Sender: TObject); procedure RzButton5Click (Sender: TObject); procedure RzBitBtn2Click (Sender: TObject); procedure RzButton1Click (Sender: TObject); private { Private declarations } public { Public declarations } end;var TestForm: TTestForm; j: integer; a: array[0.10] of word; t, s, kk:word; gf1: TOtvetFile;implementation{$R *.dfm}procedure TTestForm. FormCreate (Sender: TObject);beginkk:=0;end;procedure TTestForm. RzBitBtn1Click (Sender: TObject);begin a[cur_vopros]: =0;if testform. RzCheckBox1.Checked then a[cur_vopros]: =1;if testform. RzCheckBox2.Checked then a[cur_vopros]: =2;if testform. RzCheckBox3.Checked then a[cur_vopros]: =3;Testform.RzProgressBar1.Percent:= Round ((cur_vopros+1)/cur_count*100);if a[cur_vopros]<> vopros[cur_vopros]. prav thenbegin Testform. RzProgressBar2.Percent:= Round ((kk)/(cur_vopros+1)*100); kk:=kk+1;end;cur_vopros:=cur_vopros+1;testform.RzCheckBox1.Checked:=false;testform.RzCheckBox2.Checked:=false;testform.RzCheckBox3.Checked:=false;if cur_vopros<Cur_count thenbegintestform. RzCheckBox1.Caption:= vopros[cur_vopros]. otvet1;testform.RzCheckBox2.Caption:= vopros[cur_vopros]. otvet2;testform.RzCheckBox3.Caption:= vopros[cur_vopros]. otvet3;testform.RzPanel5.Caption:=vopros[cur_vopros].soderendelsebegins:=0;for t := 1 to 6 do student. v[t]: =' ';for t:= 1 to cur_vopros-1 dobegin student. v[t]: ='+'; if a[t]<>vopros[t]. prav then begin s:=s+1; student. v[t]: ='.

-&# 39;; end;end; showmessage ('Количество вопросов = '+inttostr (cur_vopros-1)+ ' Количество ощибок = '+inttostr (s)); {*****************************} gShortFileName1 := 'test.txt'; gFileName1 := ExtractFilePath (Application.ExeName) + '' + gShortFileName1; AssignFile (gF1, gFileName1); if FileExists (gFileName1) then begin Reset (gF1); while not Eof (gF1) do begin //Читаем записи только для того, чтобы перемещать файловый указатель. R ead (gF1, f_student); end; end else begin //Создаём файл. И открываем созданный файл в режиме «только запись». Rewrite (gF1); end; student. datetest:=datetostr (now); student. vsego:= cur_vopros-1; student. osh:= s; cur_vopros:=0; //Записываем данные Write (gF1, student); //Закрываем файл. C.

loseFile (gF1); testform. RzBitBtn2.Visible:=true;end;end;procedure TTestForm. RzBitBtn2Click (Sender: TObject);begintestform.RzPanel1.Visible:=true;testform.RzPanel3.Visible:=false;end;procedure TTestForm. RzButton1Click (Sender: TObject);begin if ((testform.RzEdit1.Text<>'') and (testform.RzEdit2.Text<>'')) then begin cur_tem:=0;cur_vopros:=0;testform.RzPanel1.Visible:=false;testform.Left:=100; testform. Height:=450; testform. Width:=405;testform.RzPanel3.Visible:=true; student. FIO:=testform.RzEdit1.Text; student. Nomer:=testform.RzEdit2.Text;testform.RzPanel4.Caption:='Темы 1−5. Основы программирования в Delphi'; student. test:=testform.RzPanel4.Caption;gShortFileName := 'v'+inttostr (cur_tem)+'.txt'; gFileName := ExtractFilePath (Application.ExeName) + gShortFileName; AssignFile (gF, gFileName); Reset (gF); j:=1; while not (eof (gf)) do begin read (gF, vopros[j]); j:=j+1; end; //Закрываем файл. cur_count:=j; CloseFile (gF); testform. RzBitBtn2.Visible:=false;; testform. RzBitBtn1.Click; end else ShowMessage ('Не введелия фамилия студента или номер группы')end;procedure TTestForm. RzButton2Click (Sender: TObject);begin if ((testform.RzEdit1.Text<>'') and (testform.RzEdit2.Text<>'')) then begin student. FIO:=testform.RzEdit1.Text; student. Nomer:=testform.RzEdit2.Text; cur_tem:=1;cur_vopros:=0;testform.RzPanel1.Visible:=false;testform.Left:=100; testform. Height:=450; testform. Width:=405;testform.RzPanel3.Visible:=true;testform.RzPanel4.Caption:='Темы 6−14. Свойства, методы и события в Delphi'; student. test:=testform.RzPanel4.Caption; gShortFileName := 'v'+inttostr (cur_tem)+'.txt'; gFileName := ExtractFilePath (Application.ExeName) + gShortFileName; AssignFile (gF, gFileName); Reset (gF); j:=1; while not (eof (gf)) do begin read (gF, vopros[j]); j:=j+1; end; //Закрываем файл. cur_count:=j; CloseFile (gF); testform. RzBitBtn2.Visible:=false;; testform. RzBitBtn1.Click; end else ShowMessage ('Не введелия фамилия студента или номер группы')end;procedure TTestForm. RzButton3Click (Sender: TObject);begin if ((testform.RzEdit1.Text<>'') and (testform.RzEdit2.Text<>'')) then begin student. FIO:=testform.RzEdit1.Text; student. Nomer:=testform.RzEdit2.Text; cur_tem:=2;cur_vopros:=0;testform.RzPanel1.Visible:=false;testform.Left:=100; testform. Height:=450; testform. Width:=405;testform.RzPanel3.Visible:=true;testform.RzPanel4.Caption:='Темы 15−25. Работа с базами данных в Delphi'; student. test:=testform.RzPanel4.Caption;gShortFileName := 'v'+inttostr (cur_tem)+'.txt'; gFileName := ExtractFilePath (Application.ExeName) + gShortFileName; AssignFile (gF, gFileName); Reset (gF); j:=1; while not (eof (gf)) do begin read (gF, vopros[j]); j:=j+1; end; //Закрываем файл.

cur_count:=j; CloseFile (gF); testform. RzBitBtn2.Visible:=false;; testform. RzBitBtn1.Click; end else ShowMessage ('Не введелия фамилия студента или номер группы')end;procedure TTestForm. RzButton4Click (Sender: TObject);begin if ((testform.RzEdit1.Text<>'') and (testform.RzEdit2.Text<>'')) then begin student. FIO:=testform.RzEdit1.Text; student. Nomer:=testform.RzEdit2.Text; cur_tem:=3;cur_vopros:=0;testform.RzPanel1.Visible:=false;testform.Left:=100; testform. Height:=450; testform. Width:=405;testform.RzPanel3.Visible:=true;testform.RzPanel4.Caption:='Темы 26−29. Основы ООП'; student. test:=testform.RzPanel4.Caption;gShortFileName := 'v'+inttostr (cur_tem)+'.txt'; gFileName := ExtractFilePath (Application.ExeName) + gShortFileName; AssignFile (gF, gFileName); Reset (gF); j:=1; while not (eof (gf)) do begin read (gF, vopros[j]); j:=j+1; end; //Закрываем файл. cur_count:=j; CloseFile (gF); testform. RzBitBtn2.Visible:=false;; testform. RzBitBtn1.Click; end else ShowMessage ('Не введелия фамилия студента или номер группы')end;procedure TTestForm. RzButton5Click (Sender: TObject);begin testform. Close; mainform. Visible:=true;end;procedure TTestForm. RzButton6Click (Sender: TObject);beginif ((testform.RzEdit1.Text<>'') and (testform.RzEdit2.Text<>'')) then begin student. FIO:=testform.RzEdit1.Text; student. Nomer:=testform.RzEdit2.Text; cur_tem:=4;cur_vopros:=0;testform.RzPanel1.Visible:=false;testform.Left:=100; testform. Height:=450; testform. Width:=405;testform.RzPanel3.Visible:=true;testform.RzPanel4.Caption:='Тема 30. Осовы SQL'; student. test:=testform.RzPanel4.Caption; gShortFileName := 'v'+inttostr (cur_tem)+'.txt'; gFileName := ExtractFilePath (Application.ExeName) + gShortFileName; AssignFile (gF, gFileName); Reset (gF); j:=1; while not (eof (gf)) do begin read (gF, vopros[j]); j:=j+1; end; //Закрываем файл. cur_count:=j; CloseFile (gF); testform. RzBitBtn2.Visible:=false;; testform. RzBitBtn1.Click; end else ShowMessage ('Не введелия фамилия студента или номер группы')end;end.unit rezult;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Grids, RzGrids, RzButton;type TRezForm = class (TForm) RzStringGrid1: TRzStringGrid; RzBitBtn1: TRzBitBtn; procedure RzBitBtn1Click (Sender: TObject); procedure FormCreate (Sender: TObject); private { Private declarations } public { Public declarations } end;var RezForm: TRezForm; jj: integer;implementation uses main, edit;{$R *.dfm}procedure TRezForm. FormCreate (Sender: TObject);vari:word;begin Rezform. RzStringGrid1.ColWidths[0]: =100;Rezform.RzStringGrid1.Cells[0,0]:='Студент';Rezform.RzStringGrid1.ColWidths[1]:=50;Rezform.RzStringGrid1.Cells[1,0]:='Группа';Rezform.RzStringGrid1.ColWidths[2]:=75;Rezform.RzStringGrid1.Cells[2,0]:='Дата';Rezform.RzStringGrid1.ColWidths[3]:=150;Rezform.RzStringGrid1.Cells[3,0]:='Тема';Rezform.RzStringGrid1.ColWidths[4]:=100;Rezform.RzStringGrid1.Cells[4,0]:='всего';Rezform.RzStringGrid1.ColWidths[5]:=100;Rezform.RzStringGrid1.Cells[5,0]:='ошибки';Rezform.RzStringGrid1.ColWidths[6]:=25;Rezform.RzStringGrid1.Cells[6,0]:='1';Rezform.RzStringGrid1.ColWidths[7]:=25;Rezform.RzStringGrid1.Cells[7,0]:='2';Rezform.RzStringGrid1.ColWidths[8]:=25;Rezform.RzStringGrid1.Cells[8,0]:='3';Rezform.RzStringGrid1.ColWidths[9]:=25;Rezform.RzStringGrid1.Cells[9,0]:='4';Rezform.RzStringGrid1.ColWidths[10]:=25;Rezform.RzStringGrid1.Cells[10,0]:='5';Rezform.RzStringGrid1.ColWidths[11]:=25;Rezform.RzStringGrid1.Cells[11,0]:='6'; gShortFileName1 := 'test.txt'; gFileName1 := ExtractFilePath (Application.ExeName) + gShortFileName1; AssignFile (gF2, gFileName1); jj:=1; if FileExists (gFileName1) then begin Reset (gF2); while not Eof (gF2) do begin //Читаем записи только для того, чтобы перемещать файловый указатель. R ead (gF2, f_student); Rezform. RzStringGrid1.ColWidths[0]: =100;Rezform.RzStringGrid1.Cells[0,jj]:=f_student.FIO;Rezform.RzStringGrid1.Cells[1,jj]:=f_student.Nomer;Rezform.RzStringGrid1.Cells[2,jj]:=f_student.datetest;Rezform.RzStringGrid1.Cells[3,jj]:=f_student.test; { f_student.vsego:=0; f_student.osh:=0; }Rezform.RzStringGrid1.Cells[4,jj]: =inttostr (f_student.vsego);Rezform.RzStringGrid1.Cells[5,jj]:=inttostr (f_student.osh); for I := 1 to 6 do Rezform. RzStringGrid1.Cells[5+i, jj]: =f_student.v[i]; jj:=jj+1; Rezform. RzStringGrid1.RowCount:=jj; end; end; //Закрываем файл. CloseFile (gF2);end;procedure TRezForm. RzBitBtn1Click (Sender: TObject);beginrezform.Close;end;end.