Реферат: Программа психотестирования - текст реферата. Скачать бесплатно.
Банк рефератов, курсовых и дипломных работ. Много и бесплатно. # | Правила оформления работ | Добавить в избранное
 
 
   
Меню Меню Меню Меню Меню
   
Napishem.com Napishem.com Napishem.com

Реферат

Программа психотестирования

Банк рефератов / Программирование

Рубрики  Рубрики реферат банка

закрыть
Категория: Реферат
Язык реферата: Русский
Дата добавления:   
 
Скачать
Microsoft Word, 1184 kb, скачать бесплатно
Заказать
Узнать стоимость написания уникального реферата

Узнайте стоимость написания уникальной работы

Разработка программы психотестирования Введение Психология – великая наука . Она позволяет узнать о человеке ВСЕ . Для получения такой информации используются психологические тесты – исследуемому задаются вопросы и предлагаются варианты ответов . Он выбирает тот , который по смыслу ближе всех к его мнению . В конце теста ответы анализируются : каждому варианту присвоено некоторое количество баллов ; они подсчитываются и в зависимости от общего счета получается результат. Такие методы психологических исследований применяются довольно давно . Но в в ек компьютеров и всеобщего доступа к ним все чаще для тестирования стали применяться ЭВМ . Специализированная программа задает вопросы , принимает ответы , подсчитывает баллы и выдает результат . В Интернете имеются сайты , где все желающие могут узнать степен ь своей уверенности в себе , агрессивности , организованности и многое другое . Подобные программы существуют и для локальных ПК , не подключенных ни к каким сетям. В данной курсовой работе представлена система психотестирования SuperPsy, разработанная в систем е программирования Borland Delphi. В нее входит три теста , ответив на которые , человек получает обширные сведения о своем характере. В системе тесты не стационарны – можно создать файлы с другими тестами и пользоваться ними . Для создания файлов тестов имею тся две утилитные программы , которые также описаны в работе. Программа имеет некоторые элементы художественного оформления , что важно , если учесть специальность автора – ИПД. 1 Описание программы В данной курсовой работе предста влена программа для психотестирования , которая содержит три теста ; она создает психологический портрет человека , ответившего на все вопросы тестов. Кроме программы для тестирования курсовая работа включает в себя две программы для создания файлов тестов (в се тесты , а также их результаты , используемые программой психотестирования , содержатся в отдельных файлах , что упрощает усовершенствование системы тестирования ). 1 Внутренняя структура программы Проект Delphi называется SuperPsy . Он содержит три формы и один программный модуль , в котором описаны основные пользовательские типы и переменные , используемые в программе тестирования , а также в программах создания тестов . Все модули программы приведены в табл . 1. 1. Таблица 1.1 Програм мные модули Delphi, составляющие программу Имя модуля Форма Функции , которые выполняет Mainfrm FrmMain Здесь описано окно программы , которое видит пользователь сразу после ее запуска . Размещены процедуры выбора нужного теста. Testfrm FrmTest Окно тестиро вания – окно , на котором появляются вопросы и варианты ответов . В этом модуле размещены процедуры загрузки тестов. Resfrm FrmRes Это окно служит для вывода результата тестирования . Модуль не содержит важных процедур. TestTypes Нет В этом модуле собраны т ипы для описания тестов . Он общий для всех трех программ пакета. 1. 1. 1 Хранение информации теста Для хранения информации теста (тексты вопросов , варианты ответов и т . п .) используется пользовательский тип TTest: TTest=record text:string[255]; текст вопроса quest:array[1..3] of string[100]; варианты count:array[1..3] of byte; очки за вариант end; В такой записи хранится один вопрос . Весь тест содержится в массиве записей . При сохранении теста на диске используется типизи рованный файл этого типа . Программа создания тестов – TestCreator тоже использует этот тип. 1. 2 Хранение информации для возврата результов теста Подобно информации о тестах , информация результатов тоже хранится в записях . Тип называется TResult: TResult=record min,max:integer; кол - во баллов text:array[1..1000] of char; текст результата end; Подобно вопросам , результаты хранятся в массивах ; для сохранения на диске используются типизированные файлы. 1. 3 Опи сание работы программы На форме frmMain размещены кнопки SpeedButton, у которых свойство Flat установлено в “истину” . Благодаря этому они прозрачны . Надписи , которые находятся на этих кнопках , на самом деле взяты из графических файлов. Нажати е на любую кнопку вызывает соответствующий обработчик события , который , в свою очередь , присваивает глобальной переменной testfilename:string, описанной в модуле TestTypes, имя файла теста , а потом запускает процедуру RunTest, показывающую форму frmTest. Дальше работают процедуры модуля этой формы . Процедура Load, описанная как метод , загружает из файла теста очередной вопрос с вариантами . Обработчик события нажатия кнопки “Далее” проверяет наличие еще вопросов в файле и в случае позитивного ответа вызыва е т Load, в противном случае – грузит из файла результатов нужную запись в Label1 формы вывода результатов frmRes. После этого прячет окно тестирования и показывает результат . Устройство программ создания тестов и результатов не нуждается в описании. 1. 1. 4 Инструкция для пользователя Исполняемый файл программы называется SuperPsy.е xe. Запустив его , пользователь увидит окно , приглашающее выбрать нужный тест . Это окно показано на рис . 1. 1 Здесь , на фоне неба как-бы “висят” названия тестов . При движении курсора мышки по кнопке , она приподнимается над общим фоном , как показано на рис . 1.1 Щелкнув левой кнопкой мыши , тестируемый выбирает интересующий его тест и попадает в окно тестирования , показанное на р и с . 1. 2, стр . 10. Чтобы ответить на вопрос , достаточно щелкнуть на правильном с точки зрения пользователя варианте ответа (при этом все варианты тут-же заблокируются и станет доступной кнопка “Далее” ). Для перехода к следующему вопросу надо нажать кнопку “ Далее”. Рисунок 1. 2 – Окно тестирования 3 Создание тестов . Вспомогательные программы Как уже было сказано выше , в курсовую работу входят также две ути литы – для создания тестов и результатов к ним . Первая называется TestCreator, а вторая – ResCreator, ТС и RC. 3. 1 Создание теста Программа ТС имеет единственное (если не считать диалоговых открытия и сохранения файла ) окно . О но представлено на рис . 1. 3, стр . 11. Рисунок 1. 3 – Окно программы ТС При запуске вместо текста вопроса написана строка “Текст вопроса” , а вместо вариантов ответов – “Вариант 1 (2 ,3)” . Мышкой можно выбирать “радиобаттон” , а потом вводить в поле “текст варианта” нужный вариант. 3. 2 Создание файла результатов Для этого предназначена утилитная программа RC. (Result Creator). После запуска этой программы вы водится окно , представленное на рис . 1. 4, стр . 12. Рисунок 1. 4 – Окно программы Result Creator Как видно из рис . 1. 4, текст результата вводится в окне ввода типа Memo. В верхние спинэдиты помещается минимальное и максимальное количесиво очков , которые должен набрать тестируемый , чтобы высветился именно этот вариант результатов . Спинэдит “Вариант № ” показывает , над каким вариантом результата ведется ра б ота . Кнопки “Сохранить” и “Загрузить” вызывают стандартные диалоговые окна Windows для , соответственно , сохранения и загрузки файла результатов. Сохраняя файл результатов , желательно давать ему расширение RTS. 2 Система меню Сред а программирования Borland Delphi имеет два компонента для создания меню : TMainMenu и TPopupMenu. Они делают программирование меню приложений несложной задачей . В данной курсовой работе будут описаны способы создания меню с обеими компонентами , а также пр е дставлены примеры программ. 2. 1 TMa inMenu Для того , чтобы создать меню , поместите компонент на форму , а потом щелкните по нему два раза левой кнопкой мышки . Появится специальн ое окно для ввода пунктов меню , пример которого представлен на рис . 2. 1. Рисунок 2. 1 – Окно для ввода меню На рис . 2.1 показано окно для ввода п унктов меню , а также часть инспектора объектов со свойством Caption, которому нужно присвоить строку меню . Кроме того , можно изменить свойство Name. 2. 1. 1 События Чтобы программа реагировала на выбор пункта меню , нужно создать специальный обработчик события , который будет вызываться каждый раз при щелчке мышки по пункту или при нажатии клавиши “ ENTER” . Вставить обработчик события выбора меню можно несколькими способами : двойной щелчек по пункту на окне редактирования меню , на ф орме ; можно , в крайнем случае , назначить событие на странице “ Events” инспектора объектов. 2. 1. 2 Вложенные меню Такие меню широко применяются во многих приложениях Windows и не только . Выбирая пункт меню , пользователь попадает в другое меню (как правило , расположенное вертикально ) и может выбирать там . После ввода пункта горизонтального меню , оно принимает вид : Рисунок 2. 2 – Вложенное меню Теперь можно выделить мышкой пункт вложенного меню и вводить его параметры , как и для главного. Вложенным меню , в свою очередь , можно также назначать вложенные . Самый удобный способ – нажать правую кнопку мышки и выбрать из появившегося меню пункт “ Create Submenu” . Создавать вложенные меню Windows позволяет до бесконечности (на практике – сколько хватит памяти или пока не надоест ). 2. 1. 3 Дополнительные возможности Вместо обычного выполнения действия при выбо ре пункта меню , можно сделать так , чтобы он отмечался “птичкой” (Рис . 2. 4). В этом случае данный пункт действует подобно элементу интерфейса CheckBox. Чтобы в программе узнать , “включен” ли пункт , надо проверить свойство Checked. Рисунок 2. 4 – Меню , отмеченное “птичкой” Во многих приложениях также применяется возможность закрытия доступа к определенному пункту меню , есло в данный момент он не может выполнится . Для этого служит свойство Enabled. Оно , как и Checked, имеет тип Boolean. На рис . 2.4 видно , что пункт “Меню 2” выделен жирным шрифтом . Это результат установки еще одного логического свойства объекта – Default. Еще одна важная возможность – вст авка разделительной линии . На рис . 2.5 (стр . 16) она размещена между “Меню 1” и “Меню 2” : Эту “примочку” используют в основном для отдления различных типов действия , вызываемого меню , например , часто в меню “Файл” помещают список нескольких открывавшихся ран ее файлов , отделенный от остального меню такими линиями . Прекрасным примером использования разделительных линий также может служить меню “Файл” программы Microsoft Word. Одной из самых удобных возможностей системы меню является возможность использования к лавиш быстрого доступа , при одновременном нажатии клавиш Ctrl и Р текущий документ отправлется на печать . И не нужно отвлекаться , тратить время , снимать руку с клавиатуры… Рассматриваемый нами компонент TMainMenu также обладает возможностью назначения клав иш быстрого доступа . Для этого служит свойство ShortCut. В инспекторе объектов оно имеет раскрывающийся список , из которого можно выбрать нужную комбинацию клавиш . Если кому-то захочется сделать уж очень “крутую” программу , тут ему поможет возможность вс тавки картинок. 2. 2 TPopupMenu Это всплывающее меню , оно вызывается нажатием правой кнопки мыши . Как и MainMenu, этот компонент следует поместить на форму , для редактирования два раза щелкнуть . Во всем , что касается создания пунктов , этот компонент идентичен MainMenu. Ну , разве что , сразу строится вертикальное меню . Для того , чтобы меню “всплывало” , нужно в свойстве PopupMenu формы указать его (меню ) имя . 3 Прим ер программы Ниже будут представлены примеры программ , использующие такие компоненты , как меню . Кроме исходного кода будут иллюстрации . Пример представляет собой несложную программу , позволяющую просматривать и редактировать текстовые файлы. Окно этой программы показано на рис . 2. 8. Рисунок 2. 8 – Окно программы-примера Ниже будет представлен листинг программы : unit Unit1; Главный м одуль программы interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, Menus, StdCtrls; type TForm1 = class(TForm) MainMenu1: TMainMenu; Главное меню N1: TMenuItem; Меню “Файл” N2: TMenuItem; Меню “Открыть” N3: T MenuItem; Меню “Сохранить” N4: TMenuItem; Меню “Выход” N5: TMenuItem; Разделительная линия N6: TMenuItem; Меню “Помощь” N7: TMenuItem; Меню “О программе” Memo1: TMemo; OpenDialog1: TOpenDialog; SaveDialog1: TSaveDialog; PopupMenu1: TPopupMenu ; Всплывающее меню procedure N4Click(Sender: TObject); procedure N7Click(Sender: TObject); procedure N2Click(Sender: TObject); procedure N3Click(Sender: TObject); private Private declarations public Public declarations end; var Form1: TForm1; implementation uses Unit2; $R *.DFM procedure TForm1.N4Click(Sender: TObject); begin close; end; procedure TForm1.N7Click(Sender: TObject); begin aboutbox.show end; procedure TForm1.N2Click(Sender: TObject); begin if opendialog1. Execute then memo1.Lines.LoadFromFile(opendialog1.filename) end; procedure TForm1.N3Click(Sender: TObject); begin if savedialog1.Execute then memo1.Lines.SaveToFile(savedialog1.filename) end; end. unit Unit2; Модуль , описывающий окно “О программе” interface uses Windows, SysUtils, Classes, Graphics, Forms, Controls, StdCtrls, Buttons, ExtCtrls; type TAboutBox = class(TForm) Panel1: TPanel; ProgramIcon: TImage; ProductName: TLabel; Comments: TLabel; OKButton: TButton; procedure OKButtonClic k(Sender: TObject); private Private declarations public Public declarations end; var AboutBox: TAboutBox; implementation $R *.DFM procedure TAboutBox.OKButtonClick(Sender: TObject); begin Hide end; end. Данная программа демонстрирует использование меню . Она имеет главное меню и всплывающее , которое появляется при нажатии правой кнопки мышки . Меню снабжены клавишами быстрого доступа , используется разделительная линия. Меню “Открыть” , “Сохранить” , “Выход” и “О программе” снабжены клавиш ами быстрого доступа . Всплывающее меню , имеющее два пункта – “Открыть” и “Сохранить” . При их нажатии вызываются события соответствующих пунктов главного меню. Выводы В данной курсовой работе разработана система для психотестиров ания на Borland Delphi 5. 0. Кроме основной программы , созданы две утилитные – для создания тестов , которые хранятся в отдельных файлах. В процессе составления программы детально были изучены основные объекты графического интерфейс a Windows. В процессе вы полнения второй части курсовой работы были детально изучены компоненты , позволяющие создавать систему меню . При рассмотрении этих компонентов приведена программа-пример. Приложение А Листинг программы. unit Mainfrm; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, Buttons, ExtCtrls, TestTypes; type TfrmMain = class(TForm) Image1: TImage; SpeedButton1: TSpeedButton; SpeedButton2: TSpeedButton; Image2: TImage; SpeedB utton3: TSpeedButton; procedure runtest; procedure SpeedButton1Click(Sender: TObject); procedure SpeedButton2Click(Sender: TObject); procedure SpeedButton3Click(Sender: TObject); procedure FormClose(Sender: TObject; var Action: TCloseAction); priva te Private declarations public end; var frmMain: TfrmMain; testcount:integer; implementation uses Testfrm; $R *.DFM procedure tfrmmain.runtest; var f:file of ttest; begin frmmain.hide; assignfile(f,testfilename); try reset(f); except showmessage('Файл теста не найден !'); exit end; testnum:=1; while not eof(f) do begin try read(f,test[testnum]); inc(testnum); except showmessage('Ошибка в файле теста '); frmmain.show; exit end end; closefile(f); frmTest.show; end; procedure TfrmMain.SpeedButton1Click(Sender: TObject); begin testfilename:='Time.tst'; runtest end; procedure TfrmMain.SpeedButton2Click(Sender: TObject); begin testfilename:='Agress.tst'; runtest end; procedure TfrmMain.SpeedButton3Click(Sender: TO bject); begin testfilename:='health.tst'; runtest end; procedure TfrmMain.FormClose(Sender: TObject; var Action: TCloseAction); begin if messagedlg('Вы действительно хотите выйти ?',mtwarning,[mbyes,mbno],0)=mrno then action:=canone end; end. unit Testfrm; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, StdCtrls, Buttons, testtypes; type TfrmTest = class(TForm) Image1: TImage; rb1: TRadioButton; rb2: TRadioButton; rb3: TRadioButton; Label1: TLabel; SpeedButton1: TSpeedButton; procedure load; procedure rb1Click(Sender: TObject); procedure rb2Click(Sender: TObject); procedure rb3Click(Sender: TObject); procedure FormActivate(Sender: TObject); procedure SpeedButton1Click(Sender: T Object); procedure FormClose(Sender: TObject; var Action: TCloseAction); private Private declarations public defque:byte; end; var frmTest: TfrmTest; implementation $R *.DFM uses mainfrm, Resfrm; procedure tfrmtest.load; begin label1.caption:=test[defque].text; rb1.Caption:=test[defque].quest[1]; rb2.Caption:=test[defque].quest[2]; rb3.Caption:=test[defque].quest[3]; speedbutton1.enabled:=false; rb1.Enabled:=true; rb2.Enabled:=true; rb3.Enabled:=true; rb1.Checked:=false ; rb2.Checked:=false; rb3.Checked:=false; if rb3.caption='' then rb3.hide else rb3.Show end; procedure TfrmTest.FormActivate(Sender: TObject); begin testcount:=0; defque:=1; load end; procedure TfrmTest.rb1Click(Sender: TObject); begin speedbutton1.Enabled:=true; rb1.Enabled:=false; rb2.Enabled:=false; rb3.Enabled:=false; inc(testcount,test[defque].count[1]) end; procedure TfrmTest.rb2Click(Sender: TObject); begin speedbutton1.Enabled:=true; rb1.Enabled:=false; rb2.Enabled:=fals e; rb3.Enabled:=false; inc(testcount,test[defque].count[2]) end; procedure TfrmTest.rb3Click(Sender: TObject); begin speedbutton1.Enabled:=true; rb1.Enabled:=false; rb2.Enabled:=false; rb3.Enabled:=false; inc(testcount,test[defque].count[3]) end; procedure TfrmTest.SpeedButton1Click(Sender: TObject); var f:file of TResult; r:tresult; begin inc(defque); if defque=testnum then begin assignfile(f,copy(testfilename,1,length(testfilename)-3)+'rts'); reset(f); while not eof(f) do begin read(f,r); if testcount in [r.min..r.max] then begin frmres.label1.Caption:=r.text; break end end; closefile(f); frmtest.hide; frmres.show; end; load end; procedure TfrmTest.FormClose(Sender: TObject; var Action: TCloseAction); begin frmmain.show; action:=cahide end; end. unit Resfrm; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TfrmRes = class(TForm) Label1: TLabel; Button1: TButton; procedure Button1Click(Sender: TObject); pro cedure FormClose(Sender: TObject; var Action: TCloseAction); private Private declarations public Public declarations end; var frmRes: TfrmRes; implementation uses Mainfrm; $R *.DFM procedure TfrmRes.Button1Click(Sender: TObject); begin frmres.hide; frmmain.show end; procedure TfrmRes.FormClose(Sender: TObject; var Action: TCloseAction); begin action:=cahide; frmmain.show end; end. unit TestTypes; interface type TTest=record text:string[255]; quest:array[1..3] of string[100]; count:array[1..3] of byte; end; var testfilename: string; test:array[1..100] of ttest; testnum:byte; implementation end. Листинг программы ТС : unit Mainfrm; interface uses Windows, Messages, SysUtils, Clas ses, Graphics, Controls, Forms, Dialogs, StdCtrls, Spin, TestTypes; type TfrmMain = class(TForm) rb1: TRadioButton; rb2: TRadioButton; rb3: TRadioButton; Edit1: TEdit; Label1: TLabel; SpinEdit1: TSpinEdit; Label2: TLabel; Edit2: TEdit; Label3: TLabel; Label4: TLabel; Button1: TButton; Button2: TButton; SaveDialog1: TSaveDialog; OpenDialog1: TOpenDialog; StaticText1: TStaticText; Label5: TLabel; SpinEdit2: TSpinEdit; Button3: TButton; procedure Button2Click(Sender: TObject); p rocedure Button1Click(Sender: TObject); procedure FormCreate(Sender: TObject); procedure Edit1Change(Sender: TObject); procedure Edit2Change(Sender: TObject); procedure rb1Click(Sender: TObject); procedure rb2Click(Sender: TObject); procedure rb3Click(Sender: TObject); procedure SpinEdit1Change(Sender: TObject); procedure SpinEdit2Change(Sender: TObject); procedure Button3Click(Sender: TObject); private Private declarations public variant:^tradiobutton; nq:byte; end; va r frmMain: TfrmMain; implementation $R *.DFM procedure TfrmMain.Button2Click(Sender: TObject); var f:file of TTest; i:byte; begin if savedialog1.execute then begin assignfile(f,savedialog1.Filename); rewrite(f); for i:=1 to testnum do write(f,tes t[i]); closefile(f) end end; procedure TfrmMain.Button1Click(Sender: TObject); var f:file of ttest; begin if opendialog1.execute then begin assignfile(f,opendialog1.Filename); reset(f); testnum:=1; while not eof(f) do begin read(f,test[testnum]); inc(testnum) end; statictext1.Caption:='Всего вопросов '+inttostr(testnum); closefile(f); spinedit1.value:=1; spinedit1change(sender) end end; procedure TfrmMain.FormCreate(Sender: TObject); var i:byte; begin testnum:=1; variant:=@rb1; nq:=1; f or i:=1 to 100 do begin test[i].quest[1]:='Вариант 1'; test[i].quest[2]:='Вариант 2'; test[i].quest[3]:='Вариант 3'; test[i].count[1]:=0; test[i].count[2]:=0; test[i].count[3]:=0; test[i].text:='Текст вопроса ' end; end; procedure TfrmMain.Edit1Change(Sender: TObject); begin label2.Caption:=edit1.Text; test[spinedit1.value].text:=edit1.text end; procedure TfrmMain.Edit2Change(Sender: TObject); begin variant^.Caption:=edit2.Text; test[spinedit1.value].quest[nq]:=edit2. text end; procedure TfrmMain.rb1Click(Sender: TObject); begin variant:=@rb1; nq:=1; edit2.Text:=rb1.Caption; spinedit2.Value:=test[spinedit1.Value].count[1]; edit2.SetFocus end; procedure TfrmMain.rb2Click(Sender: TObject); begin variant:=@rb2; nq:=2; edit2.Text:=rb2.Caption; spinedit2.Value:=test[spinedit1.Value].count[2]; edit2.SetFocus end; procedure TfrmMain.rb3Click(Sender: TObject); begin variant:=@rb3; nq:=3; edit2.Text:=rb3.Caption; spinedit2.Value:=test[spinedit1.Value].count[3] ; edit2.SetFocus end; procedure TfrmMain.SpinEdit1Change(Sender: TObject); begin if spinedit1.value>testnum then begin inc(testnum); statictext1.caption:='Всего вопросов '+inttostr(testnum) end; label2.Caption:=test[spinedit1.value].text; rb1.Caption:=test[spinedit1.value].quest[1]; rb2.Caption:=test[spinedit1.value].quest[2]; rb3.Caption:=test[spinedit1.value].quest[3]; rb1.Checked:=true; variant:=@rb1; edit1.Text:=test[spinedit1.value].text; edit2.text:=test[spinedit1.value].quest[ 1]; edit2.setfocus end; procedure TfrmMain.SpinEdit2Change(Sender: TObject); begin test[spinedit1.value].count[nq]:=spinedit2.value end; procedure TfrmMain.Button3Click(Sender: TObject); var i:byte; begin if spinedit1.value=testnum then begin dec(tes tnum); spinedit1.value:=spinedit1.value-1; exit end; if testnum=1 then exit; for i:=spinedit1.value to testnum-1 do test[i]:=test[i+1]; dec(testnum); spinedit1change(sender); statictext1.Caption:='Всего вопросов '+inttostr(testnum) end; end. Лис тинг программы RС : unit Mainfrm; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, testtypes, StdCtrls, Spin; type TfrmMain = class(TForm) Memo1: TMemo; SpinEdit1: TSpinEdit; Label1: TLabel; SpinEdit2: TSpi nEdit; Label2: TLabel; Button1: TButton; Button2: TButton; SpinEdit3: TSpinEdit; Label3: TLabel; OpenDialog1: TOpenDialog; SaveDialog1: TSaveDialog; procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); procedure SpinEdit1Change(Sender: TObject); procedure SpinEdit2Change(Sender: TObject); procedure Memo1Change(Sender: TObject); procedure FormCreate(Sender: TObject); procedure SpinEdit3Change(Sender: TObject); private Private declarations publ ic res:array[1..100] of tresult; varnum:byte; no:boolean; end; var frmMain: TfrmMain; implementation $R *.DFM procedure TfrmMain.Button1Click(Sender: TObject); var f:file of tresult; i:byte; begin if savedialog1.execute then begin assignfile(f ,savedialog1.filename); rewrite(f); for i:=1 to varnum-1 do write(f,res[i]); closefile(f) end end; procedure TfrmMain.Button2Click(Sender: TObject); var f:file of tresult; begin if opendialog1.execute then begin assignfile(f,opendialog1.filename); reset(f); varnum:=1; while not eof(f) do begin read(f,res[varnum]); inc(varnum) end; memo1.text:=res[1].text; spinedit1.value:=res[1].min; spinedit2.value:=res[1].max; spinedit3.value:=1; closefile(f) end end; procedure TfrmMain.SpinEdit1Chang e(Sender: TObject); begin if no then exit; res[spinedit3.value].min:=spinedit1.value; if spinedit2.value
1Архитектура и строительство
2Астрономия, авиация, космонавтика
 
