Хід роботи

1. Побудуйте математичну модель задачі.

На вантаж діє сила . Згідно 2 закону Ньютона: .

;

;

.

2. Знайдіть розв'язок в середовищі Mathematica  отриманого диференціального рівняння з врахуванням початкових умов.

3. Для значень та з потрібного варіанту побудуйте графік функції .

4. Оформіть звіт.

Контрольні запитання

1. Які стандартні функції використовуються для роз'вязування задачі Коші в СКМ Matlab?

2. Які стандартні функції використовуються для роз'вязування задачі Коші в СКМ Mathematica?

3. Який порядок диференціальних рівнянь, які описують математичну модель руху тіла, кинутого під кутом до горизонту?

4. Який порядок диференціальних рівнянь, які описують математичну модель коливань пружини?

5. На які типи поділяються чисельні методи розв'язування задачі Коші?

6. Що таке однокрокові методи?

7. Що таке багатокрокові методи?

8. У чому різниця між явними та неявними чисельними методами розв'язування задачі Коші?

Зразок оформлення звіту про виконаня лабораторної роботи

Звіт до лабораторної роботи № 5__

"Розробка контролюючого модуля"

студента групи Ф-43

Прізвище ім'я

Завдання. Створити модуль контролю, на основі файлу тесту, створеного в лабораторній роботі 4.

Вікно модуля контролю має такий вигляд:

Після проведення контролю відкриється таке вікно:

Код програми, яка створена мовою програмування Object Pascal має такий вигляд:

unit Unit4;

interface

uses

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

Dialogs, Buttons, StdCtrls, ExtCtrls;

type

TForm4 = class(TForm)

Panel1: TPanel;

RadioGroup1: TRadioGroup;

RadioButton1: TRadioButton;

RadioButton2: TRadioButton;

RadioButton3: TRadioButton;

GroupBox1: TGroupBox;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

SpeedButton1: TSpeedButton;

RadioButton4: TRadioButton;

procedure FormActivate(Sender: TObject);

procedure SpeedButton1Click(Sender: TObject);

procedure RadioButton1Click(Sender: TObject);

procedure RadioButton2Click(Sender: TObject);

procedure RadioButton3Click(Sender: TObject);

procedure RadioButton4Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form4: TForm4;

var TestData: array[1..100,1..6] of string;

Qcount,Agood,CurTrue,i:integer;

implementation

{$R *.dfm}

procedure TForm4.FormActivate(Sender: TObject);

var f:textfile;

s:string;

begin

s:='informatyka.txt';

AssignFile(F,s);

Reset(F);

i:=1;

while not(eof(F)) do

begin

Readln(F, TestData[i,1]);

Readln(F, TestData[i,2]);

Readln(F, TestData[i,3]);

Readln(F, TestData[i,4]);

Readln(F, TestData[i,5]);

Readln(F, TestData[i,6]);

i:=i+1;

end;

CloseFile(F);

QCount:=i-1;

AGood:=0;

Label4.Caption:=IntToStr(AGood);

Label3.Caption:='1/'+IntToStr(QCount);

Panel1.Caption:=TestData[1,1];

RadioButton1.Caption:=TestData[1,2];

RadioButton2.Caption:=TestData[1,3];

RadioButton3.Caption:=TestData[1,4];

RadioButton4.Caption:=TestData[1,5];

CurTrue:=StrToInt(TestData[1,6]);

i:=1;

end;

procedure TForm4.SpeedButton1Click(Sender: TObject);

var nVidpovid:integer;

begin

if RadioButton1.Checked then nVidpovid:=1

else if RadioButton2.Checked then nVidpovid:=2

else if RadioButton3.Checked then nVidpovid:=3

else nVidpovid:=4;

if nVidpovid=CurTrue then AGood:=AGood+1;

i:=i+1;

if i<=QCount then

begin

Label4.Caption:=IntToStr(AGood);

Label3.Caption:=IntToStr(i)+'/'+IntToStr(QCount);

Panel1.Caption:=TestData[i,1];

RadioButton1.Caption:=TestData[i,2];

RadioButton2.Caption:=TestData[i,3];

RadioButton3.Caption:=TestData[i,4];

RadioButton4.Caption:=testData[i,5];

CurTrue:=StrToInt(TestData[i,6]);

RadioButton1.Checked:=FALSE;

RadioButton2.Checked:=FALSE;

RadioButton3.Checked:=FALSE;

radiobutton4.checked:=False;

SpeedButton1.Enabled:=FALSE;

Panel1.SetFocus

end

else

begin

Label4.Caption:=IntToStr(AGood);

ShowMessage('Тестування завершено. Дано правильних відповідей: '+IntToStr(AGood));

Form4.Close;

end;

end;

procedure TForm4.RadioButton1Click(Sender: TObject);

begin

SpeedButton1.Enabled:=true;

end;

procedure TForm4.RadioButton2Click(Sender: TObject);

begin

SpeedButton1.Enabled:=true;

end;

procedure TForm4.RadioButton3Click(Sender: TObject);

begin

SpeedButton1.Enabled:=true;

end;

procedure TForm4.RadioButton4Click(Sender: TObject);

begin

SpeedButton1.Enabled:=true;

end;

end.

Висновок. Засобами мови програмування Object Pascal у системі візуального програмування Delphi створена універсальна програма для проведення тестування, яка не залежить від змісту, кількості тестових запитань і має зручний інтерфейс користувача.

Відповіді на контрольні запитання

1. …

2. ...

...