51327

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

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

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

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

Русский

2014-02-09

128.51 KB

30 чел.

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

Изм.

Лист

№ докум.

Подпись

Дата

Лист

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

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


 

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

53354. Я ЛЮБЛЮ УКРАЇНУ! 317.5 KB
  Ми живемо в Україні, в краю, невимовно багатому на чарівні кольори і краєвиди, на дивовижні пісні, на чудову милозвучну мову, якою можна передати все на світі, описати красу і велич рідного краю. Рідною українською мовою можна висловити найпотаємніші почуття і думи, мрії кожної людини.
53355. Использование схем в документах XML 691 KB
  Схема XML, как и сам документ XML, представляет собой текстовый файл, который можно создавать и корректировать с помощью любого текстового редактора. Проверка правильности созданной схемы и проверку действительности созданного с учетом схемы документа XML проводится с помощью специализированных программных продуктов (например, программы XMLSpy).
53358. Математическое ассорти 95.5 KB
  Математика и литература не так далеки друг от друга, как многие думают С.В.Ковалевская сочитала математику с поэзией. В ней одновременно жили математик и поэт. Здесь заканчивается текст слайда 4 (слайд 5) Великий русский поэт М.Ю.Лермонтов был большим любителем математики и в своих вольных и невольных переездах из одного места службы в другое всегда возил с собою учебник математики.
53359. ІГРОВІ ТЕХНОЛОГІЇ НАВЧАННЯ 77.5 KB
  Навчальна діяльність підпорядковується правилам гри. Місце й роль ігрової технології в навчальному процесі створення елементів гри й навчання багато в чому залежать від уміння викладача функцій і класифікації педагогічних ігор. Педагогічні ігри За видом діяльності фізичні інтелектуальні трудові соціальні психологічні За характером педагогічного процесу навчальні тренінгові контрольні узагальнення пізнавальні виховні розвиваючі репродуктивні продуктивні творчі комунікативні діагностичні профорієнтаційні ...
53361. Мякі іграшки своїми руками 619.5 KB
  Відмінною особливістю цього заняття є те що з однієї викрійки можна робити найрізноманітніші іграшки додаючи деталі міняючи матеріали і моделюючи вихідну викрійку. Якщо вам потрібно збільшити або зменшити викрійку то візьміть аркуш міліметрового паперу розмітьте його відповідно на великі чи малі квадрати і перемалюйте деталі викрійки зберігаючи в кожному квадраті свій фрагмент малюнка 4 Підбір матеріалів Основними матеріалами для виготовлення напівоб'ємних іграшок є драп сукно та інші тканини з неосипаючими краями. З них краще за все...
53362. Свято дитячої іграшки 71.5 KB
  Обладнання: різноманітні іграшки іграшкові коляски з ляльками мультимедійна презентація. Отже запрошуємо всіх на свято дитячої іграшки танець Вихователь: А зараз давайте познайомимося. Буратіно: А я витягує іграшкову машину лечу по коридору на автомобілі ДАІ i пильно відслідковую порушників коридорного руху штрафую за найменшу провину конфіскую іграшки.