51327

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

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

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

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

Русский

2014-02-09

128.51 KB

24 чел.

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

Изм.

Лист

№ докум.

Подпись

Дата

Лист

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

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


 

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

59961. Военные походы фараонов 73.5 KB
  Цели урока: Образовательная расширить знания учащихся об основных понятиях урока подвести учащихся к пониманию причин последствий и характера военных походов фараонов Древнего Египта Развивающая создать условия для развития коммуникационных умений и навыков умения обобщать изученный материал делать выводы.
59962. Вогники наших сердець 51.5 KB
  Ведучий: Усі діти люблять свою маму і для кожного вона єдина і найкраща. Я дуже люблю свою маму Ведучий: В дарунок усім мамам танок Полькатрійка Розповідь віршів з показами фото слайдів під музичний супровід Учениця 1. Ведучий.
59963. НЕХАЙ ВОГОНЬ В СЕРЦЯХ ПАЛАЄ, А ПОЖЕЖ ХАЙ НЕ БУВАЄ 542 KB
  МЕТА: продовжувати ознайомлювати учнів із поняттям вогонь; формувати уявлення про причини виникнення пожежі в побуті та її наслідки; вчити учнів правильно діяти у випадку виявлення пожежі вдома чи інших обєктах; розвивати навички самозахисту в умовах задимленого помешкання...
59965. План-конспект уроку фізичної культури на матеріалі волейбол 71.5 KB
  Ходьба: звичайна в обхід спортзалу; на п`ятках руки вгору; на носках руки в замок вгору; перекат з пятки на носок руки на пояс на зовнішній стороні стопи руки в сторони; на внутрішній стороні стопи руки за спину; в присіді...
59966. Правление князя Владимира Великого 66.5 KB
  ЦЕЛЬ: рассмотреть внешнюю и внутреннею политику Владимира Великого раскрыть её противоречия: рассмотреть территориальные изменения; установить хронологическую последовательность событий; изучить реформы Владимира и их значение для дальнейшего развития Русского государства...
59967. Ми можемо відкрити новий світ, коли навчимося ставити вірні запитання 387.5 KB
  Добре поставлене запитання – це запитання, на яке учень захоче відповісти, зможе відповісти або над яким він схоче задуматись, і він буде зацікавлений у співпраці. Уміння ставити запитання є необхідною ознакою фахової та педагогічної майстерності.