Delphiben hogyan tudok szórást számolni? Bővebben

FloatToStr vagy FloatToStrF függvényeknek nézz utána.

[link]

[link] F

Hát mindjárt oda szúrom a rozsdást ahol legjobban fáj :(

StrToFloat kicsi lelkem, nem StrToInt, picit gondolkozz már.

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, Math;

type

TForm1 = class(TForm)

Button1: TButton;

Label1: TLabel;

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

atlag : real;

osszeg : real;

szam : array [1..5] of real;

elt : array [1..5] of real;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

var i : byte;

begin

osszeg := 0;

szam[1] := 1.1;

szam[2] := 1.2;

szam[3] := 1.3;

szam[4] := 1.4;

szam[5] := 1.5;

for i := 1 to 5 do osszeg := osszeg + szam[i];

atlag := osszeg / 5;

for i := 1 to 5 do elt[i] := Power(atlag - szam[i],2);

osszeg := 0;

for i := 1 to 5 do osszeg := osszeg + elt[i];

Label1.Caption := FloatToStr(Sqrt(osszeg));

end;

end.

Tegyél fel egy Button1-es és egy Label1-et a formra és kész.