Программы по организации практических занятий по криптографическим дисциплинам
История возникновения шифров, становление науки криптологии. Особенности создания электронного учебника - обучающей программы на языке Delphi. Создание архитектуры обучающей программы по организации практических занятий по криптографическим дисциплинам.
| Рубрика | Программирование, компьютеры и кибернетика |
| Вид | дипломная работа |
| Язык | русский |
| Дата добавления | 30.06.2012 |
| Размер файла | 1,8 M |
Отправить свою хорошую работу в базу знаний просто. Используйте форму, расположенную ниже
Студенты, аспиранты, молодые ученые, использующие базу знаний в своей учебе и работе, будут вам очень благодарны.
Writeln(F,'Группа: '+Ftesting.Edit4.Text);
Writeln(F,'Тип теста: Невроз');
Writeln(F,'РЕЗУЛЬТАТЫ:');
Writeln(F,'Уровень невротизации '+IntToStr(ReS.Gauge5.Progress));
Writeln(F,'Вероятность невроза '+IntToStr(ReS.Gauge4.Progress));
Closefile(f);
end;
Procedure TTNEWROZ.GetQW;
var
i:integer;
begin
QIndex:=QIndex+1;
Richedit1.Lines.Clear;
Richedit1.Lines.Add('Вопрос №'+IntToStr(QIndex+1));
Richedit1.Lines.Add(testArray[QIndex]);
Richedit1.SelStart:=0;
Richedit1.SelLength:=Length(testArray[QIndex]);
Richedit1.SelAttributes.Style:=Richedit1.SelAttributes.Style+[fsBold];
RichEdit1.Paragraph.Alignment:=taCenter;
end;
Procedure TTNEWROZ.Open_Test;
var
f:textFile;
begin
AssignFile(f,'TEST\PN\TN.txt');
reset(f);
IndTestArray:=0;
setLength(testArray,IndTestArray);
while not EOF(F) do begin
inc(IndTestArray);
setLength(testArray,IndTestArray);
readln(f,testArray[IndTestArray-1]);
end;
closefile(f);
end;
Function TTNEWROZ.TK(fl:boolean):boolean;
begin
Otvet[QIndex]:=FL;
end;
Procedure TTNEWROZ.DM_komp;
begin
if (not Ex_comp) then begin
sleep(100);
case NButon of
1:Image4.Picture.LoadFromFile('Img\exit.jpg');
2:Image1.Picture.LoadFromFile('Img\da.jpg');
3:Image2.Picture.LoadFromFile('Img\net.jpg');
end;
Ex_comp:=true;
end;
end;
procedure TTNEWROZ.FormActivate(Sender: TObject);
begin
Ex_comp:= false;
QIndex:=-1;
Open_Test;
Setlength(Otvet,IndTestArray);
GetQW;
end;
procedure TTNEWROZ.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
DM_komp;
edit1.SetFocus;
end;
procedure TTNEWROZ.FormResize(Sender: TObject);
begin
Image4.Left:=TNEWROZ.Width-Image4.Width-10;
Richedit1.Width := TNEWROZ.Width - 15;
Richedit1.Height := TNEWROZ.Height - 160;
edit1.Left:= TNEWROZ.Width + 110;
Image1.Top:=TNEWROZ.Height-Image1.Height-10;
Image2.Top:=TNEWROZ.Height-Image2.Height-10;
Image1.Left:=(TNEWROZ.Width div 2) - 80;
Image2.Left:=(TNEWROZ.Width div 2) + 80;
end;
procedure TTNEWROZ.Image1Click(Sender: TObject);
begin
if QIndex <> 79 then begin
TK(true);
GetQW;
end else begin
Itog;
ReS.Panel6.Visible:=true;
ReS.Panel1.Visible:=false;
ReS.ShowModal;
end;
end;
procedure TTNEWROZ.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
if Ex_comp then begin
Image1.Picture.LoadFromFile('Img\da1.jpg');
NButon:=2;
Ex_comp:= false;
end;
end;
procedure TTNEWROZ.Image2Click(Sender: TObject);
begin
if QIndex <> 79 then begin
TK(false);
GetQW;
end else begin
Itog;
ReS.Panel6.Visible:=true;
ReS.Panel1.Visible:=false;
ReS.ShowModal;
end;
end;
procedure TTNEWROZ.Image2MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
if Ex_comp then begin
Image2.Picture.LoadFromFile('Img\net1.jpg');
NButon:=3;
Ex_comp:= false;
end;
end;
procedure TTNEWROZ.Image4Click(Sender: TObject);
begin
close;
end;
procedure TTNEWROZ.Image4MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
if Ex_comp then begin
Image4.Picture.LoadFromFile('Img\exit1.jpg');
NButon:=1;
Ex_comp:= false;
end;
end;
procedure TTNEWROZ.RichEdit1Change(Sender: TObject);
begin
edit1.SetFocus;
end;
procedure TTNEWROZ.RichEdit1Click(Sender: TObject);
begin
edit1.SetFocus;
end;
end.
Размещено на Allbest.ru
Подобные документы
Система программирования Delphi, ее характеристика. Основные требования к обучающей программе. Составление блок-схемы алгоритма программы "Математика. 1 класс". Виды задач для решения в обучающей программе. Описание работы системы, инструкция к ней.
курсовая работа [2,0 M], добавлен 17.06.2015Механические системы и анимационное моделирование. Некоторые задачи моделирования механических систем (на примере движение тела с переменной массой). Создание анимационно-обучающей программы механической системы, текст программы и описание ее установки.
дипломная работа [522,2 K], добавлен 30.08.2010Использование обучающих программ для формирования знаний и умений по информатике. Главное окно среды программирования Delphi, окна дерева объектов и кода программы. Требования к оборудованию и описание обучающей программы "Информатика в играх и загадках".
курсовая работа [1,3 M], добавлен 03.05.2012Этапы создания обучающей программы "Трюки и Эффекты в Delphi" в интегрированной среде Borland Delphi 7 и СУБД MS Access 2010. Главное меню и организация базы данных MS Access. Основные характеристики и состав основных модулей. Описание программы.
курсовая работа [1,1 M], добавлен 10.01.2016Разработка программы тестирования студентов по MS PowerPoint с кодом на языке Delphi. Создание алгоритма для решения функциональных требований задачи. Описание переменных, вспомогательных процедур, входных и выходных данных для реализации программы.
курсовая работа [1,5 M], добавлен 21.09.2010Изучение программы базовой системы ввода-вывода (BIOS) и её настроек. Разработка компьютерной обучающей программы-тренажера "Настройка BIOS" в объектно-ориентированной среде Delphi. Тестирование данного программного продукта и экономические затраты.
дипломная работа [54,5 K], добавлен 09.10.2013Требования к обучающим электронным материалам, особенности использования программы "Осирис". Ее возможности, построение обучающих, тестирующих блоков. Просмотр результатов тестирований. Изучение электронного учебного материала по физике в среде "Осирис".
контрольная работа [2,5 M], добавлен 08.01.2010Создание электронного учебника "Визуальные и не визуальные компоненты Delphi". Основные требования к организации интерфейса. Логическая структура и технические средства. Аппаратно–программный комплекс. Применение программы, тестирование и отладка.
курсовая работа [39,5 K], добавлен 03.12.2012Особенности разработки и реализации обучающей программы и схемы алгоритмов на языке программирования С++. Понятие равномерной и неравномерной дискретизации. Представление информации (составление кода) в виде таблицы перекодировки или многочлена.
курсовая работа [704,6 K], добавлен 06.03.2013Возможности применения информационных технологий в дистанционном обучении. Рекомендации по созданию АОС. Разработка автоматизированной обучающей программы на базе комплекса стандартного цифрового пилотажно-навигационного оборудования самолета Ил-96-300.
дипломная работа [3,7 M], добавлен 29.10.2013
