ЛАБОРАТОРНАЯ РАБОТА 2

Разработка приложения, реализующего разветвляющийся вычислительный процесс

Постановка задачи:

Разработать приложение, реализующее разветвляющийся вычислительный процесс в соответствии с индивидуальным заданием. В качестве f(x) использовать по выбору: sh(x), х2; е.

Задание: .

Текст программы:

unit lr1;

interface

uses

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

Dialogs, StdCtrls, ExtCtrls;

type

TForm1 = class(TForm)

edt1: TEdit;

edt2: TEdit;

lbl1: TLabel;

lbl3: TLabel;

mmo1: TMemo;

lbl4: TLabel;

btn1: TButton;

rg1: TRadioGroup;

procedure FormCreate(Sender: TObject);

procedure btn1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);

begin

edt1.Text := '2';

edt2.Text := '5';

Mmo1.Clear;

Mmo1.Lines.Add('Лa6.раб.№2. Ст.гр. 41703113 Сушкина Д.В.');

end;

procedure TForm1.btn1Click(Sender: TObject);

var

x, q, a, b, u : real;

begin

Mmo1.Clear;

x := StrToFloat(Edt1.Text);

Mmo1.Lines.Add('x = ' + Edt1.Text);

q := StrToFloat(Edt2.Text);

Mmo1.Lines.Add('q = ' + Edt2.Text);

a:=Abs(x*q);

case rg1.ItemIndex of

0: b:=(exp(x)-exp(-x))/2;

1: b:=sqr(x);

2: b:=exp(x);

end;

if a>10 then u:=Ln((Abs(b)+(Abs(q))));

if a<10 then u:=Exp(b+q);

if a=10 then u:=b+q;

Mmo1.Lines.Add('Результат k:= ' + FloatToStrF(u, ffFixed, 8, 2));

end;

end.

Результат работы программы:

1. При запуске программы появляется следующее окно:

2. После нажатия кнопки «Выполнить» для f(x)=sh(x):

Выводы: научились пользоваться стандартными компонентами организации переключений (TCheckBox, TradioGroup и др.). Используя компоненты организации переключений, разработали интерфейс и программу для заданного разветвляющегося алгоритма.