Розробка програм засобами мов програмування Pascal та C++

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

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

Зміст

Вступ

Розділ 1. Мова програмування С++

1. 1 Опис мови програмування

1.2 Прості та умовні оператори мови С++

1.3 Організація циклів

1.4 Одновимірні масиви

1.5 Робота з двовимірними масивами. Пошук та сортування даних

1.6 Структури в мові С++. Робота з файлами

1.7 Робота з динамічними структурами даних

Розділ 2. Мова програмування Delphi

2.1 Опис мови програмування Delphi

2.2 Розробка програмного продукту «Анкета студента»

2.3 Розробка програмного продукту «Проста програма»

2.4 Розробка програмного продукту «Проста програма»

2.5 Розробка програмного продукту «Обмін валюти»

2.6 Завдання для самостійної роботи

2.7 Задача про суму ряду

2.8 Задача про min/max функції

2.9 Задача табулювання функції

Вступ

Метою навчальної практики є закріплення теоретичного матеріалу, отриманого при вивченні спеціальних дисциплін програмування, одержання практичних навичок розробки програмного забезпечення за допомогою сучасних систем розробки, набуття практичних навичок розробки програм засобами мов програмування Pascal та C++, застосування теоретичних знань при освоєнні системи швидкої розробки програмного забезпечення Borland Delphi.

В процесі проходження практики нам потрібно розробити алгоритми розв'язування поставлених задач, скласти програми до розроблених алгоритмів, занотувати тексти програм та результати їх виконання.

Перший розділ присвячено розв'язуванню задач за допомогою мови програмування С++. Програми розроблені в середовищі програмування Microsoft Visual Studio. В другому розділі описані практичні роботи, виконані в середовищі Delphi. Третій розділ містить завдання на мові програмування Pascal. Для розв'язування задач третьої частини практики нам було дано право вибору середовища програмування: Borland Pascal або Delphi, я вирішив обрати для розробки програм середовище візуального програмування, оскільки воно дає можливість більш наочно продемонструвати реалізацію алгоритмів.

Четвертий розділ присвячено питанням охорони праці при роботі з персональним комп'ютером.

Розділ 1. Мова програмування С++

1.1 Опис мови програмування

C++ -- мова програмування високого рівня з підтримкою декількох парадигм програмування: об'єктно-орієнтованої, узагальненої та процедурної. Розроблена Б'єрном Страуструпом в AT&T Bell Laboratories (Мюррей-Хілл, Нью-Джерсі) у 1979 році та названа «Сі з класами». Страуструп перейменував мову у C++ у 1983 р. Базується на мові С.

У 1990-х роках С++ стала однією з найуживаніших мов програмування загального призначення. Мову використовують для системного програмування, розробки програмного забезпечення, написання драйверів, потужних серверних та клієнтських програм, а також для розробки розважальних програм таких як відео ігри. С++ суттєво вплинула на інші, популярні сьогодні, мови програмування: С# та Java.

При створенні С++ прагнули зберегти сумісність з мовою С. С++ має синтаксис, заснований на синтаксисі С.

Нововведеннями С++ порівняно з С є:

– підтримка об'єктно-орієнтованого програмування через класи;

– підтримка узагальненого програмування через шаблони;

– доповнення до стандартної бібліотеки;

– додаткові типи даних;

– обробка винятків;

– простори імен;

– вбудовані функції;

– перевантаження операторів;

– перевантаження імен функцій;

– посилання і оператори управління вільно розподіленою пам'яттю.

1.2 Прості та умовні оператори мови С++

Завдання 1. Лінійні алгоритми.

Написати програму для розрахунку формул. Результати обчислень повинні співпадати. Відсутні в мові програмування математичні функції виразити через стандартні математичні функції.

z₁=;

z₂=.

файл програма delphi алгоритм

Блок - схема алгоритму розв'язування задачі зображена на рисунку 1.1

Рисунок 1.1

Текст програми

Результат виконання

Рисунок 1.2 - Результати виконання завдання 1

Завдання 2. Розгалужені обчислювальні процеси.

1. Написати програму, яка по введеному значенню аргументу визначає значення функції, заданої у вигляді графіка.

Рисунок 1.3 - Графік до завдання 2

Математична постановка задачі

Даний графік складається з 4 областей:

y=

1) y=3 - рівняння прямої паралельна осі Ох;

2)y= - рівняння півкола з радіусом 3;

