Программы Делфи на экзамен
.docxprocedure 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;