50109 (609926), страница 3

Просмтор этого файла доступен только зарегистрированным пользователям. Но у нас супер быстрая регистрация: достаточно только электронной почты!

Текст из файла (страница 3)

Интегрированная среда Delphi предоставляет пользователю несколько команд пошаговой отладки доступных в меню Выполнить (рисунок 4.4).

Рисунок 4.4 – Команды отладки

В Delphi имеется два режима трассировки - без захода в подпрограмму и с заходом в неё.

Если необходимо выполнить трассировку части программы, то следует установить в редакторе кода указатель на тот оператор, с которого следует начать трассировку, и выполнить команду Выполнить/Выполнять до Курсора (функциональная клавиша F4). Затем можно продолжить трассировку, нажимая клавиши F7 или F8.

Кроме того, при отладке программы можно использовать точки останова программы. Это строки программы, помеченные особым образом. При достижении такой строки программа приостанавливает свою работу. В этот момент можно просмотреть значения наблюдаемых переменных или начать трассировку программы.

Для внесения новой точки останова выполняется команда Выполнить/Добавить Точку Останова или нажатие функциональной клавиши F5.

ВЫВОДЫ

В процессе выполнения курсовой работы были выполнено:

- на первом этапе работы было проанализировано задание и определен перечень вопросов, которые были решены в данной работе, определение того, что, собственно, будет выполнять разрабатываемая программа, не рассматривая конкретную реализацию этих функций;

- разработка алгоритма разрабатываемой программы;

- разработка программы и пользовательского интерфейса;

- произведена отладка программы.

ПЕРЕЧЕНЬ ССЫЛОК

1. Абрамов В.Г., Трифонов Н.П., Трифонова Г.Н. Введение в язык Паскаль. - М.: Наука, 1988.

2. Довгаль С.И., Литвинов Б.Ю., Сбитнев А..И. Персональные ЭВМ : Турбо Паскаль V7.0, объектное программирование, локальные сети. – Киев: Информсиситема сервис, 1993.

3. Епанешников А.М., Епанешникова В.А. Программирование в среде Turbo Pascal 7.0.-М.: Диалог – МИФИ,1999.

4. Зуев Е.А. Программирование на языке Turbo Pascal 6.0,7.0. – М.: Радио и связь, Веста,1993.

5. Кандзюба С.П., Громов В.Н. Delphi 7.Базы данных и приложения. Лекции и упражнения. – К.: Издательство "ДиаСофт", 2001.

6. Климова Л.М. Pascal 7.0. Практическое программирование. Решение типовых задач. –М.:КУДИУ ОБРАЗ, 2000.

7. Марченко А. И., Марченко Л.А.. Программирование в среде Turbo Pascal 7.0.-К.: Век+,1999.

8. Фаронов В.В. Turbo Pascal 7.0. Начальный курс. - М.: Нолидж, 2000.

9. Методические указания к выполнению курсовой работы по дисциплине "Программирование" /Сост.: Н.С. Семенова, С.А. Сафонова – Северодонецк: Изд-во СТИ ВНУ, 2006. - 37с.

ПРИЛОЖЕНИЕ А

Схема алгоритма

Продолжение Приложения А

ПРИЛОЖЕНИЕ Б

Листинг программы

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, Grids;

type

TForm1 = class(TForm)

gbMatrix: TGroupBox;

sgMatrix: TStringGrid;

buZapoln: TButton;

gbMassiv: TGroupBox;

lbA: TLabel;

lbB: TLabel;

sgA: TStringGrid;

sgB: TStringGrid;

buMassiv: TButton;

sgC2: TStringGrid;

sgC1: TStringGrid;

lbC1: TLabel;

lbC2: TLabel;

buC: TButton;

procedure FormCreate(Sender: TObject);

procedure buZapolnClick(Sender: TObject);

procedure buMassivClick(Sender: TObject);

