Keresés


Toplista

Toplista
  • betöltés...

Magántanár kereső

Ha szívesen korrepetálnál, hozd létre magántanár profilodat itt.
Ha diák vagy és korrepetálásra van szükséged, akkor regisztrálj be és írd meg itt, hogy milyen tantárgyban!

Lazarus oszlopdiagram

443
Feladat: Adott F(K),K=1,2...,N függvényértékek. És egy ábra alapján kell megrajzolni. Eljutottam egy ideig, de nem értem mi a baj.
program szaztizenhat;
unit Unit1;

interface

uses
Classes, SysUtils, FileUtil,
Forms, Controls, Graphics, Dialogs,
TAGraph, TASeries, TAChartUtils;

type
TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
private
FBar: TBarSeries;
public
Chart1 : TChart;
end;

var Form1: TForm1;

implementation

{$R *.lfm}

var N: Integer = 10 ;

function F(K: Double): Double;
begin
Result := Cos(K);
end;

procedure TForm1.FormCreate(Sender: TObject);
var
K: Integer;
Y: Double;
begin
Chart1 := TChart.Create(Self);
Chart1.Parent := Self;
FBar := TBarSeries.Create(Chart1);
FBar.SeriesColor := clGreen;
Chart1.AddSeries(FBar);
for K := 1 to N do
begin
Y := F(K);
FBar.AddXY(K, Y);
end;
end;

end.
Jelenleg 1 felhasználó nézi ezt a kérdést.
0
Középiskola / Informatika

Válaszok

0