3) - рівняння прямої з кутовим коефіцієнтом;

k - тангенс кута b - це число яке відтіняє пряма на Ох;

Блок - схема алгоритму розв'язування задачі зображена на рисунку 1.4

Рисунок 1.4

Текст програми

Результат виконання

Рисунок 1.5 - Результати виконання завдання 2

Завдання 3. Написати програму, яка визначає, чи попадає точка з заданими координатами в область, замальовану на малюнку сірим кольором. Результат роботи вивести у вигляді текстового повідомлення.

Рисунок 1.6 - Графік до завдання 3

Математичний аналіз

Дано дві фігури перша - чверть кола, друга трикутник. Рівняння кола з радіусом задається х²+у²=R², а оскільки фігура знаходиться в першій чверті то всі у-ки та х-си додатні.

Друга фігура прямокутний трикутник у 3 чверті, значить х-си та у-ки від'ємні, а гіпотенуза служить діагоналлю квадрата з вершинами -R, рівняння якої служить D=*R

Блок - схема алгоритму розв'язування задачі зображена на рисунку 1.7

Рисунок 1.7

Текст програми

Результат виконання

Рисунки 1.8 - Результати виконання завдання 3

1.3 Організація циклів

Завдання 1. Обчислити та вивести на екран у вигляді таблиці значення функції, заданої графічно (див. завдання 2.1, заняття 1), на інтервалі від х_поч до х_кін з кроком dx. Інтервал та крок задати таким чином, щоб перевірити всі гілки програми (продумати та продемонструвати контрольний приклад).



Рисунок 1.9 - Графік до завдання 3

Текст програми

Табулювання функції - це обчислення значень функції при зміні аргументу від деякого початкового значення до деякого кінцевого значення з певним кроком.

Блок - схема алгоритму розв'язування задачі зображена на рисунку 1.10



Рисунок 1.10

Результат виконання:

Рисунок 1.11 - Результати виконання завдання 1

Завдання 2. Для десяти вистрілів, координати яких задаються з клавіатури, вивести текстові повідомленні про попадання в мішень з завдання 2.2 день1. Кожне попадання дає 10 балів, суму балів вивести в останньому повідомленні.

Текст програми

Блок - схема алгоритму розв'язування задачі зображена на рисунку 1.12

Рисунок 1.12

Результат виконання

Рисунок 1.13 - Результати виконання завдання 2

Завдання 3. Обчислити та вивести на екран у вигляді таблиці значення функції заданої з допомогою ряда Тейлора від х_поч до х_кін з кроком dx та з точністю . Кожен рядок таблиці повинен містити значення функції, значення аргументу та кількість просумованих членів ряду.

Блок - схема алгоритму розв'язування задачі зображена на рисунку 1.14

Рисунок 1.14

Текст програми та результат виконання:

Рисунок 1.15 - Результат виконання завдання 3

1.4 Одновимірні масиви

Завдання. В одновимірному масиві що містить n цілих елементів(ввід з клавіатури), обчислити:

1) номер максимального елементу;

2) добуток елементів масиву, розташованих між першим та другим нульовими елементами.

Перетворити масив таким чином, щоб на початку розмістились всі непарні елементи, а за ними всі парні.

Текст програми



Результат виконання:

Рисунок 1.16 - Результати виконання завдання

Між двома нулями знаходяться числа 3,4,5. Добуток цих чисел дорівнює 60, максимальний елемент дорівнює 8. Спочатку виводяться непарні елементи, а потім парні елементи.

Блок - схема алгоритму розв'язування задачі зображена на рисунку 1.17

Рисунок 1.17

1.5 Робота з двовимірними масивами. Пошук та сортування даних

Завдання.

1. Для заданої матриці 4х4 знайти такі k, для яких k-ий рядок співпадає з k-им стовпцем.

2. Знайти суму елементів в тих рядках, які містять хоча б один від'ємний елемент (оформити у вигляду функції).

Блок - схема алгоритму розв'язування задачі зображена на рисунку 1.18



Рисунок 1.18

Опис задачі 1. Рядок може збігатись із стовпцем лише на головній діагоналі, тому якщо рядок дорівнює стовпцю і рядок дорівнює елементу, тоді вони співпадають.

Текст програми:



Результат виконання

Рисунок 1.19 - Результати виконання завдання

1.6 Структури в мові С++. Робота з файлами

Завдання. Написати програму для визначення каталогу країн світу. Створити меню за допомогою якого можна:

