Индивидуальное задание. 
Особенности решения математических задач при помощи языка программирования Pascal

Разработать проект вычисления таблицы значений функций одной переменной. Вычисление функции оформить в виде отдельной пользовательской функции.

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

Для организации правильной работы реализовать сценарий работы с использованием свойств visible и (или) enabled компонент, размещенных на форме.

Для управления работой приложением использовать компоненту КНОПКА (Button или BitBtn).

Функция:

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

unit Unit1;

interface.

uses.

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Buttons, StdCtrls, XPMan, Grids, ExtCtrls, Vcl.Imaging.jpeg;

type.

TForm1 = class (TForm).

GroupBox1: TGroupBox;

Edit1: TEdit;

XPManifest1: TXPManifest;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Edit2: TEdit;

Edit3: TEdit;

GroupBox2: TGroupBox;

SpeedButton1: TSpeedButton;

SpeedButton2: TSpeedButton;

GroupBox3: TGroupBox;

StringGrid1: TStringGrid;

SpeedButton3: TSpeedButton;

Image1: TImage;

ComboBox1: TComboBox;

Memo1: TMemo;

Label1: TLabel;

procedure SpeedButton2Click (Sender: TObject);

procedure SpeedButton1Click (Sender: TObject);

procedure SpeedButton3Click (Sender: TObject);

private.

{ Private declarations }.

public.

{ Public declarations }.

end;

var.

Form1: TForm1;

implementation.

{$R *.dfm}.

function f1(x:real):real;

begin.

f1:=(14*x+5)/(x*x+1);

end;

function f2(x:real):real;

begin.

f2:=12+x;

end;

function f3(x:real):real;

begin.

f3:=(x*x*x+1)/(4*x+2);

end;

procedure TForm1. SpeedButton2Click (Sender: TObject);

begin.

Close;

end;

procedure TForm1. SpeedButton1Click (Sender: TObject);

var.

code_a, code_b, code_n:integer;

a, b, h:real;

n, i: integer;

x, y1, y2,y3:real;

begin.

Val (Edit1.Text, a, code_a);

Val (Edit2.Text, b, code_b);

Val (Edit3.Text, n, code_n);

If (code_a0) then.

begin.

Showmessage ('Неправильно введен A');

Edit1.SetFocus;

end.

else.

If (code_b0) then.

begin.

Showmessage ('Неправильно введен B');

Edit2.SetFocus;

end.

else.

If (code_n0) then.

begin.

Showmessage ('Неправильно введен N');

Edit3.SetFocus;

end;

if (code_a=0)and (code_b=0)and (code_n=0) then.

begin.

GroupBox3.Visible:=true;

if ComboBox1. Text='Memo' then.

begin.

StringGrid1.Visible:=false;

Memo1.Visible:=true;

end.

else if ComboBox1. Text='StringGrid' then.

begin.

StringGrid1.Visible:=true;

Memo1.Visible:=false;

end.

else.

begin.

ShowMessage ('Выберите один из пунктов!!!');

exit;

end;

StringGrid1.Cells[0,0]: ='№';

StringGrid1.Cells[1,0]: =' X=';

StringGrid1.Cells[2,0]: =' Y1=';

StringGrid1.Cells[3,0]: =' Y2=';

StringGrid1.Cells[4,0]: =' Y3=';

StringGrid1.RowCount:=n+1;

for i:=1 to n do.

StringGrid1.Cells[0,i]: =IntToStr (i);

x:=a;

i:=1;

h:=(b-a)/n;

Memo1.Clear;

Memo1.Lines.Add ('Номер Значение X Функция Y1 Функция Y2 Функция Y3');

while x<=b do.

begin.

StringGrid1.Cells[1,i]: =FloatToStrF (x, ffFixed, 5,1);

// Функции.

if x=-2 then.

begin.

y1:=f1(x);

y2:=f2(x);

StringGrid1.Cells[4,i]: ='Деление на 0';

StringGrid1.Cells[3,i]: =FloatToStrF (y2,ffFixed, 5,5);

StringGrid1.Cells[2,i]: =FloatToStrF (y1,ffFixed, 5,5);

Memo1.Lines.Add (IntToStr (i)+' '+FloatToStrF (x, ffExponent, 5,2)+ ' '+.

FloatToStrF (y1,ffExponent, 5,2)+.

' '+FloatToStrF (y2,ffExponent, 5,2)+.

' Деление на ноль ');

end.

else.

if x=0 then.

begin.

StringGrid1.Cells[2,i]: ='Деление на 0';

y2:=f2(x);

y3:=f3(x);

StringGrid1.Cells[3,i]: =FloatToStrF (y2,ffFixed, 5,5);

StringGrid1.Cells[4,i]: =FloatToStrF (y3,ffFixed, 5,5);

Memo1.Lines.Add (IntToStr (i)+' '+FloatToStrF (x, ffExponent, 5,2)+.

' Деление на ноль '+.

' '+FloatToStrF (y2,ffExponent, 5,2)+' '+.

FloatToStrF (y3,ffExponent, 5,2));

end.

else.

begin.

y1:=f1(x);

y2:=f2(x);

y3:=f3(x);

StringGrid1.Cells[2,i]: =FloatToStrF (y1,ffFixed, 5,5);

StringGrid1.Cells[3,i]: =FloatToStrF (y2,ffFixed, 5,5);

StringGrid1.Cells[4,i]: =FloatToStrF (y3,ffFixed, 5,5);

Memo1.Lines.Add (IntToStr (i)+' '+FloatToStrF (x, ffExponent, 4,2)+.

' '+FloatToStrF (y1,ffExponent, 4,2)+.

' '+FloatToStrF (y2,ffExponent, 4,2)+.

' '+FloatToStrF (y3,ffExponent, 4,2));

end;

x:=x+h;

inc (i);

end;

end;

end;

procedure TForm1. SpeedButton3Click (Sender: TObject);

begin.

Edit1.Clear;

Edit2.Clear;

Edit3.Clear;

GroupBox3.Visible:=false;

end;

end.

Рисунок 3.1 — Исполнение программы (Вывод значения в StringGrid).

Рисунок 3.2 — Исполнение программы (Вывод значения в Memo).