• Гідрологія і Гідрометрія
• Господарське право
• Економіка будівництва
• Економіка природокористування
• Економічна теорія
• Земельне право
• Історія України
• Кримінально виконавче право
• Медична радіологія
• Методи аналізу
• Міжнародне приватне право
• Міжнародний маркетинг
• Основи екології
• Предмет Політологія
• Соціальне страхування
• Технічні засоби організації дорожнього руху
• Товарознавство продовольчих товарів

Тексти модуля й виконуваної програми наведені нижче.

Текст модуля:

unit Matfu;

interface

Function Tg(x:extended) : extended; // Функція для обчислення тангенса

Function Ch(x:extended) : extended; // Функція для обчислення гіперболічного синуса

Function Sin2(x:extended) : extended; // Функція для обчислення квадрата синуса

implementation

Function Tg;

begin

Result:=Sin(x)/Cos(x);

end;

Function Ch;

begin

Result:=(exp(x)-exp(-x))/2;

end;

Function Sin2;

begin

Result:=sqr(sin(x));

end;

end.

Текст зухвалої програми:

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

StdCtrls, Buttons, ExtCtrls,MatFu;

type

TForm1 = class(TForm)

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Edit1: TEdit;

Edit2: TEdit;

Edit3: TEdit;

Memo1: TMemo;

BitBtn1: TBitBtn;

BitBtn2: TBitBtn;

RadioGroup1: TRadioGroup;

procedure FormCreate(Sender: TObject);

procedure BitBtn1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

Type

fun = function(x:extended):extended; // Оголошення типу функція

var

Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.FormCreate(Sender: TObject);

begin

Edit1.Text:='0';

Edit2.Text:='3';

Edit3.Text:='0,3';

Memo1.Clear;

RadioGroup1.ItemIndex:=0;

end;

procedure Tabl(f:fun;xn,xk,h:extended); // Розрахунок таблиці

var x,y: extended;

begin

x:=xn;

repeat

y:=f(x);

Form1.Memo1.Lines.Add('x='+FloatToStrf(x,fffixed,8,3)+

' y='+FloatToStrf(y,fffixed,8,3));

x:=x+h;

until (x>xk);

end;

procedure TForm1.BitBtn1Click(Sender: TObject);

var xn,xk,h : extended;

begin

xn:=StrToFloat(Edit1.Text); // Початкове занчение інтервалу

xk:=StrToFloat(Edit2.Text); // Кінцеве значення інтервалу

h:=StrToFloat(Edit3.Text); // Крок розрахунку

case RadioGroup1.ItemIndex of // Вибір функції

0 : Tabl(tg,xn,xk,h);

1 : Tabl(ch,xn,xk,h);

2 : Tabl(sin2,xn,xk,h);

end;

end;

end.

Оформлення звіту.

1. Для створення звіту використовуйте програму Microsoft Word

2. Звіт необхідно зберегти у текстовому форматі (із розширенням файлу .rtf)

3. Ім'я звіту - ZvitXX.rtf, де ХХ - номер практичної роботи

4. У самому звіті новині бути зазначені:

· Номер практичної роботи

· Назва практичної роботи Завдання до практичної роботи

· До кожного пункту докладно описано хід виконання завдання і зроблена копія екрану

· Зроблено висновок до практичної роботи і даються відповіді на питання контролю

5. Після виконання завдань практичної роботи відповісти на тестові питання для самоконтролю.

Звіт повинен бути оформлений державною мовою.

Література:[17] c. 82-95

Читайте також:

1. II. Вимоги до складання паспорта бюджетної програми
2. Авторське право на комп’ютерні програми
3. Алгоритм розроблення програми комплексу маркетингу
4. Алгоритм створення тренінгової програми
5. Алфавіт мови і структура програми
6. АМПЛИТУДНАЯ МОДУЛЯЦИЯ
7. Аналіз формування й виконання виробничої програми
8. Анімаційні програми
9. Антивірусні програми
10. Балансная и однополосная модуляция.
11. Биття та модуляція коливань
12. Важливою складовою економічної політики 60-х рр. була реалізація програми “нових рубежів” президента Дж. Кенеді.

Переглядів: 400