3Безопасность жизнедеятельности
4Биология
 
5Военная кафедра, гражданская оборона
 
6География, экономическая география
7Геология и геодезия
8Государственное регулирование и налоги
 
9Естествознание
 
10Журналистика
 
11Законодательство и право
12Адвокатура
13Административное право
14Арбитражное процессуальное право
15Банковское право
16Государство и право
17Гражданское право и процесс
18Жилищное право
19Законодательство зарубежных стран
20Земельное право
21Конституционное право
22Конституционное право зарубежных стран
23Международное право
24Муниципальное право
25Налоговое право
26Римское право
27Семейное право
28Таможенное право
29Трудовое право
30Уголовное право и процесс
31Финансовое право
32Хозяйственное право
33Экологическое право
34Юриспруденция
 
35Иностранные языки
36Информатика, информационные технологии
37Базы данных
38Компьютерные сети
39Программирование
40Искусство и культура
41Краеведение
42Культурология
43Музыка
44История
45Биографии
46Историческая личность
47Литература
 
48Маркетинг и реклама
49Математика
50Медицина и здоровье
51Менеджмент
52Антикризисное управление
53Делопроизводство и документооборот
54Логистика
 
55Педагогика
56Политология
57Правоохранительные органы
58Криминалистика и криминология
59Прочее
60Психология
61Юридическая психология
 
