Программы Делфи на экзамен

procedure TForm2.BitBtn1Click(Sender: TObject);

var xmin, xmax, hx, y, x: extended;

begin

xmin:=strtofloat(Form2.LabeledEdit1.Text);

xmax:=strtofloat(Form2.LabeledEdit2.Text);

hx:=strtofloat(Form2.LabeledEdit3.Text);

x:=xmin;

Form2.RichEdit1.lines.clear;

repeat y:=sqr(x)+4;

Form2.richedit1.Lines.Add('x='+floattostr(x)+' y='+floattostr(y));

Form2.series1.Addxy(x, y);

x:=x+hx;

until x>xmax;

ShowMessage('Расчет выполнен');

end;

procedure TForm2.BitBtn1Click(Sender: TObject);

Var A:array[1..6] of extended; I:=integer;

Begin

For i:=1 to 6 do

A[i]:=StrToFloat(ValueListEditor1.Cells[1,1]);

End;

procedure TForm2.BitBtn2Click(Sender: TObject);

Type B=Array[1..5,1..4] of extended;

Var B1:b; I,k:integer; Fr:textfile;

Begin

AssignFile(Fr, ‘z.txt’);

Reset(Fr);

For i:=1 to 4 do begin

For k:=1 to 5 do read (Fr, B1[1,k]);

Readln(Fr);

End;

Closefile(fr);

For i:=1 to 4 do

For k:=1 to 5 do Stringgrid1.cells[k-1,i-1]:=FloatToStr(B1[I,k]);

End;

End.

procedure TForm2.BitBtn1Click(Sender: TObject);

var xmin, xmax, hx, y, x: extended; Fw:textFile; i:integer;

begin

xmin:=strtofloat(LabeledEdit1.Text);

xmax:=strtofloat(LabeledEdit2.Text);

hx:=strtofloat(LabeledEdit3.Text);

AssignFile(Fw, ‘A.doc’); Rewrite(Fw);

Writeln(Fw,’Значения y=x+1’); writeln(Fw,’ x’,’ ‘:8);

X:=xmin; i:=0;

Stringgrid1.cells[0,0]:=’№’;

Stringgrid1.cells[1,0]:=’x’;

Stringgrid1.cells[2,0]:=’y’;

Repeat y:=x+1; i:=i+1;

Writeln(Fw,x:10:2,y:10:2);

Stringgrid1.rowcount:=i+1;

Stringgrid1.cells[0,1]:=inttostr(1);

Stringgrid1.cells[1,1]:=floattostr(x);

Stringgrid1.cells[2,1]:=floattostr(y);

X:=x+hx;

Until x>xmax;

Writeln(F, ‘Конец расчета’);

CloseFile(Fw); showMessage(‘Конец расчета’);

End;

procedure TForm2.n3Click(Sender: TObject);

var a,b,c: extended; Fw:textFile;

begin

AssignFile(Fr,’z.txt’);

Reset(F);

Readln(Fr,a,b,c);

CloseFile(Fr);

LabeledEdit1.Text:=FloatToStr(a);

LabeledEdit2.Text:=FloatToStr(b);

LabeledEdit3.TextFloatToStr(c);

End;