– ввести з клавіатури інформацію про країну;

– здійснити пошук інформації;

– впорядкувати всю інформацію по зростанню кількості жителів;

– для реалізації зберігання інформації у файл описати структуру; COUNTRY, що містить наступні поля:

– назва держави;

– столиця;

– площа території;

– кількість жителів.

Текст програми:



Результат виконання

Рисунок 1.20 - Результати виконання Рисунок

1.21 - Результати виконання (ввід з клавіатури) (пошук)



Рисунок 1.22 - Результати виконання

Рисунок 1.23 - Результати виконання завдання завдання (запис у файл) (впорядковано по зростанню кількості жителів)

1.7 Робота з динамічними структурами даних

Завдання. Написати програму для реалізації телефонного довідника. Реалізувати зберігання даних у вигляді лінійного списку. Створити меню та контроль помилок при вводі. У кожному елементі списку міститься інформація: прізвище, ім'я, по-батькові абонента, адреса, борг за міські переговори, борг за міжміські переговори, номер телефону.

Програма повинна забезпечити:

- початкове формування довідника

- вивід телефонного довідника

- вибір абонента за вказаним номером

Текст програми



Результат виконання

Рисунок 1.24 - Результати виконання



Рисунок 1.25 - Результати виконання (початкове формування довідника) (вибір абонента за вказаним номером)

Рисунок 1.26 - Результати виконання завдання (вивід телефонного довідника)

Розділ 2. Мова програмування DELPHI

2.1 Опис мови програмування Delphi

Delphi -- мова програмування, що ґрунтується на діалекті мови Pascal від компанії Borland. До версії 7.0 мала назву ObjectPascal. Окрім того Delphi - середовище розробки (IDE) для однойменної мови. Ця плутанина часто викликає непорозуміння. По суті, Delphi є об'єктно-орієнтованим розширенням мови Pascal.

Спочатку на Delphi можна було програмувати під MS Windows 3.1. Починаючи з версії 2.0 на Delphi можна створювати програми під будь-яку з 32-бітних версій MS Windows.

В 2000 році була спроба створити варіант Delphi під операційну систему на базі ядра Linux, така модифікація Delphi мала назву Kylix. Було випущено 3 версії Kylix, проте експеримент виявився невдалим і 2003 року проект був заморожений.

2003 року була створена модифікація мови під платформу Microsoft.NET, що отримала назву Delphi.NET. Цей варіант мови послідовно розвивається в версіях Delphi 8, 2005, 2006, 2007.

Частково Delphi підтримується також у відкритому проекті FreePascal, що потенційно дозволяє створювати програми під велику кількість платформ.

Для виконання практичних завдань було використано середовище розробки Embarcadero Rad Studio XE4, оскільки воно дозволяє розробляти програми на комп'ютерах з 64-бітною версією ОС Windows 8, яка була встановлена на комп'ютері.

2.2 Розробка програмного продукту «Анкета студента»

Завдання: створити форму «Анкета студента» з заданими атрибутами, в тому числі двома фотографіями, які перекривають одна одну і мають з'являтися в результаті натискання кнопки.

Конструктор форми зображено на рисунку 2.1.

Рисунок 2.1 - Конструктор форми

Результати виконання програми зображені на рисунках 2.2-2.3.

Рисунок 2.2 - Вікно робочої програми



Рисунок 2.3 - Вікно робочої програми

Як видно при натисканні на кнопку «Джабулані» на формі з'являється відповідне фото. При натисканні кнопки «Забрати фотографію» фото зникає і кнопка стає неактивною. Із іншими діями при натисканні на кнопки можна ознайомитись у програмному коді нижче.

Текст программного коду:

procedure TForm1.Button1Click(Sender: TObject);

begin

Image2.Visible:=true;

image1.Visible:=false;

image3.Visible:=false;

end;

procedure TForm1.Button4Click(Sender: TObject);

begin

image3.visible:=false;

image1.Visible:=false;

image2.Visible:=false;

button4.Enabled:=false;

end;

procedure TForm1.Button5Click(Sender: TObject);

begin

if image2.visible=true then begin

image2.Visible:=false;

image3.Visible:=false;

image1.Visible:=true;end

else

if image1.visible=true then begin

image1.Visible:=false;

image2.Visible:=false;

image3.Visible:=true; end

else

if image3.visible=true then begin

image3.Visible:=false;

image1.Visible:=false;

image2.Visible:=true;

