50109 (Обработка матриц), страница 3

2016-07-30СтудИзба

Описание файла

Документ из архива "Обработка матриц", который расположен в категории "". Всё это находится в предмете "информатика" из 1 семестр, которые можно найти в файловом архиве . Не смотря на прямую связь этого архива с , его также можно найти и в других разделах. Архив можно найти в разделе "курсовые/домашние работы", в предмете "информатика, программирование" в общих файлах.

Онлайн просмотр документа "50109"

Текст 3 страницы из документа "50109"

Интегрированная среда 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.

Свежие статьи
Популярно сейчас
А знаете ли Вы, что из года в год задания практически не меняются? Математика, преподаваемая в учебных заведениях, никак не менялась минимум 30 лет. Найдите нужный учебный материал на СтудИзбе!
Ответы на популярные вопросы
Да! Наши авторы собирают и выкладывают те работы, которые сдаются в Вашем учебном заведении ежегодно и уже проверены преподавателями.
Да! У нас любой человек может выложить любую учебную работу и зарабатывать на её продажах! Но каждый учебный материал публикуется только после тщательной проверки администрацией.
Вернём деньги! А если быть более точными, то автору даётся немного времени на исправление, а если не исправит или выйдет время, то вернём деньги в полном объёме!
Нет! Мы не выполняем работы на заказ, однако Вы можете попросить что-то выложить в наших социальных сетях.
Добавляйте материалы
и зарабатывайте!
Продажи идут автоматически
4121
Авторов
на СтудИзбе
667
Средний доход
с одного платного файла
Обучение Подробнее