Диплом разработка и исследование информационных моделей шифратора и дешифратора

Скачать 274.27 Kb.

Название	Диплом разработка и исследование информационных моделей шифратора и дешифратора
страница	3/3
Дата публикации	17.03.2015
Размер	274.27 Kb.
Тип	Диплом

100-bal.ru > Информатика > Диплом

1 2 3

Edit10: TEdit;

Edit11: TEdit;

Shape9: TShape;

Shape10: TShape;

Shape11: TShape;

Shape12: TShape;

Shape13: TShape;

Shape14: TShape;

Shape15: TShape;

Shape16: TShape;

Shape17: TShape;

Shape18: TShape;

Shape19: TShape;

Shape20: TShape;

Shape21: TShape;

Shape22: TShape;

Shape23: TShape;

Shape24: TShape;

Shape25: TShape;

Shape26: TShape;

Shape27: TShape;

Shape28: TShape;

Shape29: TShape;

Shape30: TShape;

Shape31: TShape;

Shape32: TShape;

Label3: TLabel;

Label4: TLabel;

Label5: TLabel;

Label6: TLabel;

Label7: TLabel;

Label8: TLabel;

Shape33: TShape;

Shape34: TShape;

Shape35: TShape;

Label9: TLabel;

Label10: TLabel;

Label11: TLabel;

Shape36: TShape;

Shape37: TShape;

Shape38: TShape;

Shape39: TShape;

Shape40: TShape;

Shape41: TShape;

Shape42: TShape;

Shape43: TShape;

Shape44: TShape;

MainMenu1: TMainMenu;

N1: TMenuItem;

Memo1: TMemo;

Button2: TButton;

Memo2: TMemo;

Shape45: TShape;

Shape46: TShape;

Shape47: TShape;

Shape48: TShape;

Shape49: TShape;

Label12: TLabel;

Label13: TLabel;

Label14: TLabel;

Label15: TLabel;

Label16: TLabel;

Shape50: TShape;

Shape51: TShape;

Shape52: TShape;

Shape53: TShape;

Shape54: TShape;

Shape55: TShape;

Shape56: TShape;

Shape57: TShape;

Shape58: TShape;

Shape59: TShape;

Shape60: TShape;

Label17: TLabel;

Shape61: TShape;

Shape62: TShape;

Shape63: TShape;

Shape64: TShape;

procedure Button1Click(Sender: TObject);

procedure N1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

a,aa,aaa,aaaa,aaaaa,aaaaaa,aaaaaaa,aaaaaaaa,aaaaaaaaa,aaaaaaaaaa,bbbbbbbb,bbbbbbbbb,bbbbbbbbbb,bb,bbb,bbbb,bbbbb,bbbbbb,bbbbbbb,cccccccc,ccccccccc,cccccccccc,b,c,cc,ccc,cccc,ccccc,cccccc,ccccccc,d,pro1,pro2,pro3,pro4,pro5,pro6,pro7,pro8,pro9,pro10:boolean;

a1,aa1,aaa1,aaaa1,aaaaa1,aaaaaa1,aaaaaaa1,aaaaaaaa1,aaaaaaaaa1,aaaaaaaaaa1,bbbbbbbb1,bbbbbbbbb1,bbbbbbbbbb1,cccccccc1,ccccccccc1,cccccccccc1,b1,bb1,bbb1,bbbb1,bbbbb1,bbbbbb1,bbbbbbb1,c1,cc1,ccc1,cccc1,ccccc1,cccccc1,ccccccc1,pro11,pro22,pro33,pro44,pro55,pro66,pro77,pro88,pro99,pro100:integer;

z,zz,zzz,zzzz,zzzzz,zzzzzz,zzzzzzz,zzzzzzzz,zzzzzzzzz,zzzzzzzzzz,xxxxxxxx,xxxxxxxxx,xxxxxxxxxx,xx,xxx,xxxx,x,xxxxx,xxxxxx,xxxxxxx,v,vvvvvvv,vvvvvvvv,vvvvvvvvv,vvvvvvvvvv,vv,vvv,vvvv,vvvvv,vvvvvv:string;

implementation

uses Unit2;

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

begin

z:=edit1.text;

a1:=strtoint(z);

