Курсовая работа: Программирование на Delphi с алгоритмами и кодами

public

{ Public declarations }

end;

var

Form2: TForm2;

implementation

uses Unit3;

{$R *.dfm}

procedure TForm2.Button2Click(Sender: TObject);

begin

Form2.Close; // закрывает форму задания №1

end;

procedureTForm2.Button1Click(Sender: TObject); // производит вычисления x, y, s, заполнение таблицы, постройка графика

const h=0.05;

var i,n,j,k,p:integer;

s,y,a,b,x,su:real;

begin

a:=strtofloat(edit1.text);

b:=strtofloat(edit2.text);

n:=strtoint(edit3.text);

k:=round(1+(b-a)/h);

x:=a;

StringGrid1.ColWidths[0]:=20; // задаетширинустолбца

StringGrid1.cells[1,0]:='x'; // задаетподписьстолбца

StringGrid1.cells[2,0]:='s'; // задает подпись столбца

StringGrid1.cells[3,0]:='y'; // задает подпись столбца

for i:=1 to k do

begin

s:=(x-1)/3;