procedure buCClick(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

matrix: array [1..7, 1..9] of integer;

a, b, c1, c2: array [1..20] of integer;

kol_a, kol_b, kol_c1, kol_c2, min_a, min_a_i, max_b, max_b_i: integer;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);

var

i, j: integer;

begin

Randomize; // включить генератор случайных чисел

for i:= 1 to 7 do

sgMatrix.Cells[0, i]:= IntToStr(i);

for i:= 1 to 9 do

sgMatrix.Cells[i, 0]:= IntToStr(i);

for i:= 1 to 7 do

for j:= 1 to 9 do

begin

matrix[i, j]:= random(31);

sgMatrix.Cells[j, i]:= IntToStr(matrix[i, j]);

end;

end;

procedure TForm1.buZapolnClick(Sender: TObject);

var i, j: integer;

begin

for i:= 1 to 7 do

for j:= 1 to 9 do

begin

matrix[i, j]:= StrToInt(sgMatrix.Cells[j, i]);

end;

end;

procedure TForm1.buMassivClick(Sender: TObject);

var i: integer;

begin

// задание массива А

kol_a:= 10;

sgA.ColCount:= kol_a + 1;

for i:= 1 to kol_a do

begin

a[i]:= random(31)- random(41);

sgA.Cells[i, 0]:= IntToStr(i);

sgA.Cells[i, 1]:= IntToStr(a[i]);

end;

// задание масива В

kol_b:= 7;

sgB.ColCount:= kol_b + 1;

for i:= 1 to kol_b do

begin

b[i]:= random(21)- random(26);

sgB.Cells[i, 0]:= IntToStr(i);

sgB.Cells[i, 1]:= IntToStr(b[i]);

end;

// поиск максимума и минимума

min_a:= 100;

min_a_i:= 1;

max_b:= -100;

max_b_i:= 1;

for i:= 1 to kol_a do

if (a[i]>0) and (a[i]

begin

min_a:= a[i];

min_a_i:= i;

end;

for i:= 1 to kol_b do

if (b[i]max_b)then

begin

max_b:= b[i];

max_b_i:= i;

end;

end;

procedure TForm1.buCClick(Sender: TObject);

var i, j, k: integer;

begin

// формирование массивов с1 и с2

kol_c1:=0;

for i:= min_a_i+1 to kol_a do

begin

kol_c1:= kol_c1+1;

c1[kol_c1]:= a[i];

end;

for i:= 1 to max_b_i do

begin

kol_c1:= kol_c1+1;

c1[kol_c1]:= b[i];

end;

kol_c2:=0;

for i:= 1 to min_a_i do

begin

kol_c2:= kol_c2+1;

c2[kol_c2]:= a[i];

end;

for i:= max_b_i+1 to kol_b do

begin

kol_c2:= kol_c2+1;

c2[kol_c2]:= b[i];

end;

// сортировка массивов с1 и с2

for j:= kol_c1 downto 2 do

for i:= 1 to kol_c1 do

if c1[i] > c1[i+1] then

begin

k:=c1[i] ;

c1[i]:=c1[i+1];

c1[i+1]:=k;

end;

for j:= kol_c2 downto 2 do

for i:= 1 to kol_c2 do

if c2[i] < c2[i+1] then

begin

k:=c2[i] ;

c2[i]:=c2[i+1];

c2[i+1]:=k;

end;

// отображение с1 и с2

sgC1.ColCount:= kol_c1 + 1;

for i:= 1 to kol_c1 do

begin

sgC1.Cells[i, 0]:= IntToStr(i);

sgC1.Cells[i, 1]:= IntToStr(c1[i]);

end;

sgC2.ColCount:= kol_c2 + 1;

for i:= 1 to kol_c2 do

begin

sgC2.Cells[i, 0]:= IntToStr(i);

sgC2.Cells[i, 1]:= IntToStr(c2[i]);

end;

end;

end.

Характеристики

Список файлов курсовой работы