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

Размещено на http://www.allbest.ru/

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

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

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

Содержание

1.Введение

• 2. Задача № 1
• 2.1 Условие задачи
• 2.2 Анализ задачи
• 2.3 Блок-схема для программы№1
• 2.4 Листинг программы
• 2.5 Тестирование программы на работоспособность
• 3. Задача № 2
• 3.1 Условие задачи
• 3.2 Анализ задачи
• 3.3 Блок-схема программы №2
• 3.4 Листинг программы
• 3.5 Тестирование программы на работоспособность
• 6. Заключение
• 7. Список использованной литературы
• 1. Введение
• Delphi -объектно-ориентированный язык программирования. Первая версия продукта явилась результатом разработки, которая велась компанией в обстановке строжайшей секретности в течение двух с половиной лет.
• Можно отметить, что к моменту выхода продукта обстановка вокруг компании 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
• 2.1 Условие задачи
• Целой переменной s присвоить сумму цифр трёхзначного целого числа k.
• 2.2 Анализ задачи.
• s:=(k div 100) + ((k mod 100) div 10) + (k mod 10)
• s - сумма,
• k - исходное число,
• div - целочисленное деление,
• mod - остаток от деления.
• 2.3 Блок-схема для задачи №1
• 2.4 Листинг программы
• unit Unit1;
• interface
• uses
• Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
• Dialogs, StdCtrls, Mask;
• type
• TForm1 = class(TForm)
• MaskEdit1: TMaskEdit;
• Label1: TLabel;
• Button1: TButton;
• Label2: TLabel;
• Edit1: TEdit;
• procedure Button1Click(Sender: TObject);
• private
• { Private declarations }
• public
• { Public declarations }
• end;
• var
• Form1: TForm1;
• implementation
• {$R *.dfm}
• procedure TForm1.Button1Click(Sender: TObject);
• var k, s: integer;
• begin
• k:=StrToInt(MaskEdit1.Text);
• s:=(k div 100) + ((k mod 100) div 10) + (k mod 10);
• Edit1.Text:=IntToStr(s);
• end; end.
• 2.5 Тестирование программы на работоспособность
• 3. Задча № 2.
• 3.1 Постановка задачи
• Числа Фибоначчи (fn) определяются формулами
• f0=f1=1; fn=fn-1+fn-2 при n=2, 3, . . .
• Определить 40-е число Фибоначчи.
• 3.2 Анализ задачи
• Задаем 2 первых числа последовательности и в цикле вычисляем очередное число по заданной формуле.
• 3.3 Блок-схема программы №2
• 3.4 Листинг программы
• unit Unit1;
• interface
• uses
• Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
• Dialogs, StdCtrls;
• type
• TForm1 = class(TForm)
• Edit1: TEdit;
• Label1: TLabel;
• Button1: TButton;
• Label2: TLabel;
• Edit2: TEdit;
• procedure Button1Click(Sender: TObject);
• private
• { Private declarations }
• public
• { Public declarations }
• end;
• var
• Form1: TForm1;
• implementation
• {$R *.dfm}
• procedure TForm1.Button1Click(Sender: TObject);
• var i, k, f0, f1, f: integer;
• begin
• k:=StrToInt(Edit1.Text);
• f0:=1; f1:=1;
• for i:=2 to k do
• begin
• f:=f0+f1;
• f0:=f1;
• f1:=f;
• end;
• Edit2.Text:=IntToStr(f1);
• end;
• end.
• 3.5 Тестирование программы на работоспособность
• 6. Заключение
• В результате работы над курсовой работой получил теоретические основы объектно-ориентированного языка программирования Delphi, познакомился со средой визуального проектирования приложений, с современной проблематикой теории программирования и методами проектирования программ, а так же практические навыки разработки приложений в среде Delphi.
• delphi программирование приложение
• 7. Список использованной литературы.
• 1. Истомин Е.П. Программирование на языках высокого уровня:
• учебник / Е.П. Истомин, С.Ю. Неклюдов. - СПб.: Изд-во Михайлова В.А.,
• 2009. - 719 с. 2. Тюкачёв Н. [и др.] Программирование в Delphi для начинающих.
• - СПб.: БХВ-Петербург, 2010. - 672 с.
• 3. Поган А.М. Delphi. Руководство программиста. - М.: Эксмо,
• 2006. - 480 с.
• 4. Архангельский А.Я. Delphi 7: Справочное пособие. - М.: Бином-
• Пресс, 2009. - 1024 с.
• 5. Фаронов В.В. Delphi. Программирование на языке высокого
• уровня: учебник для вузов. - СПб.: Питер, 2012. - 640 с.
• Размещено на Allbest.ru