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

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


 

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

40763. УКРАЇНСЬКА КУЛЬТУРА: СУТНІСТЬ І ВИТОКИ 55.99 KB
  Теоретичні засади історичної культурології Слово культура походить з латини. Згодом семантика цього слова істотно розширилася. Нині термін культура має надзвичайно велике смислове навантаження. Важливою характерною рисою культури є те що вона являє собою за словами видатного російського культуролога Ю...
40764. Загальнофілософські методи дослідження держави і права 46.68 KB
  Узагальнивши існуючі в літературі наукові погляди стосовно класифікації методів вважаємо за можливе виокремити наступні рівні прийомів вивчення субєкту теорії держави та права. Загальнофілософські методи складають світоглядову основу дослідження держави і права. Вони створюють основу для розвитку теорії держави і права.
40765. ПОНЯТИЕ МЕЖДУНАРОДНОГО МЕНЕДЖМЕНТА 35.09 KB
  ПОНЯТИЕ МЕЖДУНАРОДНОГО МЕНЕДЖМЕНТА Международный бизнес: сущность развитие характерные черты Перед определением категории международный менеджмент необходимо дать понятие категории международный бизнес как одной из основных форм предпринимательства заключающейся в сотрудничестве хозяйствующих субъектов 2 или более стран с целью извлечения выгоды. Это ключевой момент как в понимании природы и специфики международного бизнеса так и в объяснении возникновения и развития международного менеджмента. Периодизация развития международного...
40766. Стилістика як мовознавча дисципліна Стилістична система української мови. Стилістична норма 670.91 KB
  Стилістика як мовознавча дисципліна Стилістична система української мови. Стилістична норма Мета: поглибити знання студентів про систему стилів ознайомити студентів із стилістичними нормами набуття ними знань щодо стилістичних особливостей сучасної української літературної мови; вивчення особливостей функціонування офіційноділового наукового публіцистичного художнього та розмовного стилів розкрити усі параметри їх характеристик їх різновиди; розвивати вміння будувати висловлювання за даним стилем; виховувати мовне чуття яке...
40767. Ординалістська теорія поведінки споживача. Гранична норма заміщення благ: суть і методика обчислення 61.08 KB
  Криві байдужості як спеціальний інструментарій мікроекономічного аналізу. Карта байдужості. Із цієї гіпотези можна зробити висновок що криві байдужості випуклі до початку координат. Крива байдужості Залежність сукупної корисності від кількості двох товарів TU крива споживчої байдужості однакової сукупної корисності.
40768. МОДЕЛЮВАННЯ ПОВЕДІНКИ СПОЖИВАЧА НА РИНКУ ТОВАРІВ 138.97 KB
  Тоді формула бюджетного обмеження матиме вигляд: Гранична норма заміщення благом Х витрат споживача на інші блага виражається в грошовій формі й означає міру готовності пожертвувати можливістю витратити бюджет на інші блага задля споживання додаткової одиниці Х залишаючись на даній кривій байдужості.Побудова лінії Енгеля на основі лінії дохід ...
40769. Попит, пропозиція їх взаємовідносини 78.95 KB
  Такими є основні контури моделі в теорії попиту і пропозиції що посідає одне з найважливіших місць у поясненні поведінки ринкових субєктів як на мікро так і на макрорівні. Функція на якій базується модель попиту має вигляд 5.1 де QD обсяг величина попиту на товар одиниць за проміжок часу; P ціна на товар грош. Обсяг величина попиту є саме такою кількістю товару яку бажає і може придбати споживач споживачі в певний проміжок часу за деякою ціною з діапазону можливих цін за інших незмінних умов.
40770. Економічна природа лізингового кредиту 32.86 KB
  Об'єктом предметом лізингу є будьяке нерухоме і рухоме майно яке може бути віднесене до основних фондів: машини устаткування транспортні засоби обчислювальна та інша техніка будинки споруди системи телекомунікацій тощо не заборонене законодавством до вільного обігу на ринку. Суб'єктами лізингу як правило є три особи: постачальник або продавець предмету лізингу підприємство організація та інші суб'єкти господарювання які здійснюють виробництво і реалізацію машин і обладнання; лізингодавець суб'єкт господарювання який...
40771. Валютні відносини та валютні системи 444.55 KB
  Поняття та види валюти. У цей момент національні гроші набувають форми валюти. Використання валюти для обслуговування зовнішньоекономічних відносин надає останнім специфічної форми валютних відносин. Залежно від економічного призначення валютних платежів у валютних відносинах можна виділити такі складові: міжнародні розрахунки за зовнішньоторговельними операціями; одержання і погашення різних видів міжнародних позичок; переміщення валюти при здійсненні зовнішніх інвестицій; переміщення валюти при наданні економічної і технічної...