84807

Разработка программы на языке Free Pascal

Курсовая

Информатика, кибернетика и программирование

Цель работы: разработать программы на языке Free Pascal. Данные программы должны решать математическую формулу с использованием нестандартных функций, находить значение определенного интеграла и находить максимум и минимум функции.

Русский

2015-03-22

280 KB

1 чел.

PAGE  16

Оглавление

[1] Оглавление

[2]         
Введение

[3]
1. Анализ технического задания и постановка задачи проектирования

[4]
2. Разработка алгоритма программы

[5] 3. Описание программ

[6] 4. Инструкция оператору

[7] В данном окне пользователь вводит значения всех переменных. После заполнения всех полей и нажатия клавиши Enter программа выдает значения:

[8] Для завершения данной программы необходимо нажать клавишу Enter

[9]
ЗАКЛЮЧЕНИЕ

[10]
Приложение А

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

[12] Код программы №1

[13] end.

[14] Код программы №2

[15] end.

[16] Код программы №3

[17] end.
Приложение В

        
Введение

Цель работы: разработать программы на языке Free Pascal. Данные программы должны решать математическую формулу с использованием нестандартных функций, находить значение определенного интеграла и находить максимум и минимум функции.

В первом разделе курсовой работы выполнен анализ технического задания, выделены функции, которыми должны обладать разрабатываемые программы, а также сформулированы требования к ним. Во втором разделе выполняется анализ задачи проектирования, анализируется вид исходных данных, приводится словесный алгоритм работы программы. В третьем разделе рассматриваются алгоритмы разработанных процедур и функций, а также приводятся их описания. К реализованной программе разработана инструкция пользователя, которая приведена в четвертом разделе.

Данный курсовой проект был разработан в среде Free Pascal. Среди множества языков он является наиболее легко изучаемым языком. При этом его удобно использовать для создания различных приложений.


1. Анализ технического задания и постановка задачи проектирования

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

Дадим определение понятиям, которые используются в данной работе. Определим следующие понятия: модуль, функция.

В данном случае для удобства вычислений будет использоваться тип данных REAL(число с плавающей точкой - форма представления вещественных (действительных) чисел, в которой число хранится в форме мантиссы и показателя степени).

Под модулем будет пониматься ряд стандартных модулей представленных в Free Pascal.

Функция - это правило, по которому каждому элементу одного множества (называемого областью определения) ставится в соответствие некоторый элемент другого множества (называемого областью значений).

Поскольку данные программы являются приложениями Windows, то для их реализации будем использовать стандартный подход при написании программ под Windows.

Разработку всех программ можно разбить на 3 этапа.:

  1.  Составление алгоритма, перевод формул в формат понятный Free Pascal и определение всех возможных значений, которые могут принять переменные.
  2.  Разработка структуры программ с улучшением удобности принятия данных и их выводом.
  3.  Подготовка тестовых исходных данных и отладка программы.

На первом этапе необходимо продумать все варианты хода решения программ, путем составления подробных алгоритмов и последующего создания блок-схем. Также необходимо преимущественно оценить значения которые могут принять переменные и в зависимости от этого продумать структуру программы.

При выполнении второго этапа следует учитывать необходимость пояснения пользователю производимых операций, а также упрощения понимания выводимых данных. Для этого необходимо в коде программы предусмотреть строки, выводимы пользователю при запуске программы и произведения тех или иных действий. Дополнительно при выводе переменных поставить ограничение на длину выводимого числа.

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

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

Программы должны быть реализована в среде Free Pascal и должны выполнять следующие функции:

– запрашивать начальные значения переменных;

– проверять начальные данные;

– выполнять вычисления по заданным формулам;

– выводить конечные значения;

Последующие разделы будут посвящены решению поставленных задач и разработке приложений с вышеперечисленными функциями.


2. Разработка алгоритма программы

В предыдущем разделе было сказано, что процесс решения поставленной задачи разбивается на 3 этапа, первый из которых заключается в составлении алгоритма.

В связи с требованиями, приведенными выше можно составить словестный алгоритм программы:

  1.  Запустить скомпилированный *.exe файл программы
  2.  Запросить начальные данные у пользователя:
    1.  Проверить возможность данных;
    2.  Провести вычисления;
  3.  Вывести полученное значение:
  4.  При нажатии «Enter» закрыть программу.

3. Описание программ

