51327

Шифрование текста по ключу методами перестановки

Лабораторная работа

Информатика, кибернетика и программирование

Цель работы: Научиться составлять программы шифрования текста, основываясь на классических методах перестановки.

Русский

2014-02-09

128.51 KB

19 чел.

Цель работы: Научиться составлять программы шифрования текста, основываясь на классических  методах перестановки.

Изм.

Лист

№ докум.

Подпись

Дата

Лист

1

Лабораторная работа №2

Разраб.

Карецкий

Пров.

Смулаковский

Н. Контр.

Утв.

Шифрование текста по ключу методами перестановки

Лит.

Листов

15

КОГУ 59П-3

 

Ход работы:  

program Project1;

uses

 Forms,

 Unit1 in 'Unit1.pas' {Form1},

 Unit2 in 'Unit2.pas' {Form2};

{$R *.res}

begin

 Application.Initialize;

 Application.CreateForm(TForm1, Form1);

 Application.CreateForm(TForm2, Form2);

 Application.Run;

end.

unit Unit1;

interface

uses

 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

 Dialogs, StdCtrls, Grids, jpeg, ExtCtrls;

type

 TForm1 = class(TForm)

   Label1: TLabel;

   StringGrid1: TStringGrid;

   Edit1: TEdit;

   Label2: TLabel;

   StringGrid2: TStringGrid;

   Button1: TButton;

   Button2: TButton;

   Button3: TButton;

   Button4: TButton;

   Label4: TLabel;

   Label3: TLabel;

   StringGrid3: TStringGrid;

   StringGrid4: TStringGrid;

Изм.

Лист

№ докум.

Подпись

Дата

Лист

2

Лабораторная работа №1

   Button5: TButton;

   Button6: TButton;

   Button7: TButton;

   Button8: TButton;

   Button9: TButton;

   procedure Button1Click(Sender: TObject);

   procedure Button2Click(Sender: TObject);

   procedure Button4Click(Sender: TObject);

   procedure Button3Click(Sender: TObject);

   procedure Edit1KeyPress(Sender: TObject; var Key: Char);

   procedure Button5Click(Sender: TObject);

   procedure Button7Click(Sender: TObject);

   procedure Button8Click(Sender: TObject);

   procedure Button6Click(Sender: TObject);

   procedure Button9Click(Sender: TObject);

   procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);

 private

   { Private declarations }

 public

   { Public declarations }

 end;

var

 Form1: TForm1;

 bufer,bufer1:string;

 i,cluch,j,r,g,g1:integer;

 mas,mas2:array[1..6,1..6] of string;

implementation

uses Unit2;

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

var

st1,st2,st3,st4,st5,st6,st7,str1,str2,str3,str4,str5,str6,str7: string;

begin

st1:=Edit1.Text [1];

st2:=Edit1.Text [2];

st3:=Edit1.Text [3];

st4:=Edit1.Text [4];

st5:=Edit1.Text [5];

st6:=Edit1.Text [6];

Изм.

Лист

№ докум.

Подпись

Дата

Лист

3

Лабораторная работа №1

st7:=Edit1.Text [7];

Stringgrid1.Cells [1,0]:=st1;

Stringgrid1.Cells [2,0]:=st2;

Stringgrid1.Cells [3,0]:=st3;

Stringgrid1.Cells [4,0]:=st4;

Stringgrid1.Cells [5,0]:=st5;

Stringgrid1.Cells [6,0]:=st6;

Stringgrid1.Cells [7,0]:=st7;

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

Stringgrid1.Cells [7,5]:='м';

Stringgrid1.Cells [6,5]:='н';

Stringgrid1.Cells [5,5]:='е';

Stringgrid1.Cells [4,5]:='е';

Stringgrid1.Cells [3,5]:='т';

Stringgrid1.Cells [2,5]:='а';

Stringgrid1.Cells [1,5]:='н';

Stringgrid1.Cells [7,4]:='ы';

Stringgrid1.Cells [6,4]:='о';

Stringgrid1.Cells [5,4]:='е';

