Решение вычислительных задач и создание компонентов 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 Постановка задачи
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 с.