програмування, характерну для мов 4GL, а з іншого боку ефективність мови 3GL. Програмісти негайно можуть почати виробляти працюючі додатки, і їм не доведеться для цього вивчати особливості програмування подій в Windows. Delphi повністю підтримує передові програмні концепції включаючи інкапсуляцію, успадкування, поліморфізм і керування подіями.
У даному звіті наведені результати курсової роботи з програмування в середовищі Delphi. Під час цієї роботи було реалізовано рішення поставлених завдань з використанням ЕОМ. p align="justify"> У звіті представлені: постановка завдання, лістинг програми, схема алгоритму реалізації, докладний опис рішення поставлених завдань.
2. Рішення поставленої задачі
.1 Поставлені завдання
1. Цілої змінної s присвоїти суму цифр тризначного цілого числа k. p align="justify">. Числа Фібоначчі (fn) визначаються формулами f0 = f1 = 1; fn-1 + fn-2 при n = 2,3 ... Визначити 40-е число Фібоначчі. p align="justify"> Для вирішення поставлених завдань використовувався мова програмування Object Pascal. Програми написані з використанням багатьох функцій, процедур і компонентів Delphi. br/>
.2 Реалізація поставлених завдань
.2.1 Завдання № 1
Цілою змінної s присвоїти суму цифр тризначного цілого числа k.
Для вирішення даної задачі необхідно написати програму яка знаходила б кількість сотень, десятків і одиниць тризначного числа, і вважала їх суму. p align="justify"> Приступимо до створення форми. Зовнішній вигляд форми, що відповідає за створення інтерфейсу користувача для вирішення завдання, наведено на рис.1
В
Рис. 1. Інтерфейс програми
На формі розташуємо окнa редагування Edit1, Edit2. За допомогою Label1, Label2 пояснюються вікна редагування: В«Введіть число kВ», В«SВ». При натисканні на кнопку Button1 В«ОбчислитиВ» організовується захоплення події "Натискання кнопки", при якому відбувається обробка інформації, введеної у вікно Edit1. У результаті вікно Edit2 виводить результат роботи програми. Натискання на кнопку Bitbtn1 "Close" дозволяє перервати виконання програми. p align="justify"> Блок-схема алгоритму розв'язання задачі № 1 наведена на малюнку 2:
Рис.2. Блок-схема алгоритму розв'язання задачі № 1
У блоці 1 вводиться змінна. У блоці 2 відбувається обчислення суми. У блоці 3 відбувається виведення результату. p align="justify"> Роздруківка процедури приведена в лістингу 1:
Лістинг 1
procedure TForm1.Button1Click (Sender: TObject);: = StrToInt (Edit1.Text);: = k div 100 + k div 10 mod 10 + k mod 10;: = IntToStr (s); . Text: = ResultStr;;
