Блок-схема алгоритму
Початок
Створення форми
Введення
х,у,z,a,b
S=
Вивід
S
Кінець
Діалогове вікно «Лінійне завдання»
Рисунок 5 Діалогове вікно «Лінійне завдання»
Текст програми
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms
Dialogs, StdCtrls;
type
TForm1 = class(Tform)
Label1: Tlabel;
Label2: Tlabel;
Label3: Tlabel;
Label4: Tlabel;
Label5: Tlabel;
Label6: Tlabel;
Edit1: Tedit;
Edit2: Tedit;
Edit3: Tedit;
Edit4: Tedit;
Edit5: Tedit;
Label7: Tlabel;
Label8: Tlabel;
Button1: Tbutton;
procedure Button1Click(Sender: Tobject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: Tform1;
implementation
{$R *.dfm}
procedure Tform1.Button1Click(Sender: Tobject);
var
а,b,x,y,z,s:real;
begin
a:=StrToFloat(Edit1.Text);
b:=StrToFloat(Edit2.Text);
x:=StrToFloat(Edit3.Text);
y:=StrToFloat(Edit4.Text);
z:=StrToFloat(Edit5.Text);
s:=abs(z-3*b*sqr(x))+sqr(cos(a*x))+exp(abs(z*sin(b*y)));
s:=s/(sqrt(3*sqr(x)+y+b*z)+arctan(2/z)+sqr(sin(x*y) /cos(x*y)));
Label8.Font.color:=clblack;
Label8.Caption:=’Результат:’+#13+’Значение функції S’+#13+’S=’+floatToStr(s);
end;
end.
Результат
Рисунок 6 Результат виконання рішення задачі
Завдання 2. Створити проект, блок схему алгоритму, діалогове вікно і програму для обчислення значень функцій
Варіант |
Вид функції за умов |
Початкові дані |
|||
X |
Y |
Z |
|||
1 |
|
1.963 |
2.31
1.52 |
0.254 |
|
2 |
|
3.2 |
5.37
2.5 |
1.062 |
|
3 |
|
0.37 |
3.462
0.03 |
1.52 |
|
4 |
|
1.45 |
0.621
2.152 |
0.25 |
|
5 |
|
1.363 |
0.321
-0.852 |
0.25 |
|
6 |
|
0.235 |
3.272
0.02 |
0.51 |
|
7 |
|
0.34 |
0.251
0.92 |
0.25 |
|
8 |
|
0.58 |
1.032
0.15 |
0.42 |
|
9 |
|
0.115 |
0.716
0.086 |
0.12 |
|
10 |
|
0.381 |
1.26
0.15 |
0.65 |
|
11 |
|
0.15 |
0.981
0.212 |
0.3 |
|
12 |
|
0.87 |
-1.76
1.512 |
0.28 |
|
13 |
|
0.124 |
0.96
0.32 |
0.65 |
|
14 |
|
1.152 |
2.241
0.65 |
0.568 |
|
15 |
|
2.17 |
0.623
0.388 |
0.54 |
|
16 |
|
0.412 |
0.628
0.315 |
0.4 |
|
17 |
|
0.13 |
2.582
1.973 |
1.861 |
|
18 |
|
1.215 |
0.25
1.324 |
3.18 |
|
19 |
|
0.28 |
1.754
0.612 |
1.08 |
|
20 |
|
0.856 |
4.251
0.653 |
0.15 |
|
21 |
|
0.965 |
2.146
0.321 |
0.68 |
|
22 |
|
1.41 |
3.283
0.958 |
0.18 |
|
23 |
|
-1.32 |
1.384
0.251 |
0.65 |
|
24 |
|
0.62 |
0.983
0.517 |
1.3 |
|
25 |
|
0.198 |
0.686
3.158 |
2.1 |
|
26 |
|
2.008 |
2.361
1.835 |
0.7 |
|
27 |
|
0.45 |
3.156
0.275 |
0.3 |
|
28 |
|
1.034 |
0.671
20253 |
0.5 |
|
29 |
|
0.188 |
0.128
1.679 |
0.3 |
|
30 |
|
0.53 |
0.182
1.154 |
1.3 |
|
Приклад
Створити проект, блок схему алгоритму, діалогове вікно і програму для обчислення значень функцій.
при
x=0.41. y=0.25,
y=0.53, 062
Створюємо діалогове вікно «Разгалуження»
Рисунок 7 Діалогове вікно «Розгалуження»