end;

end;

end.

2.3 Розробка програмного продукту «Проста програма»

Завдання. Ввести і вивести за допомогою компонентів TLabel, TEdit, TBatton значення змінних, заданих в таблиці згідно свого варіанту.

Конструктор форми зображено на рисунку 2.4

Рисунок 2.4 - Вікно робочої програми

Результати виконання програми зображені на рисунку 2.5

Рисунок 2.5- Вікно робочої програми

Текст програмного коду кнопки «Вивід даних»:

procedure TForm1.Button1Click(Sender: TObject);

var

F,N:string;

begin

F:=Edit1.text;

N:=Edit2.text;

Label3.Caption:='F='+F;

Label4.Caption:='N='+N;

end;

2.4 Розробка програмного продукту «Проста програма»

Завдання. Створити проект, блок-схему алгоритму, діалогове вікно і програму для обчислення значень функцій:

Конструктор форми зображено на рисунку 2.6

Рисунок 2.6

Результати виконання програми зображені на рисунку 2.7-2.8

Рисунок 2.7- Вікно робочої програми

Рисунок 2.8 - Вікно робочої програми

Як видно при натисканні на кнопку «Обчислити» обчисляється значення M та N, якщо х<у, то обчислюється M та N інакше обчислюється тільки N.

Текст программного коду кнопки «Обчислити»:

procedure TForm1.Button1Click(Sender: TObject);

label 1;

var

m,n,x,y,z:real;

i:integer;

begin

x:=StrToFloat(Edit1.Text); y:=StrToFloat(edit2.Text); z:=StrToFloat(edit3.Text);

i:=1;

1: if x<=y then

begin

m:=(0.8*cos(sqr(y))+sqr(x))/(1.3+sqr(cos(sqr(y))));

Label3.Caption:='M='+FloatToStrF(m,ffFixed,7,3);

end else begin

n:=(2*(sqrt(x)*x)*z+ln(x))/(exp(x+0.2)+sqr(y)+sqr(z));

Label4.Caption:='N='+FloatToStrF(n,ffFixed,7,3);

end;

y:=0.92;

i:=i+1;

if i<=2

then goto 1; end;

2.5 Розробка програмного продукту «Обмін валюти»

Завдання: створити форму з назвою «Обмін валюти», на якій можна змоделювати операції обміну валюти в обмінному пункті.

Конструктор форми зображено на рисунку 2.9

Рисунок 2.9

Результати виконання програми зображені на рисунку 2.10-2.11

Рисунок 2.10 та 2.11- Результати, отримані від операції купівлі та продажу

Додаткові завдання:

1) створити кнопку для очистки полів введення суми в доларах та обчисленої суми в гривнях;

2) забезпечити появу підказки при наведенні курсора миші на поля редагування курсів купівлі та продажу;

3) передбачити 1% збору у пенсійний фонд від операції купівлі-продажу;

4) передбачити зміну операцій при натисканні на стрілку;

Текст коду до завдання 1:

procedure TForm1.Button3Click(Sender: TObject);

begin

edit1.Text:='';

edit2.Text:='';

edit3.Text:='';

edit4.Text:='';

end;

Для забезпечення появи підказки при наведенні курсора миші на поля редагування курсів купівлі та продажу було використано властивість Hint, значенням якої є «Введіть курс купівлі» для об'єкта Edit1та «Введіть курс продажу» для об'єкта Edit2 відповідно. Результати продемонстровані на рисунках 2.12 та 2.13.



Рисуноки 2.12 та 2.13- Поява підказки для об'єкта edit1 та edit2

Для того, щоб обчислити суму, яка повинна бути переведена до пенсійного фонду був використаний код:

p:=suma/100;

label5.Caption:='Збір до пенсійного фонду 1%='+FloatToStrF(p,ffFixed,0,2);

Suma - змінна, що має значення суми в гривнях. Даний фрагмент коду було додано до процедури натискання кнопки «Обчислити» (Button1Click).

Для того, щоб при натисканні на стрілку відбувалась зміна операції на протилежну була використана процедура:

Label4.Caption:= '<=';

radiobutton1.Checked:=true;

Наступним завданням було спростити форму та замінити код кнопки «Обчислити» так, щоб її можна було використати для переведення миль у кілометри і навпаки в залежності від положення перемикача. У створену форму додати пару об'єктів Checkbox для вибору звичайної або морської милі.

Конструктор форми продемонстровано на рисунку 2.14.

