- •Введение.
- •Консольные приложения.
- •Var I : integer;
- •Знакомство со средой программирования Delphi.
- •Создание теста с помощью функции MessageBox.
- •Var I:integer;
- •Var otv: array[1..12] of integer; m: array[1..12]of string; t,ball, I: integer;
- •Кнопка с рисунком. Создание формы для изменения иконки и стиля формы
- •Создание программы – простейший калькулятор.
- •Создание приложения для нахождения корней квадратного уравнения.
- •Создание инженерного калькулятора
- •If (Sender is tButton)
- •Изучение компонента Image и его свойств.
- •Создание приложений для решения математических задач.
- •Создание простейшего текстового редактора «Блокнот»
- •Создание приложения графический редактор.
- •If ssLeft in Shift then begin
- •И зучение графических возможностей Delphi при решении математических задач.
- •Работа со списками классов tListBox и tComboBox.
- •Механизм Drag-And-Drop – копирование и перенос объектов.
- •If Copy.Checked
- •If Cut.Checked
- •Изучение методов и свойств компонента ListBox с помощью Delphi Library Reference Help.
- •Изучение свойств и методов компонента класса tTabbedNotebook.
- •Создание приложения сезоны года с использованием оператора Case.
- •Создание приложения графический редактор – рисование от руки.
- •Initialization
- •Image1.Canvas.MoveTo (X, y);
- •Var NachPoint_Move, KonPoint_Move : tPoint;
- •If Clipboard.HasFormat(cf_bitmap) then
- •Image1.Canvas.Draw(0, 0, Bitmap);
- •Работа с базами данных в Delphi. Перемещение по записям при помощи кнопок.
- •Создание собственной структуры базы данных
- •Создание меню.
- •Создание заставки для проекта работы с окном формы.
- •Var Region: hrgn; //переменная описатель будущего региона, имеет тип hrgn
- •If IsMouseDown
- •Var Fr : tForm2;
- •Создание приложения для работы с базой данных ms Access.
- •Создание псевдонима базы данных FilesDb
- •Создание формы Form2 для просмотра данных запроса, созданного в программе ms Access.
- •Создание sql запросов.
- •Создание параметрических запросов:
- •Проектирование интерфейса приложения для работы с базой данных
- •Работа с типизированными файлами.
- •If OpenDialog1.Execute and fileExsist(OpenDialog1.Filename) then
- •If OpenDialog1.Execute then
- •Создание приложение Органайзер
- •Добавьте проект следующими возможностями:
- •Работа с компонентом StringGrid для создания электронных таблиц
- •If opendialog1.Execute then
- •Программирование графических тестов.
- •Создание программы – тест.
- •И спользование генератора случайных чисел при решении задач.
- •Создание проекта игры dxball.
- •If StartSharLog
- •If IntersectRect(r1, Doska.BoundsRect, Shar.BoundsRect)
- •Var r2 : tRect; r3 : tRect; I : integer;
- •If IntersectRect(r1, r2, r3)
- •Создание простых проектов.
- •Создание приложения Многооконный редактор
- •Создание интерфейса программы:
- •Var lDoc:tList; //объявление переменной типа tList – список, в котором буду храниться указатели на создаваемые пользователем формы документов
- •X, y: Integer);
- •If OpenDialog1.Execute then
- •If FontDialog1.Execute
- •If Left.Checked then
- •Закрепление полученных знаний по темам: графика, диалоги, меню, компоненты Delphi и их свойства
- •If SaveDialog1.Execute then image1.Picture.SaveToFile(savedialog1.FileName);
- •If OpenDialog1.Execute then image1.Picture.LoadfromFile(opendialog1.FileName);
- •Image1.Canvas.LineTo(X,y);
- •Image1.Canvas.MoveTo(X,y);
- •Создание приложение для шифрования данных методами Цезаря и Аффинной системой
- •1. Создание собственного класса.
- •Var I : integer;
- •Ish_text.Free;
- •Var I : byte;
- •Создание интерфейса программы:
- •Var sdvig,I, j, Index : integer;
- •Var I, j, Index, sdvig, a, b : integer;
- •Проверка знаний по теме: Создание программ в среде программирования Delphi
- •1 Задание.
- •Вопросы для самоконтроля.
- •Перечень основной и дополнительной литературы
Var I, j, Index, sdvig, a, b : integer;
txt, res : string; bukva, txt_shifr : char;
begin
Delo.Ish_text.Clear;
Delo.Shifr_text.Clear;
res :='';
if RadioGroup1.ItemIndex = 0
then begin
sdvig := StrToInt(InputBox('Введите сдвиг', '=', '2'));
for i := 0 to Memo_shifr.Lines.Count - 1 do
Delo.Shifr_text.Add(Memo_shifr.Lines.Strings[i]);
for i := 0 to Delo.Shifr_text.Count - 1 do
begin
txt := Delo.Shifr_text.Strings[i];
for j := 1 to length(txt) do
begin
bukva := txt[j];
Index := Delo.Get_kod(bukva) - sdvig;
if Index < 0 then
begin
Index := Index + 32;
txt_shifr := Delo.Get_bukva(Index);
end else
txt_shifr := Delo.Get_bukva(Delo.Get_kod(bukva) - sdvig);
res := res + txt_shifr;
end; end;
Delo.Ish_text.Add(res);
for i := 0 to Memo_shifr.Lines.Count - 1 do
Memo_ish.Lines.Add(res);
end;
if RadioGroup1.ItemIndex = 1
then begin
a := StrToInt(InputBox('Введите сдвиг', 'a=', '3'));
b := StrToInt(InputBox('Введите сдвиг', 'b=', '5'));
for i := 0 to Memo_shifr.Lines.Count - 1 do
Delo.Shifr_text.Add(Memo_shifr.Lines.Strings[i]);
for i := 0 to Delo.Shifr_text.Count - 1 do
begin
txt := Delo.Shifr_text.Strings[i];
for j := 1 to length(txt) do
begin
bukva := txt[j];
Index := Delo.Get_kod(bukva) ;
if Index > 32 then
begin
Index := Delo.Get_kod(bukva) + 32;
txt_shifr := Delo.Get_bukva((Delo.Get_kod(bukva) - b) div a)
end else
txt_shifr := Delo.Get_bukva((Index));
res := res + txt_shifr;
end;
end;
Delo.Ish_text.Add(res);
for i := 0 to Memo_shifr.Lines.Count - 1 do
Memo_ish.Lines.Add(res);
end;
Закройте отдел implementation инструкцией end;
Для создания объектов описанного класса добавьете два раздела initialization и finalization, в которых допишите Delo := TAlf_rus.Create; и Delo.Free; перед end. Добавьте проект следующими возможностями:
Добавьте на форму компонент StatusBar1 для отображения в статусной строке выполяемой операции. На событие создания формы добавьте отображение в статусной строке текущей даты; На событие нажатия кнопки (Зашифровать) дописать отображение текста 'шифрование методом (имя метода)' в статусной строке StatusBar1;
В данном классе допишите поле, содержащее буквы латинского алфавита для шифрования слов на английском языке. Предусмотрите выбор языка шифрования в RadioGroup2 (русский, английский).
Добавление меню, состоящее из команд: File (Open (для открытия файла), Save (для сохранения зашифрованного текста), Exit (для завершения приложения)); Edit (Метод Цезаря, Афинная система) - свяжите с написанными процедурами нажатия на соответствующую кнопку; About (About (открытие формы AboutBox1, содержащей справочную информацию об исползуемых методах шифрования)). Зашифруйте пиьмо другу одним 1 способом.
ВОПРОСЫ: 1. Создание собственного класса. 2. Методы шифрования информации.
Завершите работу с программой. Сдайте работу преподавателю