[jie4e]

используется f1book1, в принципе все есть, помогите пожалуйста!

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93

function f1(x: real): real; begin f1 := cos(x) + 2; end;   function f2(x: real): real; begin f2 := -1.2 * x + 5.8; end;   procedure TForm1.fordo1Click(Sender: TObject); var N, i: integer; NRow: integer; begin SG1.Cells[0, 0] := '¹'; SG1.Cells[1, 0] := 'X'; SG1.Cells[2, 0] := 'Y'; NRow := 1;   a := strtoint(edit1.Text); b := strtoint(edit2.Text); c := strtoint(edit3.Text); N := strtoint(edit4.Text); x := a; h := (b - a) / (N - 1);   y := f1(x);   SG1.Cells[0, Nrow] := IntToStr(NRow); SG1.Cells[1, Nrow] := format('%6.3f', [x]); SG1.Cells[2, Nrow] := Trim(format('%7.3f', [y])); SG1.RowCount := SG1.RowCount + 1; Inc(NRow);   series1.AddXY(x, f1(x)); for i := 1 to (N - 1) do begin if x <= (c - h) then begin x := x + h; y := f1(x); series1.AddXY(x, f1(x)); end else begin x := x + h; y := f2(x); series2.AddXY(x, f2(x)); end;   SG1.Cells[0, Nrow] := IntToStr(NRow); SG1.Cells[1, Nrow] := format('%6.3f', [x]); SG1.Cells[2, Nrow] := Trim(format('%7.3f', [y])); SG1.RowCount := SG1.RowCount + 1; Inc(NRow); end; label7.Visible := true; end;   procedure TForm1.fx1Click(Sender: TObject); begin olecontainer1.Visible := true; end;   procedure TForm1.Crepeatuntil1Click(Sender: TObject); var N: integer; begin a := strtoint(edit1.Text); b := strtoint(edit2.Text); c := strtoint(edit3.Text); N := strtoint(edit4.Text); x := a; h := (b - a) / (N - 1);   y := f1(x);   series3.AddXY(x, f1(x)); repeat x := x + h; if x <= c then begin y := f1(x); series3.AddXY(x, f1(x)); end else begin y := f2(x); series4.AddXY(x, f2(x));   end; until x >= (b - h); label7.Visible := true; end;