51327

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

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

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

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

Русский

2014-02-09

128.51 KB

18 чел.

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

Изм.

Лист

№ докум.

Подпись

Дата

Лист

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

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


 

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

28815. Дайте сравнительный анализ программам политических партий в России в начале 20в. 15.01 KB
  Умеренноконсервативноекрыл о возглавляла партия октябристов Союз 17 октября. названа в честь Манифеста 17 октября. Программные цели: дальнейшее развитие политических свобод дарованных Манифестом 17 октября идеал ограниченная конституционная монархия.
28816. Февральская революция и падение монархии. В чем сущность новой власти, возникшей в России после Февраля 15.2 KB
  В сложившейся обстановке правительство и сам царь проявили неспособность к быстрым и решительным действиям. Правительство было тесно связано с буржуазными общественными организациями возникшими в годы войны Всероссийский земский союз Городской союз Центральный военнопромышленный комитет. В своей Декларации Временное правительство объявило амнистию политическим заключённым гражданские свободы замену полиции народной милицией реформу местного самоуправления.
28817. Какие альтернативы открывались перед страной после Февральской революции? Почему они не были реализованы? В чем причины победы большевиков в октябре 1917г. 18.82 KB
  решающий перевес был на стороне Советов большевиков. Корнилов смог установить свою власть в стране; однородносоциалистическую если бы была выполнена резолюция II Съезда Советов о создании правительства из представителей всех социалистических партий; большевистсколеворадикальную с приходом к власти большевиков началась реализация этой модели общественного развития России. Нерешительные попытки Керенского избавиться от наиболее ненадёжных частей Петроградского гарнизона приводят только к тому что они дрейфуют влево и переходят на...
28818. Как происходило становление советской политической и социально-экономической системы? Деятельность большевистской партии и советского правительства в 1917-1920гг. 20.72 KB
  Власть и командные высоты в экономике крупная и средняя промышленность внешняя торговля финансовая системы транспорт оставались в руках большевиков которые не отказывались от конечной цели социализма шли к ней не прямым политики военного коммунизма а обходным путем с помощью товарноденежных отношений. Реальная политическая власть принадлежала Президиуму ВЦИК и Совету народных комиссаров СНК который присвоил себе не только исполнительную но и законодательную власть. Особое внимание уделялось формированию аппарата...
28819. Объясните название и сущность политики военного коммунизма 14.24 KB
  Решение о прекращении военного коммунизма было принято 21 марта 1921 года на X съезде РКПб и введен НЭП. Политика военного коммунизма включала комплекс мероприятий затронувших экономическую и социальнополитическую сферу. Основой военного коммунизма были чрезвычайные меры в снабжении городов и армии продовольствием свертывание товарноденежных отношений национализации всей промышленности включая мелкую продразверстка снабжение населения продовольственными и промышленными товарами по карточкам всеобщая трудовая повинность и...
28820. Каковы причины, особенности и последствия гражданской войны в России 15.36 KB
  В ходе Гражданской войны от голода болезней террора и в боях погибло по различным данным от 8 до 13 млн человек в том числе около 1 млн бойцов Красной Армии. Эмигрировало из страны до 2 млн человек. По одним данным в 1921 году в России насчитывалось 45 млн беспризорников по другим в 1922 году было 7 млн беспризорников.
28821. На каких принципах был построен СССР в 1922г? Какие альтернативные варианты объединения обсуждались 14.64 KB
  I съезд Советов СССР утвердил Декларацию и Договор об образовании Союза Советских Социалистических республик. II съезд Советов СССР принял первую Конституцию СССР она состояла из Декларации и Договора об образовании СССР. Конституция признавала республики суверенными государствами с правом свободного выхода из Союза внесения в свои конституции изменений в соответствии с Конституцией СССР.
28822. Какое значение имел НЭП для социалистического строительства? Почему он был свернут 20.45 KB
  Достижения нэпа значительны: к 1925 г. Вместе с тем успехи нэпа не следует преувеличивать. Противоречия нэпа проявлялись в: экономике техническая отсталость промышленности высокие темпы ее восстановления острая потребность в обновлении производственных мощностей нехватка капиталов внутри страны. невозможность широкого привлечения иностранных капиталовложений абсолютное преобладание мелких полунатуральных крестьянских хозяйств на селе; социальной сфере усиление неравенства неприятие нэпа значительной частью рабочего класса и...
28823. Планы осуществления индустриализации в СССР: проекты, цели, пути осуществления, итоги 16.39 KB
  Задачу осуществления индустриализации т. Где взять капиталы для финансирования промышленности Какие темпы индустриализации дадут стабильный устойчивый рост Какую пену готово заплатить за неизбежные лишения общество К 1927 г. первый подход обоснованный видными ученымиэкономистами: капиталы для финансирования индустриализации дадут развитие частного предпринимательства привлечение иностранных займов расширение торгового оборота; темпы индустриализации должны быть высокими но при этом ориентироваться на реальные возможности а не на...