Stringgrid1.Cells [4,4]:='щ';

Stringgrid1.Cells [3,4]:='и';

Stringgrid1.Cells [2,4]:='т';

Stringgrid1.Cells [1,4]:='с';

Stringgrid1.Cells [7,3]:='н';

Stringgrid1.Cells [6,3]:='п';

Stringgrid1.Cells [5,3]:='л';

Stringgrid1.Cells [4,3]:='е';

Изм.

Лист

№ докум.

Подпись

Дата

Лист

4

Лабораторная работа №1

Stringgrid1.Cells [3,3]:='в';

Stringgrid1.Cells [2,3]:='с';

Stringgrid1.Cells [1,3]:='я';

Stringgrid1.Cells [7,2]:='т';

Stringgrid1.Cells [6,2]:='е';

Stringgrid1.Cells [5,2]:='о';

Stringgrid1.Cells [4,2]:='я';

Stringgrid1.Cells [3,2]:='о';

Stringgrid1.Cells [2,2]:='е';

Stringgrid1.Cells [1,2]:='е';

Stringgrid1.Cells [7,1]:='я';

Stringgrid1.Cells [6,1]:='н';

Stringgrid1.Cells [5,1]:='б';

Stringgrid1.Cells [4,1]:='с';

Stringgrid1.Cells [3,1]:='н';

Stringgrid1.Cells [2,1]:='о';

Stringgrid1.Cells [1,1]:='н';

end;

procedure TForm1.Button4Click(Sender: TObject);

var

st1,st2,st3,st4,st5,st6,st7,s,str1,str2,str3,str4,str5,str6,str7: string;

i:integer;

q1,q2,q3,q4,q5,q6,q7: string;

begin

q1:='1';

q2:='2';

q3:='3';

q4:='4';

q5:='5';

q6:='6';

q7:='7';

st1:=Edit1.Text [1];

st2:=Edit1.Text [2];

st3:=Edit1.Text [3];

st4:=Edit1.Text [4];

st5:=Edit1.Text [5];

st6:=Edit1.Text [6];

st7:=Edit1.Text [7];

Stringgrid2.Cells [1,0]:=st1;

Stringgrid2.Cells [2,0]:=st2;

Stringgrid2.Cells [3,0]:=st3;

Stringgrid2.Cells [4,0]:=st4;

Stringgrid2.Cells [5,0]:=st5;

Изм.

Лист

№ докум.

Подпись

Дата

Лист

5

Лабораторная работа №1

Stringgrid2.Cells [6,0]:=st6;

Stringgrid2.Cells [7,0]:=st7;

case Edit1.Text [1] of

'1' : begin    with StringGrid1 do

  for I := 0 to RowCount - 1 do

  begin

Stringgrid2.Cells [1,i] := Stringgrid1.Cells [1,i];end;end;

'2' : begin    with StringGrid1 do

  for I := 0 to RowCount - 1 do

  begin

Stringgrid2.Cells [2,i] := Stringgrid1.Cells [1,i];end;end;

'3' : begin    with StringGrid1 do

  for I := 0 to RowCount - 1 do

  begin

Stringgrid2.Cells [3,i] := Stringgrid1.Cells [1,i];end;end;

'4' : begin    with StringGrid1 do

  for I := 0 to RowCount - 1 do

  begin

Stringgrid2.Cells [4,i] := Stringgrid1.Cells [1,i];end;end;

'5' : begin    with StringGrid1 do

  for I := 0 to RowCount - 1 do

  begin

Stringgrid2.Cells [5,i] := Stringgrid1.Cells [1,i];end;end;

'6' : begin    with StringGrid1 do

  for I := 0 to RowCount - 1 do

  begin

Stringgrid2.Cells [6,i] := Stringgrid1.Cells [1,i];end;end;

'7' : begin    with StringGrid1 do

  for I := 0 to RowCount - 1 do

  begin

Stringgrid2.Cells [7,i] := Stringgrid1.Cells [1,i];end;end;

end;

case Edit1.Text [2] of

