Визуальное программирование / Лабораторная работа-1_ИС
.docЛабораторная работа № 1
Введение в систему Delphi
Цели лабораторной работы. Изучение интерфейса системы Delphi. Знакомство со справочной службой системы. Рассмотрение особенностей создания консольных приложений. Получение первоначальных навыков отладки и выполнения программ.
Пример файла модуля Unit1.pas
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Edit1: TEdit;
Edit2: TEdit;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
Var m,n: integer;
Begin
m:=StrToInt(Edit1.Text);
n:=StrToInt(Edit2.Text);
While m<>n do
If m>n Then m:=m-n
Else
n:=n-m;
Label2.Caption:=InTToStr(n)
end;
end.
program Project1;
Пример файла проекта Project1.pas
uses
Forms,
Unit1 in 'Unit1.pas' {Form1};
{$R *.res}
begin
Application.Initialize;
Application.CreateForm(TForm1, Form1);
Application.Run;
end.
Задания для самостоятельной работы
-
Создать в рабочей папке (каталог узнать у преподавателя) папку для хранения файлов по дисциплине. В образованной папке создать папку Lab_1 для хранения файлов лабораторной работы № 1. В дальнейшем аналогичным образом организовывать работу с остальными лабораторными.
-
Запустите среду Delphi. Познакомьтесь с интерфейсом среды.
-
Познакомьтесь со справочной информацией системы Delphi.
-
Откройте папку Lectures\ИС_3, скопируйте в свою папку каталог Lab1. Откройте в скопированной папке файл проекта Project1.dpr. Проанализируйте структуру проекта (View Unit-Project1).
-
Откройте файл модуля Unit1.pas. Выполните программу (Run) для чисел 36 и 48. Исполните программу в режиме пошаговой отладки (Run-Trace Into или Run-Step Over). Определите точку останова программы в строке
If m>n Then m:=m-n
(щелчок левой кнопкой мыши слева от строки программы). В тетрадях зафиксируйте, какие значения принимают переменные m, n (вызов окна просмотра значений выражений View-Debug Windows-Watches, другой способ: подвести указатель манипулятора Mouse к нужному идентификатору) в процессе выполнения программы, если введенные с клавиатуры числа равны 24n+8 и 12n+24 (n –ваш порядковый номер в журнале группы). Объясните работу алгоритма Евклида, реализованного в рассматриваемой программе. Прерывание выполнения программы Run-Program Reset.
Контрольные вопросы.
-
Классификация языков программирования (процедурные и непроцедурные ЯП).
-
Объектно-ориентированное программирование.
-
Инкапсуляция, наследование, полиморфизм.
-
Визуальное программирование.
-
Объект, свойства и методы объектов.
-
Классы объектов.
-
Основные функции и компоненты системы программирования.
-
Как можно создать новый файл в Delphi Что нужно сделать для открытия файла Как сохранить файл
-
Какие действия можно выполнять при отладке программ
-
Объясните назначение команды Run-Run системы Delphi.
-
Объясните назначение команды Run-Trace Into системы Delphi.
-
Объясните назначение команды Run-Step Over системы Delphi.
-
Объясните назначение команды View-Debug Windows-Watches системы Delphi.
-
Объясните назначение команды View-Debug Windows- Breakpoints системы Delphi.