Конспект урока «Шифровка - дешифровка» по информатике

Конспект урока на тему «Шифровка - дешифровка»

Создать проект, который по фразе, являющейся ключом шифра, шифрует и дешифрует слова.

1. Откройте программу Lazarus и создайте новый проект (Проект / создать / приложение)

2. Сохраните проект в личной папке в папку «Шифровка - дешифровка». Установите свойства для формы №1:

   Объект

   Имя объекта (Name)	Свойства	Значение свойства
   Форма	Tform1	Caption	Шифровка
   		Color	Любой

3. Разместите на форме №1 следующие элементы и установите для них свойства. Сохраните проект под именем Unit1.

Объект

4. Выполните двойной щелчок мышью на кнопке Button1 и запишите для нее программный код:

procedure TForm1.Button1Click(Sender: TObject);

begin

L := Length(Edit1.Text);

KF := 'электронно-вычислительные машины, компьютеры (железо) позволяют находить значения функций, а ещё свойства готовых объектов';

For I := 1 To L Do

begin

A := Copy(Edit1.Text, I, 1);

For J := 1 To Length(KF) Do

begin

If Copy(KF, J, 1) = A Then

begin

Z[I] := J;

break;

end;

end;

Label1.Caption := Label1.Caption +' ' + IntToStr(Z[I])

end;

end;

5. Выполните двойной щелчок мышью на кнопке Button2 и запишите для нее программный код:

procedure TForm1.Button2Click(Sender: TObject);

begin

Label1.Caption :='';

Form1.Visible :=false;

Form2.Visible :=true;

end;

6. В разделе описания переменных укажите переменные данного проекта

var

Form1: TForm1;

L:integer;

I:integer;

J:integer;

KF:string;

A:string;

Z:array[1..200] of integer;

7. В разделе implementation укажите на связь данного проекта с проектом Unit2:

implementation

uses Unit2;

{$R *.lfm}

8. Сохраните изменения в проекте.

9. Щелкните на кнопке «Создать форму».

При этом будет добавлена форма №2 и новая вкладка Unit2.

Активизируйте вкладку №2 и сохраните проект под именем Unit 2 в тот же каталог.

10. Установите свойства для формы №2:

Объект

11. Разместите на форме №2 следующие элементы и установите для них свойства.

Объект

12. Выполните двойной щелчок мышью на кнопке Button1 и запишите для нее программный код:

Procedure TForm2.Button1Click(Sender: TObject);

begin

L := Length(Form1.Edit1.Text);

Form1.Edit1.Text :='';

Label1.Caption :='';

For K := 1 To L Do

begin

Label1.Caption := Label1.Caption + ' ' + IntToStr(Z[K]);

end;

end;

13. Выполните двойной щелчок мышью на кнопке Button2 и запишите для нее программный код:

procedure TForm2.Button2Click(Sender: TObject);

begin

For K := 1 To L Do

begin

B := Copy(KF, Z[K], 1);

Label2.Caption := Label2.Caption + B

end;

end;

14. Выполните двойной щелчок мышью на кнопке Button3 и запишите для нее программный код:

procedure TForm2.Button3Click(Sender: TObject);

begin

Label1.Caption :='';

Label2.Caption :='';

Form1.Visible :=true;

Form2.Visible :=false;

end;

15. В разделе описания переменных укажите переменные данного проекта

var

Form2: TForm2;

K:integer;

B:string;

16. В разделе implementation укажите на связь данного проекта с проектом Unit1:

implementation

uses Unit1;

{$R *.lfm}

17. Запустите задание на шифровку. В текстовое поле введите любое слово и нажмите кнопку зашифровать. Перейдите к дешифровке.

18. Протестируйте дешифровку.

19. Сделайте вывод о способе кодирования и декодирования.

20. Сделайте вывод об использовании нескольких форм в одном проекте.

21. Продемонстрируйте работу учителю.