Блок схема алгоритму

Рисунок 1 Діалогове вікно

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

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;

Label7: TLabel;

Edit1: TEdit;

Edit2: TEdit;

Edit3: TEdit;

Edit4: TEdit;

Edit5: TEdit;

Label8: TLabel;

Label9: TLabel;

Label10: 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,xn,xk,dx,c:real;

i,n:integer;

begin

a:=StrToFloat(Edit1.Text);

b:=StrToFloat(Edit2.Text);

xn:=StrToFloat(Edit3.Text);

xk:=StrToFloat(Edit4.Text);

dx:=StrToFloat(Edit5.Text);

n:=trunc((xk-xn)/dx)+1;

x:=xn;

for i:=1 to n do

begin

c:=(sqr(b)*sqrt(a)+sin(sqr(x))+sqr(cos(x)))/(exp(1/3*ln(x))+ln(x)-sqr(a)*b);

Label10.Font.Color:=clRed;

Label10.Caption:=Label10.Caption+#13+'c='+FloatToStrF(с,ffFixed,7,3)+' '+'x='+FloatToStrF(x,ffFixed,7,3);

x:=x+dx;

end;

end;

end.

Результат

Рисунок 2 Результат

Завдання 2.

У відповідності з варіантом скласти блок-схему алгоритму та програму для обчислення значення виразу для z свого варіанта (табл.1), якщо

де і - номер варіанта, х - ціле число. Вирази функцій визначити з табл. 2. Ввести програму до комп’ютеру, обчислити значення, вивести f, a, b, z.

Таблиця 2. Варіанти завдання

Варіант	Значення	Варіант	Значення	Варіант	Значення
1	z = a + b	11	z = a-2b	21	z = tg(a + b)
2	z = ab	12	z = atgI(b)	22	z = ln|a + 4b|
3	z=tg(b)-a	13	z = cos(a + b)	23	z = 3ab-cos(b)
4	z = (a + b)2	14	z =|a+b|	24	z = 4a + eb
5	z = 5ab-4	15	z = ctg(2a) - b	25	z = 5a-2b
6	z = sin(a) + b	16	z = e3ab	26	z = a2 +2b
7	z = btg(a)	17	z = 4ab-b	27	z -sin(a2)-b
8	z=a2 -3b	18	z = 2a-b	28	z = cos2(a + b)
9	Z=(|a+b|)1/4	19	z = 12a-cos(b)	29	z = 12a-cos(b)
10	z = ab -Π	20	z = a-b2	30	z = 2a-b

Таблиця 2. Значення функції

Завдання 3.

У відповідності з варіантом скласти блок-схему алгоритму та програму, для табулювання функції y= на проміжку [0; і] з кроком h; = 0.1, де і - номер варіанта. Ввести програму до комп’ютера, виконати обчислення. Результати вивести у вигляді таблиці пар чисел х, у. Виконати завдання пошуку даних (табл. 3). Якщо шуканих даних немає, вивести про це повідомлення.

1. Обчислити суми першого та останнього значень функції.

2. Обчислити суму та добуток всіх значень функції у, для яких виконуються нерівності у < -3.2, або у > 0.

3. Обчистили добуток та кількість усіх значень функції у, для яких виконуються нерівності у < -3, або у > 0.4.

4. Обчислити добуток значень аргументу (х), для яких досягаються мінімальне та максимальне значення функції у.

5. Обчислити добуток усіх від'ємних значень функції у та визначити кількість додатних.

6. Обчислити кількість від'ємних значень. Визначити максимальне значення.

7. Обчислити кількість від'ємних та додатних значень функції.

8. Обчислити суму та кількість додатних значень функції.

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

10. Обчислити модуль різниці максимального та першого значень у.

11. Обчислити суму всіх значень функції, для яких виконуються нерівності у < 1.2, або у > 4. Визначити максимальне значення функції.

12. Обчислити добуток додатних значень та кількість від'ємних.

13. Обчислити добуток від'ємних значень функції у. У якій точці (х) і функція набуває максимального значення.

14. Обчислити добуток всіх значень функції, для яких виконується нерівність 1 < у < 3.1. Визначити, для якого х функція набуває мінімального значення.

15. Визначити кількість та добуток усіх від'ємних значень функції.

16. Обчислити суму квадратів та добуток усіх значень функції, для яких і виконується нерівність-2.41 < у < 5.

17. Обчислити модуль добутку максимального та мінімальної о значень.

18. Обчислити середнє арифметичне всіх від'ємних значень функції.

19. Обчислити суму кубів всіх додатних значень та їхню кількість.

20. Знайти середнє арифметичне тих значень функції, для яких виконуються нерівності у < 0, або у > 3.

21. Знайти мінімальне значення функції, а також визначити значення аргументу, для якого воно досягається.

22. Обчислити суму та кількість тих значень функції, для яких виконується нерівність 0 < у < 1.

23. Обчислити кількість та добуток тих значень функції, для яких виконується нерівність 1.3 < у < 5. Яких значень функції більше: додатних чи від'ємних.

Вміст звіту

1. Титульний аркуш.

2. Завдання.

3. Схема алгоритму.

4. Лістинг програми, що містить прізвище, номер групи і варіант завдання, виведений друкуючим пристроєм.

5. Друк початкових даних.

6. Друк результатів розрахунку.