Добавил:
Upload Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:

Визуальное программирование / Лабораторная работа-1_ИС

.doc
Скачиваний:
34
Добавлен:
07.06.2015
Размер:
54.78 Кб
Скачать

Лабораторная работа 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.

Задания для самостоятельной работы

  1. Создать в рабочей папке (каталог узнать у преподавателя) папку для хранения файлов по дисциплине. В образованной папке создать папку Lab_1 для хранения файлов лабораторной работы № 1. В дальнейшем аналогичным образом организовывать работу с остальными лабораторными.

  2. Запустите среду Delphi. Познакомьтесь с интерфейсом среды.

  3. Познакомьтесь со справочной информацией системы Delphi.

  4. Откройте папку Lectures\ИС_3, скопируйте в свою папку каталог Lab1. Откройте в скопированной папке файл проекта Project1.dpr. Проанализируйте структуру проекта (View Unit-Project1).

  5. Откройте файл модуля 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.

 Контрольные вопросы.

  1. Классификация языков программирования (процедурные и непроцедурные ЯП).

  2. Объектно-ориентированное программирование.

  3. Инкапсуляция, наследование, полиморфизм.

  4. Визуальное программирование.

  5. Объект, свойства и методы объектов.

  6. Классы объектов.

  7. Основные функции и компоненты системы программирования.

  8. Как можно создать новый файл в Delphi Что нужно сделать для открытия файла Как сохранить файл

  9. Какие действия можно выполнять при отладке программ

  10. Объясните назначение команды Run-Run системы Delphi.

  11. Объясните назначение команды Run-Trace Into системы Delphi.

  12. Объясните назначение команды Run-Step Over системы Delphi.

  13. Объясните назначение команды View-Debug Windows-Watches системы Delphi.

  14. Объясните назначение команды View-Debug Windows- Breakpoints системы Delphi.