'1' : begin    with StringGrid1 do

  for I := 0 to RowCount - 1 do

  begin

Stringgrid2.Cells [1,i] := Stringgrid1.Cells [2,i];end;end;

'2' : begin    with StringGrid1 do

Изм.

Лист

№ докум.

Подпись

Дата

Лист

6

Лабораторная работа №1

  for I := 0 to RowCount - 1 do

  begin

Stringgrid2.Cells [2,i] := Stringgrid1.Cells [2,i];end;end;

'3' : begin    with StringGrid1 do

  for I := 0 to RowCount - 1 do

  begin

Stringgrid2.Cells [3,i] := Stringgrid1.Cells [2,i];end;end;

'4' : begin    with StringGrid1 do

  for I := 0 to RowCount - 1 do

  begin

Stringgrid2.Cells [4,i] := Stringgrid1.Cells [2,i];end;end;

'5' : begin    with StringGrid1 do

  for I := 0 to RowCount - 1 do

  begin

Stringgrid2.Cells [5,i] := Stringgrid1.Cells [2,i];end;end;

'6' : begin    with StringGrid1 do

  for I := 0 to RowCount - 1 do

  begin

Stringgrid2.Cells [6,i] := Stringgrid1.Cells [2,i];end;end;

'7' : begin    with StringGrid1 do

  for I := 0 to RowCount - 1 do

  begin

Stringgrid2.Cells [7,i] := Stringgrid1.Cells [2,i];end;end;

end;

case Edit1.Text [3] of

'1' : begin    with StringGrid1 do

  for I := 0 to RowCount - 1 do

  begin

Stringgrid2.Cells [1,i] := Stringgrid1.Cells [3,i];end;end;

'2' : begin    with StringGrid1 do

  for I := 0 to RowCount - 1 do

  begin

Stringgrid2.Cells [2,i] := Stringgrid1.Cells [3,i];end;end;

'3' : begin    with StringGrid1 do

  for I := 0 to RowCount - 1 do

  begin

Stringgrid2.Cells [3,i] := Stringgrid1.Cells [3,i];end;end;

'4' : begin    with StringGrid1 do

  for I := 0 to RowCount - 1 do

  begin

Stringgrid2.Cells [4,i] := Stringgrid1.Cells [3,i];end;end;

'5' : begin    with StringGrid1 do

  for I := 0 to RowCount - 1 do

  begin

Stringgrid2.Cells [5,i] := Stringgrid1.Cells [3,i];end;end;

'6' : begin    with StringGrid1 do

Изм.

Лист

№ докум.

Подпись

Дата

Лист

7

Лабораторная работа №1

  for I := 0 to RowCount - 1 do

  begin

Stringgrid2.Cells [6,i] := Stringgrid1.Cells [3,i];end;end;

'7' : begin    with StringGrid1 do

  for I := 0 to RowCount - 1 do

  begin

Stringgrid2.Cells [7,i] := Stringgrid1.Cells [3,i];end;end;

end;

case Edit1.Text [4] of

'1' : begin    with StringGrid1 do

  for I := 0 to RowCount - 1 do

  begin

Stringgrid2.Cells [1,i] := Stringgrid1.Cells [4,i];end;end;

'2' : begin    with StringGrid1 do

  for I := 0 to RowCount - 1 do

  begin

Stringgrid2.Cells [2,i] := Stringgrid1.Cells [4,i];end;end;

'3' : begin    with StringGrid1 do

  for I := 0 to RowCount - 1 do

  begin

Stringgrid2.Cells [3,i] := Stringgrid1.Cells [4,i];end;end;

'4' : begin    with StringGrid1 do

  for I := 0 to RowCount - 1 do

  begin

Stringgrid2.Cells [4,i] := Stringgrid1.Cells [4,i];end;end;

'5' : begin    with StringGrid1 do

  for I := 0 to RowCount - 1 do

  begin

Stringgrid2.Cells [5,i] := Stringgrid1.Cells [4,i];end;end;

'6' : begin    with StringGrid1 do

  for I := 0 to RowCount - 1 do

  begin

