ограми
Для розрахунку факторіалу вікорістовувалася процедура CalkFact:
CalkFact (Zn: integer; var Rez: integer); j: Integer; :=1; j:=1 to Zn do Rez:=Rez * j; ;
Текст програмного коду:
TForm1.Button1Click (Sender: TObject); x1, x2, h: real;:integer;:integer;:real;:integer;:string; .Clear;:=StrToInt (Edit1.Text); :=StrToFloat (Edit2.Text); :=StrToFloat (Edit3.Text); :=StrToFloat (Edit4.Text); :=0; i:=1 to n do (i, ZnFact);:=sum + 2 * n * ln (1 + ZnFact)/ZnFact + x1 ;;:= f ( + FloatToStr (x1) + )= + FloatToStrF (sum, ffFixed, 7,3) ;. Lines.Add (stroka);:=x1 + h; x1 gt; x2; ;
2.8 Завдання про min/max Функції
Завдання. Скласти програму поиска мінімального та максимального значення Функції на відрізку [а, b]. Значення а, b и Кроку h вводяться з Клавіатури. Розрахунок Функції Оформити як підпрограму-функцію: 2 + xx 2
Конструктор форми зображено на малюнку 2.29
Малюнок 2.29
Результати виконан програми зображені на малюнку 2.30
Малюнок 2.30- Вікно РОБОЧОЇ програми
Для розрахунку значень Функції вікорістовувалася підпрограма-функція ZnFun:
ZnFun (x: real): real; :=5 * sqr (x) - 7 * x + 100; ;
Текст програмного коду:
TForm1.Button1Click (Sender: TObject); a, b, h: real ;, MinY, MaxX, MaxY: real; .Clear; :=StrToFloat (Edit1.Text); :=StrToFloat (Edit2.Text); :=StrToFloat (Edit3.Text);:=1e38; :=- 1e38; a lt; b do ZnFun (a) lt; MinY then:=ZnFun (a); :=a; ; ZnFun (a) gt; MaxY then:=ZnFun (a); :=a; ; :=a + h; ;.Lines.Add ( Laquo; Max при x= + FloatToStrF (MaxX, ffFixed, 10,5) +
y= + FloatToStrF (MaxY, ffFixed, 0,3)); end;
2.9 Завдання табулювання Функції
Завдання. Создать форму для розв язування та відображення результатів табулювання Функції.
Конструктор форми зображено на малюнку 2.31
Малюнок 2.31 - Конструктор форми
Додаткові Завдання:
1) Додати до контекстного меню команду «Кінець та запрограмуваті ее».
Текст кодом:
TForm1.N4Click (Sender: TObject) ;;;
2) создать ще одне контекстне меню з командами «Зняти прапорці», Встановити всі прапорці »,« Встановити інверсівно ».
Текст кодом:
TForm1.N9Click (Sender: TObject); {Процедура Зняття прапорців} .Checked:=False; .Checked:=False; .Checked:=False ;; TForm1.N10Click (Sender: TObject); {Процедура встановлення прапорців} .Checked:=True; .Checked:=True; .Checked:=True ;; TForm1.N11Click (Sender: TObject); {Процедура встановлення прапорців інверсівно} checkbox1.Checked then checkbox1.Checked:=Falseelse checkbox1.Checked:=True; checkbox2.Checked then checkbox2.Checked:=Falseelse checkbox2.Checked:=True; checkbox3.Checked then checkbox3.Checked:=Falseelse checkbox3.Checked:=True ;;
3) Модіфікуваті програму, передбача можлівість табулювання Функції и ее похідної. Вибір варіанта табулювання здійсніті помощью Додатковий прапорця. Додати кнопку графік для побудова графіка
Результат табулювання Функції з похідною та роботи прапорця- «Похідна» продемонструвати на малюнках 2.32 та 2.33
.
Малюнок 2.32-табулювання без похідної
табулювання Функції з похідною та графік зображено на малюнку 2.33
Малюнок 2.33-табулювання з похідною та побудова графіком
До меню програми додаємо команду «Побудуваті графік», а на форме кнопку «Графік».
Текст команди:
TForm1.Button1Click (Sender: TObject); x, y, y1, h, a, b: real;:=strtofloat (Edit1.Text); b:=strtofloat (Edit2.Text); h:=strtofloat (Edit3.Text); Series1 do;:=a; if checkbox2ecked thenx lt;=b + h/2 do.AddXY (x, 3 * sqr (x) + 2 * x, , clRed); x:=x + h; x lt;=b + h/2 doSeries1.AddXY (x, sqr (x) * x + sqr (x) - 7, , clRed);:=x + h; ; ;
