Программирование на Delphi с алгоритмами и кодами. Курсовая работа (т). Информационное обеспечение, программирование.
👉🏻👉🏻👉🏻 ВСЯ ИНФОРМАЦИЯ ДОСТУПНА ЗДЕСЬ ЖМИТЕ 👈🏻👈🏻👈🏻
Информационное обеспечение, программирование
Вы можете узнать стоимость помощи в написании студенческой работы.
Помощь в написании работы, которую точно примут!
Похожие работы на - Программирование на Delphi с алгоритмами и кодами
Скачать Скачать документ
Информация о работе Информация о работе
Скачать Скачать документ
Информация о работе Информация о работе
Скачать Скачать документ
Информация о работе Информация о работе
Скачать Скачать документ
Информация о работе Информация о работе
Скачать Скачать документ
Информация о работе Информация о работе
Скачать Скачать документ
Информация о работе Информация о работе
Скачать Скачать документ
Информация о работе Информация о работе
Нужна качественная работа без плагиата?
Не нашел материал для своей работы?
Поможем написать качественную работу Без плагиата!
Целью данной курсовой
работы является выполнение заданий на Delphi по предмету “программирование на языках высокого уровня».
Данная
работа содержит три задачи, написанные на Delphi.
Это задачи на разные темы, в которых применяются различные элементы языка
программирования и компоненты Delphi.
В
первой задаче вычисляется сумма ряда, значение функции, погрешность и строится
график функции. Во второй задаче вводим, выводим и преобразуем элементы
массива. В третьей задаче используется графика, движение фигуры по
определенному контуру.
Для
создания программы использовались компоненты из вкладок Standard
и Additional :
StringGrid – таблица для отображения каких-либо
значений;
Label – компонента, для отображения не
редактируемого текста;
Edit – компонент ввода-вывода текстовой
строкиж
TChart – компонента для прорисовки графика.
Первые пять компонентов
наиболее часто применяются при написании программ. Изменяя их свойства можно
писать большое количество программ с разным содержанием задачи. Последний
компонент из данного списка очень полезны при решении конкретных задач.
Помимо этого для решения третей
задачи были использованы функции API,
позволяющие управлять интерфейсом приложений Windows.
Процессор
- Intel Pentium 233 МГц и выше
Операционная
система - Microsoft
Windows XP,
Windows 2000
Оперативная
память - 64 Мбайт (рекомендуется 128 Мбайт)
Пространство
на жестком диске - 450 Мбайт
Другое
аппаратное обеспечение - CD-ROM, мышь
Создаем форму и изменяем
необходимые свойства главной формы в окне свойств:
Добавляем на главную
форму необходимые элементы управления:
Button – запуск вычислений, открытие окна
графика, выход из программы;
StringGrid – отображение таблицы значений x, y, s.
Label – отображение не редактируемого
текста;
Прописываем в компонентах
Edit текст по умолчанию в свойство Text .
Изменяем свойства
добавленного элемента управления StringGrid :
Пишем для кнопок
алгоритмы, которые будут выполнять различные действия. Прописываем
действие на открытие формы на главной форме работы.
Создаем отдельную форму
для графика, на нее помещаем компонент TChart . Пишем команду ее открытия на одну из кнопок.
Запускаем программу с
целью проверки ее работоспособности. Сохраняем проект.
Создаем форму и изменяем
необходимые свойства главной формы в окне свойств:
Добавляем на главную
форму необходимые элементы управления:
Button – запуск вычислений, открытие окна
графика, выход из программы;
StringGrid – отображение таблицы значений x, y, s.
Label – отображение не редактируемого
текста;
Edit – ввод данных для формирования
массивов и вывода полученных числовых рядов.
Изменяем свойства
добавленного элемента управления StringGrid :
Пишем для кнопок алгоритмы,
которые будут выполнять различные действия. Прописываем действие на
открытие формы на главной форме работы. Запускаем программу с целью проверки ее
работоспособности. Сохраняем проект.
Создаем форму и изменяем
необходимые свойства главной формы в окне свойств:
Задаем для формы регион,
в который она будет вписана.
Пишем алгоритм движения
по кромке экрана. Запускаем программу с целью проверки ее работоспособности.
Сохраняем проект.
Windows,
Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
procedure
Button4Click(Sender: TObject);
procedure
Button1Click(Sender: TObject);
procedure
Button2Click(Sender: TObject);
procedure
Button3Click(Sender: TObject);
procedure
TForm1.Button4Click(Sender: TObject);
Form1.Close; // закрывает главную форму и приложение
procedure
TForm1.Button1Click(Sender: TObject);
form2.showmodal; // показывает форму задания № 1
procedure
TForm1.Button2Click(Sender: TObject);
form4.showmodal; // показывает форму задания №2
procedure
TForm1.Button3Click(Sender: TObject);
form7.showmodal; // показывает форму задание №3
В первой программе
использовались компоненты:
Edit – для ввода параметров вычисления;
Button1-кнопка для вычисления S и Y;
Button3-кнопка для открытия формы с
графиком;
StringGrid1-таблица для вывода результатов
вычислений;
Компоненты, которые
использовались для оформления:
Image1 – для вывода на экран задания;
Label- компонента для отображения текста.
Для вывода графика
создана отдельная форма с компонентом Chart1.
Windows,
Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs,
StdCtrls, Grids, ExtCtrls, Math, jpeg;
procedure
Button2Click(Sender: TObject);
procedure
Button1Click(Sender: TObject);
procedure
Button3Click(Sender: TObject);
procedure
TForm2.Button2Click(Sender: TObject);
Form2.Close; // закрывает форму задания №1
procedure TForm2.Button1Click(Sender: TObject);
// производит вычисления x, y, s, заполнение таблицы, постройка графика
StringGrid1.ColWidths[0]:=20;
// задает ширину
столбца
StringGrid1.cells[1,0]:='x';
// задает подпись
столбца
StringGrid1.cells[2,0]:='s'; //
задает подпись столбца
StringGrid1.cells[3,0]:='y'; //
задает подпись столбца
StringGrid1.cells[0,i]:=inttostr(i);
// нумерует строки
таблица
StringGrid1.cells[1,i]:=floattostr(x);
//выводит x
StringGrid1.cells[2,i]:=FloatToStr(Round(s*exp(10*ln(10)))/(exp(10*ln(10))));
// выводит y
StringGrid1.cells[3,i]:=FloatToStr(Round(y*exp(10*ln(10)))/(exp(10*ln(10))));
// выводит s
Form3.Grafik.SeriesList[0].AddXY(x,ln(x),'',clRed);
// строит график
procedure
TForm2.Button3Click(Sender: TObject);
form3.ShowModal; //показывает форму графика
Дана матрица размера n*(n+1), числа а 1 , …, а n +1 , b 1 , …, b n +1 , натуральные числа р, g (p <= n, g <= n+1). Образовать новую матрицу размера
(n+1)*(n+2) вставкой после строки с номером р данной матрицы новой
строки с элементами a 1 , …, a n +1 и последующей вставкой после столбца
с номером g нового столбца с элементами b 1 , …, b n +1 .
Во второй программе
использовались компоненты:
Edit – для ввода параметров заполнения и
вывода числовых рядов;
Button1-кнопка для заполнения числовых
рядов и массивов;
StringGrid1-таблица для вывода начального
массива a[i;j];
StringGrid2-таблица для вывода конечного
массива b[i;j];
Компоненты, которые
использовались для оформления:
Label- компонента для отображения текста.
Windows,
Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
procedure
Button1Click(Sender: TObject);
procedure
Button2Click(Sender: TObject);
procedure
TForm4.Button1Click(Sender: TObject);
mas1,mas,mas2:array[1..100,1..100]
of integer;
a[i]:=random(98)+1; // формируем значения первого
числового ряда
edit4.Text:=edit4.Text+inttostr(a[i])+' '; //
выводим значения первого числового ряда
b[i]:=random(98)+1;
// формируем значения второго числового ряда
edit5.Text:=edit5.Text+inttostr(b[i])+' '; //
выводим значения второго числового ряда
// задаем количество сток
и столбцов таблиц
stringgrid1.Cells[0,i]:=inttostr(i);
stringgrid1.Cells[i,0]:=inttostr(i);
stringgrid2.Cells[0,i]:=inttostr(i);
stringgrid2.Cells[i,0]:=inttostr(i);
mas1[i,j]:=random(98)+1; // формируем значения
исходного массива
stringgrid1.Cells[j,i]:=inttostr(mas1[i,j]); // выводим значения исходного
массива в таблицу
// формируем
промежуточный массив вставкой строки в исходный массив
// формируем конечный
массив вставкой столбца в промежуточный массив
stringgrid2.Cells[j,i]:=inttostr(mas2[i,j]);
// выводим в таблицу конечный массив
procedure
TForm4.Button2Click(Sender: TObject);
form4.close; // закрывает форму задания №2
Движение закрашенного
круга по кромке экрана с изменением цвета при изменении направления движения.
Цикл для i от одного до конца ширин экрана
Цикл для j от одного до конца высоты экрана
Цикл для i от одного до начала ширин экрана
Цикл для j от одного до начала высоты экрана
Windows,
Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
procedure
FormClick(Sender: TObject);
procedure
FormCreate(Sender: TObject);
procedure
FormDblClick(Sender: TObject);
procedure
FormShow(Sender: TObject);
procedure
TForm7.FormClick(Sender: TObject); //движении круга по экрану
for i:=1 to
screen.Width-r do // пока не достигнут конец экрана
form7.Color:=clGreen;
//задаем форме зеленый цвет
form7.Left:=i;
//задаем отступ формы слева
for j:=1 to
screen.Height-r do // пока не достигнут низ экрана
form7.Color:=clRed; // задаем форме красный цвет
form7.Top:=j; //задаем отступ сверху
for i:=screen.Width-r downto 1 do //
пока не достигнуто начало экрана
form7.Color:=clBlue; // задаем форме синий цвет
form7.Left:=i; // задаем отступ слева
for
j:=screen.Height-r downto 1 do // пока не достигнут верх экрана
form7.Color:=clYellow;
// задаем форме желтый цвет
form7.Top:=j;
//задаем отступ сверху
procedure
TForm7.FormCreate(Sender: TObject); // задаем
визуальную форму формы задания
№3
FormRgn:=createEllipticRgn(0,0,r,r);
SetWindowRgn(Handle,
FormRgn, True);
procedure
TForm7.FormDblClick(Sender: TObject);
procedure
TForm7.FormShow(Sender: TObject);
Для запуска курсовой
работы нужно в папке «Туктаров» двойным щелчком запустить файл «Project» с расширением .ехе. На экране
появится главное окно. На нем находятся три кнопки, каждая из которых
соответствует одному из трех заданий.
При нажатии на первую
кнопку - «Задание 1» появится форма на которой будут находиться текст задания, таблица
результатов расчета, управляющие кнопки. График строится автоматически при выполнении
расчетов. Расчеты производятся при нажатии кнопки «Старт». Для просмотра
графика необходимо воспользоваться кнопкой «График». Для возврата в основное
окно работы предназначена кнопка «Финиш».
При нажатии на вторую
кнопку - «Задание 2» на экране появится форма с полями задания значений
формирования массивов, таблицами для вывода массивов и управляющими кнопками. Заполнение
массивов в соответствии с заданием происходит по нажатии кнопки «Старт».
Возврат к основному окну предусматривает кнопка «Финиш».
При нажатии на третью
кнопку «Задание 3» на экране появляется круг. Для начала движения необходимо
кликнуть на нем. После полного оборота по экрану станет доступным возврат в основное
окно программы нажатием клавиш Alt+F4.
В данной курсовой работе
были приведены три задачи при решении которых были рассмотрены различные
управляющие структуры программирования, разные компоненты и возможности Delphi.
В первой программе было
реализовано табулирование, расчет значений функции и числового ряда и построен
график функции с помощью компоненты TChart. Эта программа может быть реализована в разных сферах экономики для
подсчета погрешности и построения графика по определенным критериям.
Во второй программе был
использован массив. Преобразуя исходный массив, был создан новый массив. Данная
программа также может применена в различных информационных сферах.
В третьей программе реализована
возможность изменения интерфейса формы при помощи стандартных функций Windows API. Данные возможности широко применяются в
мультимедийных приложениях.
Возникновение
ошибочных ситуаций при работе программы:
При запуске программы
могут возникнуть ошибочные ситуации. Например, если в первом задании нажать
кнопку просмотра графика до выполнения расчета, то график будет пустым. Также
могут возникнуть ошибки при задании параметров вычисления.
Во втором задании к
ошибке может привести попытка сформировать массивы без задания их величины.
В третьем задании
существует недостаток невозможности остановить движения круга до прохождения
полностью экрана, а также может возникнуть ошибка при попытке использовать
основную форму программы без закрытия формы задания 3.
1.
Архангельский А. Я.
Программирование в Delphi г. Москва:
издательство «Бином», 2005г. – 332 с.;
2.
Ахметов А. Р.
Программирование в Delphi 7 .
г.Москва: издательство «Бином-Пресс», 2003 г. – 780 с.;
3.
Бобровский С.И. Delphi7 – Учебный курс. г. Санкт-Петербург:
издательство «Питер», 2004 г. – 736 с.;
4.
Глушаков С. В. Delphi 2007 г. Москва: издательство «Хранитель», 2008 г. – 635 с.;
5.
Жуков А. В. Изучаем Delphi. г. Санкт-Петербург: издательство
«Питер», 2001 г. – 352 с.;
6.
Маслобоев А. В. Delphi г. Санкт-Петербург: издательство
«БХВ-Петербург», 2005 г. – 496 с.;
7.
Стивенс Р.А. Delphi. Готовые алгоритмы. г. Москва:
издательство «ДМК пресс», 2001 г. – 384 с.;
8.
Фаронов В. В. Delphi. Программирование на языке высокого
уровня г. Санкт-Перетбург: издательство «Питер», 2007 г. – 640 с.;
9.
Хузятов Ш. Ш. Delphi 7. Основные компоненты и элементы
языка программирования г. Набережные Челны: издательство КамПИ, 2005г. – 116 с.;
Похожие работы на - Программирование на Delphi с алгоритмами и кодами Курсовая работа (т). Информационное обеспечение, программирование.
Статья На Тему Кандидоз
Реферат: Проблема надлюдини у філософії
Дипломная работа по теме Проект по производству батона подмосковного
Сочинение: Гоголь н. в. - Образ тараса бульбы воплощение ратного духа запорожцев
Отчет по практике по теме Анализ основных технико-экономических показателей деятельности ООО 'Плес'
Курсовая работа по теме Построение модели прогнозирования валютных курсов EUR/USD, GBP/USD и USD/RUB
Подземные стоки и их значение в развитии современных природных комплексов
Курсовая работа по теме Монтаж многоэтажного каркасного здания
Контрольная работа по теме Комплекс маркетингових комунікацій на прикладі ЗАТ "Борщагівський хіміко-фармацевтичний завод"
Дипломная работа: Дени Дидро и художественная культура Франции XVIII века
Реферат Образец Утэк
Реферат по теме Правовое регулирование лизинга
Части Сочинения Для Начальной Школы
Гражданско Правовые Отношения Курсовая
Сочинение На Тему Красота Природы 4 Класс
Курсовая работа по теме Профессиональное и личностное самоопределение в юношеском возрасте
Курсовая работа по теме Работа в командах
Исследовательский Проект Реферат
Отчет По Практике Операционная Деятельность В Логистике
Сочинение по теме Сообщение-доклад по произведению И.С. Тургенева "Накануне"
Реферат: Метод быстрого реагирования в логистике
Похожие работы на - Ничтожные и оспоримые сделки в практике предпринимательства
Реферат: По обе стороны спама