Stringgrid2.Cells [6,i] := Stringgrid1.Cells [4,i];end;end;

'7' : begin    with StringGrid1 do

  for I := 0 to RowCount - 1 do

  begin

Stringgrid2.Cells [7,i] := Stringgrid1.Cells [4,i];end;end;

end;

case Edit1.Text [5] of

'1' : begin    with StringGrid1 do

  for I := 0 to RowCount - 1 do

  begin

Stringgrid2.Cells [1,i] := Stringgrid1.Cells [5,i];end;end;

'2' : begin    with StringGrid1 do

  for I := 0 to RowCount - 1 do

  begin

Stringgrid2.Cells [2,i] := Stringgrid1.Cells [5,i];end;end;

Изм.

Лист

№ докум.

Подпись

Дата

Лист

8

Лабораторная работа №1

'3' : begin    with StringGrid1 do

  for I := 0 to RowCount - 1 do

  begin

Stringgrid2.Cells [3,i] := Stringgrid1.Cells [5,i];end;end;

'4' : begin    with StringGrid1 do

  for I := 0 to RowCount - 1 do

  begin

Stringgrid2.Cells [4,i] := Stringgrid1.Cells [5,i];end;end;

'5' : begin    with StringGrid1 do

  for I := 0 to RowCount - 1 do

  begin

Stringgrid2.Cells [5,i] := Stringgrid1.Cells [5,i];end;end;

'6' : begin    with StringGrid1 do

  for I := 0 to RowCount - 1 do

  begin

Stringgrid2.Cells [6,i] := Stringgrid1.Cells [5,i];end;end;

'7' : begin    with StringGrid1 do

  for I := 0 to RowCount - 1 do

  begin

Stringgrid2.Cells [7,i] := Stringgrid1.Cells [5,i];end;end;

end;

case Edit1.Text [6] of

'1' : begin    with StringGrid1 do

  for I := 0 to RowCount - 1 do

  begin

Stringgrid2.Cells [1,i] := Stringgrid1.Cells [6,i];end;end;

'2' : begin    with StringGrid1 do

  for I := 0 to RowCount - 1 do

  begin

Stringgrid2.Cells [2,i] := Stringgrid1.Cells [6,i];end;end;

'3' : begin    with StringGrid1 do

  for I := 0 to RowCount - 1 do

  begin

Stringgrid2.Cells [3,i] := Stringgrid1.Cells [6,i];end;end;

'4' : begin    with StringGrid1 do

  for I := 0 to RowCount - 1 do

  begin

Stringgrid2.Cells [4,i] := Stringgrid1.Cells [6,i];end;end;

'5' : begin    with StringGrid1 do

  for I := 0 to RowCount - 1 do

Изм.

Лист

№ докум.

Подпись

Дата

Лист

9

Лабораторная работа №1

  begin

Stringgrid2.Cells [5,i] := Stringgrid1.Cells [6,i];end;end;

'6' : begin    with StringGrid1 do

  for I := 0 to RowCount - 1 do

  begin

Stringgrid2.Cells [6,i] := Stringgrid1.Cells [6,i];end;end;

'7' : begin    with StringGrid1 do

  for I := 0 to RowCount - 1 do

  begin

Stringgrid2.Cells [7,i] := Stringgrid1.Cells [6,i];end;end;

end;

case Edit1.Text [7] of

'1' : begin    with StringGrid1 do

  for I := 0 to RowCount - 1 do

  begin

Stringgrid2.Cells [1,i] := Stringgrid1.Cells [7,i];end;end;

'2' : begin    with StringGrid1 do

  for I := 0 to RowCount - 1 do

  begin

Stringgrid2.Cells [2,i] := Stringgrid1.Cells [7,i];end;end;

'3' : begin    with StringGrid1 do

  for I := 0 to RowCount - 1 do

  begin

Stringgrid2.Cells [3,i] := Stringgrid1.Cells [7,i];end;end;

'4' : begin    with StringGrid1 do

  for I := 0 to RowCount - 1 do

  begin