В программах могут использоваться переменные типа integer или real. Так как при подсчете формул значения чаще всего получаются нецелыми, проще использовать переменные типа real.

В первой программе необходимо запросить у пользователя значения двух переменных: x и a. Затем с помощью введенной формулы произвести подсчет y. В конце программы необходимо в удобной для пользователя форме вывести значение, полученное в формуле.

Во второй программе необходимо запросить у пользователя значения переменных: a,b,x. Затем с помощью формулы определенного интеграла подсчитать S. В конце программы необходимо в удобной для пользователя форме вывести значение, полученное в формуле.

В третьей программе необходимо запросить у пользователя значение переменной x, а также начало и конец интервала на котором находится Max и Min. Затем с помощью введенной формулы произвести подсчет y, Max и Min. В конце программы необходимо в удобной для пользователя форме вывести значения Max и Min.

4. Инструкция оператору

При запуске программы оператор видит следующее окно:

В данном окне пользователь вводит значения всех переменных. После заполнения всех полей и нажатия клавиши Enter программа выдает значения:

Для завершения данной программы необходимо нажать клавишу Enter


ЗАКЛЮЧЕНИЕ

Данный курсовой проект был выполнен в полном соответствии поставленному заданию и отлажен в среде Free Pascal. В ходе выполнения курсовой работы были разработаны программы для того, чтобы решать математическую формулу с использованием нестандартных функций, находить значение определенного интеграла и находить максимум и минимум функции. Данные программы могут использоваться для автоматизации математических расчетов.

В качестве дальнейшего развития возможна доработка программ с целью создания удобного графического интерфейса.


Приложение А

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

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

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


Приложение Б

Код программы №1

uses math;

label ext;

var

       a,x,y:real;

begin

       writeln('Vvedite x');

       readln(x);

       writeln('Vvedite a');

       readln(a);

       if x<0 then

       goto ext

       else

       y:=sqrt(sqrt(x-a))*sinh(x)+cosh(x);

       writeln(y:2:2);

       ext: writeln('x need be more 0');

       readln;

end.

Код программы №2

label 1,2,3,4;

var

       a,b:integer;

       s,fa,fb,f:real;

begin

       write('ot:');

       read(a);

       writeln();

       write('do:');

       read(b);

       fb:=(exp(ln(2)*b)/ln(2))+(exp(ln(3)*b)/ln(3));

       fa:=(exp(ln(2)*a)/ln(2))+(exp(ln(3)*a)/ln(3));

       if a<0 then

       if b>0 then

       goto 1

       else

       goto 2

       else

       if b>0 then

       goto 3

       else

       goto 4;

       1: f:=fb+fa;

       writeln(f:1:1);

       2: f:=fa-fb;

       writeln(f:1:1);

       3: f:=fb-fa;

       writeln(f:1:1);

       4: f:=fb+fa;

       writeln('-',f:1:1);

       readln;

       readln;

end.

Код программы №3

function f(x:real):real;

begin

       f:=x*sqrt(exp(ln(x-1)*3))-2;

end;

label ex,ext;

var

       x,y,a,b,max,min:real;

begin

       write('Start:');

       readln(a);

       write('End:');

       readln(b);

       if a=1 then

               goto ex

       else

       max:=f(a);

       min:=max;

       x:=a+1;

       while x<=b do

       begin

               x:=x+1;

               y:=f(x);

               if y>max then max:=y;

               if y<min then min:=y;

       end;

       writeln('Min=',min:3:3);

       writeln('Max=',max:3:3);

       goto ext;

       ex: writeln('a can not be 1');

       readln;

       ext: readln;

end.
Приложение
 В

Скриншот работы программы №1

Скриншот работы программы №2

Скриншот работы программы №3


 

А также другие работы, которые могут Вас заинтересовать

85332. Психолого-педагогічні основи розвитку і освіти дітей зі складним дефектом 37.31 KB
  Залежно від структури порушення діти з поєднаними порушеннями поділяються на три основні групи. У першу входять діти з двома вираженими психофізичними порушеннями кожне з яких може викликати аномалію розвитку: сліпоглухих діти розумово відсталі глухі слабочуючі із затримкою психічного розвитку первинної. У другу групу мають одне істотне психофізичний порушення провідне і супутнє йому інше порушення виражене в слабкому ступені але помітно обтяжлива хід розвитку: розумово відсталі діти з невеликим зниженням слуху. У третю групу...
