Программирование разветвляющихся алгоритмов

Цель лабораторной работы: освоить использование простейших компонентов-переключателей и создать приложение, которое использует разветвляющийся алгоритм.

unit Unit1;

{$mode objfpc}{$H+}

interface

uses

Classes, SysUtils, LResources, Forms, Controls, Graphics, Dialogs, StdCtrls,

ExtCtrls, Buttons;

type

{ TForm1 }

TForm1 = class(TForm)

Button1: TButton;

CheckBox1: TCheckBox;

Edit1: TEdit;

Label1: TLabel;

Memo1: TMemo;

RadioGroup1: TRadioGroup;

procedure Button1Click(Sender: TObject);

procedure FormCreate(Sender: TObject);

private

{ private declarations }

public

{ public declarations }

end;

var

Form1: TForm1;

implementation

{ TForm1 }

procedure TForm1.FormCreate(Sender: TObject);

begin

Edit1.Text:='3.5';

Memo1.Clear;

Memo1.Lines.Add('Лабораторная работа ¹2 - Разветвляющийся алго-ритм');

end;

procedure TForm1.Button1Click(Sender: TObject);

var

x,y,fx : extended;

begin

x:=StrToFloat(Edit1.Text);

fx:=sin(x);

case RadioGroup1.ItemIndex of

0:fx:=sin(x);

1:fx:=Sqr(cos(x));

end;

if x>3.5 then

y:=fx*ln(x)

else

y:=Exp(fx)*fx;

if CheckBox1.Checked then

Memo1.Lines.Add('X = '+Edit1.Text);

Memo1.Lines.Add(' Y = '+FloatToStrF(y,ffFixed,8,3));

end;

initialization

{$I unit1.lrs}

end.