Stringgrid2.Cells [4,i] := Stringgrid1.Cells [7,i];end;end;

'5' : begin    with StringGrid1 do

  for I := 0 to RowCount - 1 do

  begin

Stringgrid2.Cells [5,i] := Stringgrid1.Cells [7,i];end;end;

'6' : begin    with StringGrid1 do

  for I := 0 to RowCount - 1 do

  begin

Stringgrid2.Cells [6,i] := Stringgrid1.Cells [7,i];end;end;

'7' : begin    with StringGrid1 do

  for I := 0 to RowCount - 1 do

  begin

Stringgrid2.Cells [7,i] := Stringgrid1.Cells [7,i];end;end;

end;end;

procedure TForm1.Button3Click(Sender: TObject);

var

i:integer;

rez1:string;

Изм.

Лист

№ докум.

Подпись

Дата

Лист

10

Лабораторная работа №1

begin

//with StringGrid2 do

  //for I := 0 to RowCount - 1 do

  begin

//  Stringgrid3.Cells [i,0] := Stringgrid2.Cells [i,0];

rez1 := Stringgrid2.Cells [1,1] + Stringgrid2.Cells [2,1] +

Stringgrid2.Cells [1,2] + Stringgrid2.Cells [3,1] +

Stringgrid2.Cells [2,2] + Stringgrid2.Cells [1,3] +

Stringgrid2.Cells [4,1] + Stringgrid2.Cells [3,2] +

Stringgrid2.Cells [2,3] + Stringgrid2.Cells [1,4] +

Stringgrid2.Cells [5,1] + Stringgrid2.Cells [4,2] +

Stringgrid2.Cells [3,3] + Stringgrid2.Cells [2,4] +

Stringgrid2.Cells [1,5] + Stringgrid2.Cells [6,1] +

Stringgrid2.Cells [5,2] + Stringgrid2.Cells [4,3] +

Stringgrid2.Cells [3,4] + Stringgrid2.Cells [2,5] +

Stringgrid2.Cells [7,1] + Stringgrid2.Cells [6,2] +

Stringgrid2.Cells [5,3] + Stringgrid2.Cells [4,4] +

Stringgrid2.Cells [3,5] + Stringgrid2.Cells [7,2] +

Stringgrid2.Cells [6,3] + Stringgrid2.Cells [5,4] +

Stringgrid2.Cells [4,5] + Stringgrid2.Cells [7,3] +

Stringgrid2.Cells [6,4] + Stringgrid2.Cells [5,5] +

Stringgrid2.Cells [7,4] + Stringgrid2.Cells [6,5] +

Stringgrid2.Cells [7,5];

end;

label4.caption := rez1;

end;

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);

var i:integer;

begin

If (Key in ['a'..'z']) or (Key in ['A'..'Z']) or (Key in ['А'..'Я']) or (Key in ['а'..'я'])  then

begin

Key:=#0;

showmessage ('Попытка ввода букв!!!')

end;

begin

 for i:=1 to length(Edit1.Text) do

 if key=Edit1.Text[i] then begin

                              key:=#0;

                              break;

                           end;