85333. Причини порушень слуху 41.95 KB
  Стійкі порушення слуху у дітей можуть бути вродженими і набутими. Висновок про природжений або набутий характер порушення слуху робиться зазвичай на підставі відомостей отриманих зі слів батьків а ці відомості часто виявляються досить неточними. З іншого боку нерідко дійсно вроджене порушення слуху залишається протягом декількох місяців а іноді років нерозпізнаним а коли воно виявляється то приписується якомусь випадковому захворювання або травмі що мали місце незадовго до виявлення дефекту слуху.
85334. Поняття про складне порушення розвитку 38.45 KB
  У літературі та практиці на даний час не встановилася єдина термінологія одні й ті ж порушення можуть бути названі і складними і комплексними і множинними. Порушення розвитку може бути ізольованим одиничним або складним множинним. Одиничне порушення це порушення якоїсь однієї системи організму.
85335. Прояви порушення вищих психічних функцій при ДЦП 44.98 KB
  У цих дітей рухові розлади поєднуються з психічними та мовними порушеннями і вони потребують психологопедагогічної та логопедичної корекції. Інші вищеназвані категорії дітей з порушеннями опорнорухового апарату як правило не мають порушень пізнавальної діяльності і не вимагають спеціального навчання і виховання. Порушення опорнорухового апарату можуть бути наслідком поліомієліту різних вроджених і набутих деформацій рухового апарату ряду спадкових і вроджених захворювань.
85336. Вплив порушення зору на формування особистості людини-інваліда. 49.76 KB
  Тіфлопсіхологіі як розділ спеціальної психології що вивчає психічний розвиток осіб з порушенням зору отримала свою назву від грецького tiphlos сліпий і спочатку займалася лише психологією сліпих. 81] В даний час обєктом вивчення тіфлопсіхологіі є не тільки сліпі але й особи що мають глибокі порушення зору. Тіфлопсіхологіі вивчає закономірності та особливості розвитку осіб з порушенням зору формування компенсаторних процесів що забезпечують відшкодування недоліків інформації повязаних з порушенням діяльності зорового аналізатора...
85337. Визначення поняття «дитячий церебральний параліч» 39.89 KB
  Вони виникають з самого народження дитини і існують протягом усього життя. Головною причиною ДЦП вважається гіпоксія нестача кисню або ядуха дитини в утробі матері або відразу після народження. Хоча в більшості випадків тяжкість родів визначається вже наявними порушеннями внутрішньоутробного розвитку дитини. Після пологів спровокувати недуга може і гемолітична хвороба новонароджених так звана ядерна жовтяниця при якій відбувається інтоксикація головного мозку дитини.
85338. Діагностика порушень зору 38.28 KB
  Діагностика порушень зору процедура необхідна для кожної людини. В ідеалі діагностику порушень зору необхідно проходити раз на рік для того щоб своєчасно встигнути виявити захворювання на початковому етапі його розвитку. Діагностика порушень зору передбачає аналіз здатності людського ока чітко розглядати обєкти розташовані у видаленні та поблизу від очей а також дається оцінка полю зору і здатності розрізняти кольори.
85339. Соціально-психологічні особливості людини з порушеннями роботи внутрішніх органів 38.6 KB
  Розкриваючи соціальнопсихологічні особливості людини з порушеннями роботи внутрішніх органів зупинимося на таких соматичних захворюваннях: цукровий діабет онкологічні захворювання та бронхіальна астма. Цукровий діабет Цукровий діабет ендокринне захворювання обумовлене абсолютною або відносною інсуліновою недостатністю що приводить до порушення всіх видів обміну речовин перш за все вуглеводного ураження судин нервової системи а також інших органів і тканин. Причинами виникнення цукрового діабету можуть бути порушення центральної...
85340. Психологічні проблеми сімейного виховання дітей з обмеженими можливостями 37.62 KB
  У звязку зі станом дитини змінюється поведінка дорослих у родині виникають проблеми з якими батьки не можуть упоратися самостійно: порушується взаємодія із соціальним оточенням; коло спілкування становлять близькі родичі спеціалісти; виражена тривога і неспокій батьків викликані відставанням дитини в розвитку від однолітків; відсутність необхідних знань з психології і педагогіки аномальної дитини; відсутність досвіду роботи з психологом на ранніх етапах розвитку дитини; пасивність позиції матері у відносинах фахівець мати дитина ....