62Радиоэлектроника
63Религия
 
64Сельское хозяйство и землепользование
65Социология
66Страхование
 
67Технологии
68Материаловедение
69Машиностроение
70Металлургия
71Транспорт
72Туризм
 
73Физика
74Физкультура и спорт
75Философия
 
76Химия
 
77Экология, охрана природы
78Экономика и финансы
79Анализ хозяйственной деятельности
80Банковское дело и кредитование
81Биржевое дело
82Бухгалтерский учет и аудит
83История экономических учений
84Международные отношения
85Предпринимательство, бизнес, микроэкономика
86Финансы
87Ценные бумаги и фондовый рынок
88Экономика предприятия
89Экономико-математическое моделирование
90Экономическая теория

 Анекдоты - это почти как рефераты, только короткие и смешные Следующий
Вступила в клуб анонимных алкоголиков. Уже третий день бухаю и даже не знаю, с кем.
Anekdot.ru

Узнайте стоимость курсовой, диплома, реферата на заказ.

Обратите внимание, реферат по программированию "Программа психотестирования", также как и все другие рефераты, курсовые, дипломные и другие работы вы можете скачать бесплатно.

Смотрите также:


Банк рефератов - РефератБанк.ру
© РефератБанк, 2002 - 2016
Рейтинг@Mail.ru