if not (key in['0'..'7',decimalseparator,#8]) then key:=#0;

Изм.

Лист

№ докум.

Подпись

Дата

Лист

11

Лабораторная работа №1

end;

end;

procedure TForm1.Button5Click(Sender: TObject);

begin

Stringgrid3.Cells [7,5]:='е';

Stringgrid3.Cells [6,5]:='н';

Stringgrid3.Cells [5,5]:='щ';

Stringgrid3.Cells [4,5]:='т';

Stringgrid3.Cells [3,5]:='ы';

Stringgrid3.Cells [2,5]:='е';

Stringgrid3.Cells [1,5]:='н';

Stringgrid3.Cells [7,4]:='и';

Stringgrid3.Cells [6,4]:='н';

Stringgrid3.Cells [5,4]:='я';

Stringgrid3.Cells [4,4]:='а';

Stringgrid3.Cells [3,4]:='л';

Stringgrid3.Cells [2,4]:='в';

Stringgrid3.Cells [1,4]:='т';

Stringgrid3.Cells [7,3]:='с';

Stringgrid3.Cells [6,3]:='е';

Stringgrid3.Cells [5,3]:='т';

Stringgrid3.Cells [4,3]:='п';

Stringgrid3.Cells [3,3]:='о';

Stringgrid3.Cells [2,3]:='я';

Stringgrid3.Cells [1,3]:='н';

Stringgrid3.Cells [7,2]:='е';

Stringgrid3.Cells [6,2]:='с';

Stringgrid3.Cells [5,2]:='е';

Stringgrid3.Cells [4,2]:='н';

Stringgrid3.Cells [3,2]:='е';

Stringgrid3.Cells [2,2]:='л';

Stringgrid3.Cells [1,2]:='е';

Stringgrid3.Cells [7,1]:='н';

Stringgrid3.Cells [6,1]:='я';

Stringgrid3.Cells [5,1]:='о';

Stringgrid3.Cells [4,1]:='о';

Stringgrid3.Cells [3,1]:='е';

Stringgrid3.Cells [2,1]:='б';

Stringgrid3.Cells [1,1]:='н';

end;

procedure TForm1.Button7Click(Sender: TObject);

var

st1,st2,st3,st4,st5,st6,st7,str1,str2,str3,str4,str5,str6,str7: string;

begin

st1:=Edit1.Text [1];

st2:=Edit1.Text [2];

st3:=Edit1.Text [3];

st4:=Edit1.Text [4];

st5:=Edit1.Text [5];

st6:=Edit1.Text [6];

st7:=Edit1.Text [7];

Stringgrid4.Cells [1,0]:=st1;

Stringgrid4.Cells [2,0]:=st2;

Stringgrid4.Cells [3,0]:=st3;

Изм.

Лист

№ докум.

Подпись

Дата

Лист

12

Лабораторная работа №1

Stringgrid4.Cells [4,0]:=st4;

Stringgrid4.Cells [5,0]:=st5;

Stringgrid4.Cells [6,0]:=st6;

Stringgrid4.Cells [7,0]:=st7;

begin

Stringgrid4.Cells [7,5]:='м';

Stringgrid4.Cells [6,5]:='н';

Stringgrid4.Cells [5,5]:='е';

Stringgrid4.Cells [4,5]:='е';

Stringgrid4.Cells [3,5]:='т';

Stringgrid4.Cells [2,5]:='а';

Stringgrid4.Cells [1,5]:='н';

Stringgrid4.Cells [7,4]:='ы';

Stringgrid4.Cells [6,4]:='о';

Stringgrid4.Cells [5,4]:='е';

Stringgrid4.Cells [4,4]:='щ';

Stringgrid4.Cells [3,4]:='и';

Stringgrid4.Cells [2,4]:='т';

Stringgrid4.Cells [1,4]:='с';

Stringgrid4.Cells [7,3]:='н';

Stringgrid4.Cells [6,3]:='п';

Stringgrid4.Cells [5,3]:='л';

Stringgrid4.Cells [4,3]:='е';

Stringgrid4.Cells [3,3]:='в';

Stringgrid4.Cells [2,3]:='с';

Stringgrid4.Cells [1,3]:='я';

Stringgrid4.Cells [7,2]:='т';

Stringgrid4.Cells [6,2]:='е';

Stringgrid4.Cells [5,2]:='о';

Stringgrid4.Cells [4,2]:='я';

Stringgrid4.Cells [3,2]:='о';

Stringgrid4.Cells [2,2]:='е';

Stringgrid4.Cells [1,2]:='е';

Stringgrid4.Cells [7,1]:='я';

Stringgrid4.Cells [6,1]:='н';

Stringgrid4.Cells [5,1]:='б';

Stringgrid4.Cells [4,1]:='с';

Stringgrid4.Cells [3,1]:='н';

Stringgrid4.Cells [2,1]:='о';

Stringgrid4.Cells [1,1]:='н';

Изм.

Лист

№ докум.

Подпись

Дата

Лист

13

Лабораторная работа №1

end;

end;

procedure TForm1.Button8Click(Sender: TObject);

var

i:integer;

rez1:string;

begin

//with StringGrid2 do

  //for I := 0 to RowCount - 1 do

  begin

//  Stringgrid3.Cells [i,0] := Stringgrid2.Cells [i,0];

rez1 := Stringgrid2.Cells [1,1] + Stringgrid2.Cells [1,2] +

Stringgrid2.Cells [1,3] + Stringgrid2.Cells [1,4] +

Stringgrid2.Cells [1,5] + Stringgrid2.Cells [3,1] +

Stringgrid2.Cells [3,2] + Stringgrid2.Cells [3,3] +

Stringgrid2.Cells [3,4] + Stringgrid2.Cells [3,5] +

Stringgrid2.Cells [5,1] + Stringgrid2.Cells [5,2] +

Stringgrid2.Cells [5,3] + Stringgrid2.Cells [5,4] +

Stringgrid2.Cells [5,5] + Stringgrid2.Cells [7,1] +

Stringgrid2.Cells [7,2] + Stringgrid2.Cells [7,3] +

Stringgrid2.Cells [7,4] + Stringgrid2.Cells [7,5] +

Stringgrid2.Cells [2,1] + Stringgrid2.Cells [2,2] +

Stringgrid2.Cells [2,3] + Stringgrid2.Cells [2,4] +

Stringgrid2.Cells [2,5] + Stringgrid2.Cells [4,1] +

Stringgrid2.Cells [4,2] + Stringgrid2.Cells [4,3] +

Stringgrid2.Cells [4,4] + Stringgrid2.Cells [4,5] +

Stringgrid2.Cells [6,1] + Stringgrid2.Cells [6,2] +

Stringgrid2.Cells [6,3] + Stringgrid2.Cells [6,4] +

Stringgrid2.Cells [6,5];

end;

label4.caption := rez1;

end;

procedure TForm1.Button6Click(Sender: TObject);

var st1,st2,st3,st4,st5,st6,st7: string;

begin

Изм.

Лист

№ докум.

Подпись

Дата

Лист

14

Лабораторная работа №1

st1:='1';

st2:='2';

st3:='3';

st4:='4';

st5:='5';

st6:='6';

st7:='7';

Stringgrid3.Cells [1,0]:=st1;

Stringgrid3.Cells [2,0]:=st2;

Stringgrid3.Cells [3,0]:=st3;

Stringgrid3.Cells [4,0]:=st4;

Stringgrid3.Cells [5,0]:=st5;

Stringgrid3.Cells [6,0]:=st6;

Stringgrid3.Cells [7,0]:=st7;

end;

procedure TForm1.Button9Click(Sender: TObject);

begin

form2.show;

end;

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);

begin

CanClose := MessageBox(Application.Handle,'Закрыть программу?','Завершение',MB_YESNO)=ID_YES;

end;

end.

Изм.

Лист

№ докум.

Подпись

Дата

Лист

15

Лабораторная работа №1

Вывод: научился составлять программы шифрования текста, основываясь на классических  методах перестановки.


 

А также другие работы, которые могут Вас заинтересовать

40412. Война́ за незави́симость США 38.68 KB
  В том же 1765 году в НьюЙорке собрался Конгресс против штемпельного сбора представлявший собою большую часть колоний; он выработал Декларацию прав колоний. В 1767 году Англия обложила таможенными пошлинами ввозимые в американские колонии стекло свинец бумагу краски и чай; затем когда ньюйоркское законодательное собрание отказало в субсидии английскому гарнизону английский парламент ответил отказом в утверждении каких бы то ни было постановлений ньюйоркского законодательного собрания пока оно не смирится; в то же время министерство...
40413. Война́ за австри́йское насле́дство 115.2 KB
  Претензии сторон После смерти императора Карла VI 20 октября 1740 года его старшая дочь Мария Терезия вступила согласно постановлениюПрагматической санкции во владение всеми землями австрийской монархии но её наследственные права стали оспариваться с разных сторон а одновременно с тем заявлены были и разные другие притязания. Прусский король Фридрих II Великий прежде всех воспользовался этим случаем чтобы заявить древние права своего дома на силезские герцогства Лигниц Волау Бриг и Егерндорф и в декабре 1740 годавступил в Силезию....
40414. Английская революция XVII века 262.06 KB
  Гражданская война Начало войны Большое число роялистов присоединилось к армии короля. Один из офицеров парламентской армии Оливер Кромвель обратил внимание на вражескую кавалерию. Солдаты Армии нового образца получали должную военную подготовку и в бою вели себя очень дисциплинированно. Раньше офицерами становились солдаты из благополучных и знатных семей но в Армии нового образца они выдвигались по службе по мере своих заслуг на поле боя и боевых качеств.
40415. Буржуазные революции и национально-освободительные движения в 20-е годы XIX века в Европе 58.93 KB
  Буржуазные революции в Испании Португалии и Италии были вызваны притязаниями буржуазии на власть и ее борьбой против абсолютизма восстановленного после краха наполеоновской империи. Хотя обстановка в этих странах в годы Реставрации существенно различалась в Италии антифеодальные преобразования революционного и наполеоновского периода в основном остались в силе тогда как в Испании и Португалии феодальные устои общества не были поколеблены вспыхнувшие здесь буржуазные революции имели некоторые общие специфические черты. Революции в...
40416. Европейский абсолютизм и его особенности 24.47 KB
  Во Франции абсолютизму благоприятствовали богословы приписывающие верховной власти божественное происхождение и юристы признававшие за государями абсолютную власть древних римских императоров. На протяжении всего девятнадцатого века после Великой Французской Революции происходит процесс постепенной демократизации и ограничения власти монарха. Юридическое обоснование своей власти монархи находили в восстановлении нормы римского права которая была зафиксирована в VI веке в Кодексе византийского императора Юстиниана: Воля императора имеет...
40417. Великая францу́зская револю́ция 244.54 KB
  [править]Характер Историки утверждают что Великая французская революция по своему характеру была буржуазной заключалась в смене феодального строя капиталистическим и ведущую роль в этом процессе играл класс буржуазии свергнувший в ходе революции феодальную аристократию. [править]Созыв Генеральных штатов После целого ряда неудачных попыток выйти из затруднительного финансового положения Людовик XVI объявил в декабре 1787 года что созовёт государственные чины Франции на заседаниегенеральных штатов через пять лет....
40418. ГЕРМАНИЯ В 1815–1847 ГГ 16.77 KB
  Самыми развитыми в экономическом отношении районами стали территории среднего течения Рейна – Рейнско Вестфальские провинции Пруссии богатые залежами каменного угля и железной руды. крупнейшим торгово промышленным центром становится столица Пруссии – Берлин город с 400–тысячным населением. В нем сосредоточилось 2 3 всего машиностроительного и ситценабивного производства Пруссии. и Пруссии таможенные барьеры между государствами входившими в Германский союз.
40419. Англійський абсолютизм, його особливі риси 149.2 KB
  произвол королевских чиновников и судей злоупотребления королевских фаворитов герцог Бэкингем; распространение законов военного времени на время мирное постои армии в домах частных лиц; ограничения в торговой и промышленной сферах государственные монополии; стремление реставрировать ненавистный большинству англичан католицизм; ориентация династии Стюартов Яков I Карл I на католические государства континентальной Европы Францию Италию традиционных торговых соперников Англии. зачастую поразному относились к тем или...
40420. Німеччина 102.91 KB
  На развитие немецкого Просвещения влияли политическая раздробленность Германии и ее экономическая отсталость что определило преимущественный интерес немецких просветителей не к социальнополитическим проблемам а к вопросам философии морали эстетики и воспитания. Молодой Лессинг первый в Германии XVIII в. В отличие от Англии и Франции где абсолютизм способствовал государственному объединению в Германии XVIIXVIII вв. Он взял сюжет не из далекого прошлого но из самой живой современности Минна фон Барнхельм Направленная...