a:=boolean(a1);

x:=edit2.text;

b1:=strtoint(x);

b:=boolean(b1);

v:=edit3.text;

c1:=strtoint(v);

c:=boolean(c1);

pro1:=not(b) and not(a) and not(c);

pro11:=integer(pro1);

edit4.Text:=inttostr(pro11);

zz:=edit1.text;

aa1:=strtoint(zz);

aa:=boolean(aa1);

xx:=edit2.text;

bb1:=strtoint(xx);

bb:=boolean(bb1);

vv:=edit3.text;

cc1:=strtoint(vv);

cc:=boolean(cc1);

pro2:=not(bb) and not(aa) and cc;

pro22:=integer(pro2);

edit5.Text:=inttostr(pro22);

zzz:=edit1.text;

aaa1:=strtoint(zzz);

aaa:=boolean(aaa1);

xxx:=edit2.text;

bbb1:=strtoint(xxx);

bbb:=boolean(bbb1);

vvv:=edit3.text;

ccc1:=strtoint(vvv);

ccc:=boolean(ccc1);

pro3:=bbb and not(aaa) and ccc;

pro33:=integer(pro3);

edit6.Text:=inttostr(pro33);

zzzz:=edit1.text;

aaaa1:=strtoint(zzzz);

aaaa:=boolean(aaaa1);

xxxx:=edit2.text;

bbbb1:=strtoint(xxxx);

bbbb:=boolean(bbbb1);

vvvv:=edit3.text;

cccc1:=strtoint(vvvv);

cccc:=boolean(cccc1);

pro4:=bbbb and not(aaaa) and cccc;

pro44:=integer(pro4);

edit7.Text:=inttostr(pro44);

zzzzz:=edit1.text;

aaaaa1:=strtoint(zzzzz);

aaaaa:=boolean(aaaaa1);

xxxxx:=edit2.text;

bbbbb1:=strtoint(xxxxx);

bbbbb:=boolean(bbbbb1);

vvvvv:=edit3.text;

ccccc1:=strtoint(vvvvv);

ccccc:=boolean(ccccc1);

pro5:=bbbbb and aaaaa and ccccc;

pro55:=integer(pro5);

edit8.Text:=inttostr(pro55);

zzzzzz:=edit1.text;

aaaaaa1:=strtoint(zzzzzz);

aaaaaa:=boolean(aaaaaa1);

xxxxxx:=edit2.text;

bbbbbb1:=strtoint(xxxxxx);

bbbbbb:=boolean(bbbbbb1);

vvvvvv:=edit3.text;

cccccc1:=strtoint(vvvvvv);

cccccc:=boolean(cccccc1);

pro6:=not(bbbbbb) and aaaaaa and cccccc;

pro66:=integer(pro6);

edit9.Text:=inttostr(pro66);

zzzzzzz:=edit1.text;

aaaaaaa1:=strtoint(zzzzzzz);

aaaaaaa:=boolean(aaaaaaa1);

xxxxxxx:=edit2.text;

bbbbbbb1:=strtoint(xxxxxxx);

bbbbbbb:=boolean(bbbbbbb1);

vvvvvvv:=edit3.text;

ccccccc1:=strtoint(vvvvvvv);

ccccccc:=boolean(ccccccc1);

pro7:=bbbbbbb and aaaaaaa and not(cccccc);

pro77:=integer(pro7);

edit10.Text:=inttostr(pro77);

zzzzzzzz:=edit1.text;

aaaaaaaa1:=strtoint(zzzzzzzz);

aaaaaaaa:=boolean(aaaaaaaa1);

xxxxxxxx:=edit2.text;

bbbbbbbb1:=strtoint(xxxxxxxx);

bbbbbbbb:=boolean(bbbbbbbb1);

vvvvvvvv:=edit3.text;

cccccccc1:=strtoint(vvvvvvvv);

cccccccc:=boolean(cccccccc1);

pro8:=bbbbbbbb and aaaaaaaa and cccccccc;

pro88:=integer(pro8);

edit11.Text:=inttostr(pro88);

zzzzzzzzz:=edit1.text;

aaaaaaaaa1:=strtoint(zzzzzzzzz);

aaaaaaaaa:=boolean(aaaaaaaaa1);