Рисунок 2.14

Результати виконання програми зображені на рисунках 2.15-2.16

Рисунки 2.15 та 2.16-Результат переведення з звичайної і морської милі в кілометри

2.6 Завдання для самостійної роботи

Завдання 1. Якщо точка М(х,у) належить внутрішній області трикутника з вершинами А(а,0), В(0,b), Про(0,0), то надрукувати його площу, інакше його периметр (a>0, b>0).

Конструктор форми зображено на рисунку 2.17

Рисунок 2.17

Результати виконання програми зображені на рисунках 2.18-2.19

Рисунки 2.18 та 2.19-Результати з обчисленням площи та периметру

Текст коду до завдання 1:

procedure TForm1.Button1Click(Sender: TObject);

var a,b,x,y,S,P,i,o,r,v:real;

begin

x:=strtofloat(edit1.Text);

y:=strtofloat(edit2.Text);

a:=strtofloat(edit3.Text);

b:=strtofloat(edit4.Text);

i:=sqrt(sqr(a)+sqr(b));

o:=b;

r:=a;

P:=i+b+a;

v:=P/2;

S:=(sqrt(v-(v-i)+(v-a)+(v-b)));

if ((2 * ord(a > 0) + ord(b > 0)) = (2 * ord(x > 0) + ord(y > 0))) and (abs(y) < abs(b) * (1 - abs(x) / abs(a))) then

label7.Caption:='S='+FloatToStr(S)

else

label7.Caption:='P='+FloatToStr(P);

end;

Завдання 2. Скласти програму, що визначає, чи проходить графік функції y=x²+2x+2 через точку А(x,y).

Конструктор форми зображено на рисунку 2.20



Рисунок 2.20

Результати виконання програми зображені на рисунках 2.21та 2.22

Рисунок 2.21- Вікно робочої програми

Рисунок 2.22- Вікно робочої програми

Текст коду:

procedure TForm1.Button1Click(Sender: TObject);

var x,y,t:integer;

begin x:=strtoint(edit1.text);

y:=strtoint(edit2.text);

t:=sqr(x)+2*x+2;

if (t=y) then

label2.Caption:='Точка належить функції' else

label2.Caption:='Точка не належить функції';

end;

Завдання 3. Вважаючи рік не високосним по номеру місяця вивести повідомлення про кількість днів цього місяця.

Конструктор форми зображено на рисунку 2.23

Рисунок 2.23

Результати виконання програми зображені на рисунках 2.24та 2.26

Рисунок 2.24-2.26- Вікна робочих програм

Текст коду:

procedure TForm1.Button1Click(Sender: TObject);

var n:integer;

begin

n:=StrToint (edit1.Text);

case (n) of

1:ShowMessage('У місяці 31 день');

2:ShowMessage('У місяці 28 днів');

3:ShowMessage('У місяці 31 день');

4:ShowMessage('У місяці 30 днів');

5:ShowMessage('У місяці 31 день');

6:ShowMessage('У місяці 30 днів');

7:ShowMessage('У місяці 31 день');

8:ShowMessage('У місяці 31 день');

9:ShowMessage('У місяці 30 днів');

10:ShowMessage('У місяці 31 день');

11:ShowMessage('У місяці 30 днів');

12:ShowMessage('У місяці 31 день');

else ShowMessage('Такого місяця нема');

end;

2.7 Задача про суму ряду

Завдання. Скласти програму для обчислення f(x). Значення N і x вводяться з клавіатури. Розрахунок факторіалу оформити у вигляді підпрограми. Передбачити можливість виведення значень функції залежно від x, який змінюється в діапазоні [x1, x2] із заданим кроком h:



Конструктор форми зображено на рисунку 2.27

Рисунок 2.27

Результати виконання програми зображені на рисунку 2.28

Рисунок 2.28 - Вікно робочої програми

Для розрахунку факторіалу використовувалася процедура CalkFact:

procedure CalkFact(Zn:integer; var Rez:integer);

var j: Integer;

begin

Rez:=1;

for j := 1 to Zn do Rez:=Rez*j;

end;

Текст програмного коду:

procedure TForm1.Button1Click(Sender: TObject);

var x1,x2,h:real;

N:integer;

i:integer;

sum:real;

ZnFact:integer;

stroka:string;

begin

Memo1.Clear;

N:=StrToInt(Edit1.Text);

x1:=StrToFloat(Edit2.Text);

