Курсова робота
з дисципліни: Програмування та основи алгоритмізації
Рішення обчислювальних завдань і створення компонентів 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 =f 1 = 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. Істомін Є.П. Програмування на мовах високого рів...
