Решение вычислительных задач и создание компонентов Delphi

 














Курсовая работа

по дисциплине: Программирование и основы алгоритмизации

Решение вычислительных задач и создание компонентов Delphi


Содержание


.Введение

2. Задача № 1

2.1 Условие задачи

2.2 Анализ задачи

2.3 Блок-схема для программы№1

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

2.5 Тестирование программы на работоспособность

3. Задача № 2

3.1 Условие задачи

3.2 Анализ задачи

3.3 Блок-схема программы №2

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

3.5 Тестирование программы на работоспособность

6. Заключение

. Список использованной литературы


1. Введение

-объектно-ориентированный язык программирования. Первая версия продукта явилась результатом разработки, которая велась компанией в обстановке строжайшей секретности в течение двух с половиной лет.

Можно отметить, что к моменту выхода продукта обстановка вокруг компании Borland складывалась не лучшим для нее образом. Поговаривали о возможной перепродаже компании, курс акций компании неудержимо катился вниз. Далее дела пошли лучше. Hе верно, конечно, было бы говорить, что только Delphi явился причиной восстановления компании; кроме Delphi, у Borland появились и другие продукты, так же, как и Delphi, основывающиеся на новых, на тот момент, технологиях: BDE 2.0, BC++ 4.5, Paradox for Windows 5.0, dBase for Windows 5.0, BC++ 2.0 for OS/2. На данный момент используются более новые версии данных продуктов.


2. Задача № 1


.1 Условие задачи


Целой переменной s присвоить сумму цифр трёхзначного целого числа k.


.2 Анализ задачи.


s:=(k div 100) + ((k mod 100) div 10) + (k mod 10)

- сумма,- исходное число,- целочисленное деление,- остаток от деления.


.3 Блок-схема для задачи №1


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


unit Unit1;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, StdCtrls, Mask;= class(TForm): TMaskEdit;: TLabel;: TButton;: TLabel;: TEdit;Button1Click(Sender: TObject);

{ Private declarations }

{ Public declarations };: TForm1;

{$R *.dfm}TForm1.Button1Click(Sender: TObject);k, s: integer;:=StrToInt(MaskEdit1.Text);:=(k div 100) + ((k mod 100) div 10) + (k mod 10);.Text:=IntToStr(s);; end.


.5 Тестирование программы на работоспособность



3. Задча № 2.


.1 Постановка задачи


Числа Фибоначчи (fn) определяются формулами

0=f1=1; fn=fn-1+fn-2 при n=2, 3, . . .


Определить 40-е число Фибоначчи.


.2 Анализ задачи


Задаем 2 первых числа последовательности и в цикле вычисляем очередное число по заданной формуле.


3.3 Блок-схема программы №2



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

Unit1;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, StdCtrls;= class(TForm): TEdit;: TLabel;: TButton;: TLabel;: TEdit;Button1Click(Sender: TObject);

{ Private declarations }

{ Public declarations };: TForm1;

{$R *.dfm}TForm1.Button1Click(Sender: TObject);i, k, f0, f1, f: integer;:=StrToInt(Edit1.Text);:=1; f1:=1;i:=2 to k do:=f0+f1;:=f1;:=f;;.Text:=IntToStr(f1);

end;.


3.5 Тестирование программы на работоспособность



6. Заключение


В результате работы над курсовой работой получил теоретические основы объектно-ориентированного языка программирования Delphi, познакомился со средой визуального проектирования приложений, с современной проблематикой теории программирования и методами проектирования программ, а так же практические навыки разработки приложений в среде Delphi.

delphi программирование приложение

7. Список использованной литературы.


1. Истомин Е.П. Программирование на языках высокого уровня:

учебник / Е.П. Истомин, С.Ю. Неклюдов. - СПб.: Изд-во Михайлова В.А.,

. - 719 с. 2. Тюкачёв Н. [и др.] Программирование в Delphi для начинающих.

- СПб.: БХВ-Петербург, 2010. - 672 с.

. Поган А.М. Delphi. Руководство программиста. - М.: Эксмо,

. - 480 с.

. Архангельский А.Я. Delphi 7: Справочное пособие. - М.: Бином-

Пресс, 2009. - 1024 с.

. Фаронов В.В. Delphi. Программирование на языке высокого

уровня: учебник для вузов. - СПб.: Питер, 2012. - 640 с.


Курсовая работа по дисциплине: Программирование и основы алгоритмизации Решение вычислительных задач и

Больше работ по теме:

КОНТАКТНЫЙ EMAIL: [email protected]

Скачать реферат © 2017 | Пользовательское соглашение

Скачать      Реферат

ПРОФЕССИОНАЛЬНАЯ ПОМОЩЬ СТУДЕНТАМ