x2:=StrToFloat(Edit3.Text);

h:=StrToFloat(Edit4.Text);

repeat

sum:=0;

for i:=1 to n do

begin

CalkFact(i,ZnFact);

sum:=sum+2*n*ln(1+ZnFact)/ZnFact+x1;

end;

stroka:= 'f('+FloatToStr(x1)+') = '+ FloatToStrF(sum,ffFixed,7,3);

Memo1.Lines.Add(stroka);

x1:=x1+h;

until x1>x2;

end;

2.8 Задача про min/max функції

Завдання. Скласти програму пошуку мінімального та максимального значення функції на відрізку [а, b]. Значення а, b і кроку h вводяться з клавіатури. Розрахунок функції оформити як підпрограму-функцію: 2+x-x²

Конструктор форми зображено на рисунку 2.29

Рисунок 2.29

Результати виконання програми зображені на рисунку 2.30

Рисунок 2.30- Вікно робочої програми

Для розрахунку значень функції використовувалася підпрограма-функція ZnFun:

function ZnFun(x:real):real;

begin

ZnFun:=5*sqr(x)-7*x+100;

end;

Текст програмного коду:

procedure TForm1.Button1Click(Sender: TObject);

var a, b, h : real;

MinX, MinY, MaxX, MaxY : real;

begin

Memo1.Clear;

a:=StrToFloat(Edit1.Text);

b:=StrToFloat(Edit2.Text);

h:=StrToFloat(Edit3.Text);

MinY:=1e38;

MaxY:=-1e38;

while a<b do

begin

if ZnFun(a)<MinY then

begin

MinY:=ZnFun(a);

MinX:=a;

end;

if ZnFun(a)>MaxY then

begin

MaxY:=ZnFun(a);

MaxX:=a;

end;

a:=a+h;

end;

Memo1.Lines.Add('Max при x = '+FloatToStrF(MaxX,ffFixed,10,5)+

' y = '+FloatToStrF(MaxY,ffFixed,0,3)); end;

2.9 Задача табулювання функції

Завдання. Створити форму для розв'язування та відображення результатів табулювання функції.

Конструктор форми зображено на рисунку 2.31

Рисунок 2.31 - Конструктор форми

Додаткові завдання:

1) Додати до контекстного меню команду «Кінець та запрограмувати її».

Текст коду:

procedure TForm1.N4Click(Sender: TObject);

begin

close;

end;

2) Створити ще одне контекстне меню з командами «Зняти прапорці», Встановити всі прапорці», «Встановити інверсивно».

Текст коду:

procedure TForm1.N9Click(Sender: TObject);{Процедура зняття прапорців}

begin

checkbox1.Checked := False;

checkbox2.Checked := False;

checkbox3.Checked := False;

end;

procedure TForm1.N10Click(Sender: TObject);{Процедура встановлення прапорців}

begin

checkbox1.Checked := True;

checkbox2.Checked := True;

checkbox3.Checked := True;

end;

procedure TForm1.N11Click(Sender: TObject);{Процедура встановлення прапорців інверсивно}

begin

if checkbox1.Checked then checkbox1.Checked := Falseelse checkbox1.Checked := True;

if checkbox2.Checked then checkbox2.Checked := Falseelse checkbox2.Checked := True;

if checkbox3.Checked then checkbox3.Checked := Falseelse checkbox3.Checked := True;

end;

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

Результат табулювання функції з похідною та роботи прапорця-«Похідна» продемонстровано на рисунках 2.32 та 2.33

.

Рисунок 2.32-Табулювання без похідної

Табулювання функції з похідною та графік зображено на рисунку 2.33

Рисунок 2.33-Табулювання з похідною та побудова графіком

До меню програми додаємо команду «Побудувати графік», а на формі кнопку «Графік».

Текст команди:

procedure TForm1.Button1Click(Sender: TObject);

var x,y,y1,h,a,b:real;

begin

a:=strtofloat(Edit1.Text); b:=strtofloat(Edit2.Text); h:=strtofloat(Edit3.Text);

With Series1 do

Clear;

x:=a; if checkbox2.checked then

While x<=b+h/2 do

begin

Series1.AddXY(x, 3*sqr(x)+2*x,'',clRed); x:=x+h;

end

else

While x<=b+h/2 do

Begin Series1.AddXY(x, sqr(x)*x+sqr(x)-7,'',clRed);

x:=x+h;

end;

end;

Размещено на Allbest.ru