xxxxxxxxx:=edit2.text;

bbbbbbbbb1:=strtoint(xxxxxxxxx);

bbbbbbbbb:=boolean(bbbbbbbbb1);

vvvvvvvvv:=edit3.text;

ccccccccc1:=strtoint(vvvvvvvvv);

ccccccccc:=boolean(ccccccccc1);

pro9:=not(bbbbbbbbb) and aaaaaaaaa and not(ccccccccc);

pro99:=integer(pro9);

edit8.Text:=inttostr(pro99);

zzzzzzzzzz:=edit1.text;

aaaaaaaaaa1:=strtoint(zzzzzzzzzz);

aaaaaaaaaa:=boolean(aaaaaaaaaa1);

xxxxxxxxxx:=edit2.text;

bbbbbbbbbb1:=strtoint(xxxxxxxxxx);

bbbbbbbbbb:=boolean(bbbbbbbbbb1);

vvvvvvvvvv:=edit3.text;

cccccccccc1:=strtoint(vvvvvvvvvv);

cccccccccc:=boolean(cccccccccc1);

pro10:=bbbbbbbbb and not(aaaaaaaaa) and not(ccccccccc);

pro100:=integer(pro10);

edit6.Text:=inttostr(pro100);

end;

procedure TForm1.N1Click(Sender: TObject);

begin

form2.show;

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

form1.Close;

form2.Close;

end;

end.

1 2 3

Похожие:

	Рабочая программа элективного предмета «Исследование информационных моделей» Н. Д. Угриновича «Исследование информационных моделей» Программы для общеобразовательных учреждений 2-11 классы Составитель Бородин...		Элективный курс «Исследование информационных моделей» в старшей школе Пояснительная записка В новом образовательном стандарте на третьей ступени общего образования, т е в старшей школе (10 – 11 классы), предусмотрено изучение...
	Отчет о научно-исследовательской работе «Разработка моделей и образцов... «Разработка моделей бакалавра по специальности и магистра по специальности. Реализация моделей по группам специальностей»		Диплом «Исследование и сравнение способов решения логических задач» Практическая часть. Разработка сайта и тестирующей программы
	Оглавление Аннотация к отчету. Общее описание Метаигры 2 Разработка... Данный период был обозначен неизбежным моментом, который в любом случае наступил в результате перехода от феодализма к капитализму....		Факультет информационных технологий Создание и исследование моделей является неотъемлемым элементом любой целенаправленной деятельности. У термина «модель» существует...
	Исследование моделей корпоративной социальной Рассматриваются вопросы формирования моделей корпоративной социальной ответственности, используемых в мировой практике (европейской,...		Разработка и исследование моделей поведения динамических объектов... Специальность: 05. 13. 18 – Математическое моделирование, численные методы и комплексы программ
	Разработка и исследование моделей устойчивых систем инерциальной навигации Работа выполнена в лаборатории прецизионных оптических методов Института автоматики и процессов управления дво ран		Исследование и разработка моделей для организации и управления виртуальными предприятиями Государственного образовательного учреждения высшего профессионального образования «Санкт-Петербургский государственный политехнический...
	Разработка моделей и Методов мониторинга сервис-ориентированных информационных систем Федеральное государственное автономное образовательное учреждение высшего профессионального образования		Программа для студентов специальности 010503. 65 «Математическое... Целью изучения курса «Математическая экономика» является приобретение умений построения математических моделей и навыков алгоритмизации...
	Высшего профессионального образования Целью изучения курса «Эконометрика» является приобретение умений анализа статистических данных и построения эконометрических моделей,...		Специальность “прикладная математика” Методы ссылочного ранжирования... Целью данной работы является обзор наиболее распространенных моделей и методов ссылочного ранжирования, их анализ и разработка собственного...
	Диплом 1 место 5 класс Диплом 1 место 8 класс Диплом 1 место 11 класс... Посещают секцию мальчики и девочки разных возрастов ( от 7 до 16 лет). В конце каждого учебного организуются общешкольные ежегодные...		Отчет о научно-исследовательской работе разработка концепции Объединенных... «Разработка предложений по созданию единой системы выявления, использования и внедрения объединенных государственных и муниципальных...

Школьные материалы