проблема с типом?

[OLEG'arh]

Вопрос в коментах, в конце кода.

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  kadr:array [0..5] of integer=(46,300,600,900,1200,1500);
  vre_kadr:array [0..5] of real=(67.2, 270.4,510.4,750.4,990.4,1230.4);
  laymda: array [0..5] of real;
  S:array [0..5] of real;
  Form1: TForm1;
  i,j:integer;

implementation

uses  Unit2;

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
Form2.Show;
  j:=0;
  While J<6 do
    begin
       laymda[j]:=1/vre_kadr[j]*1000000;
       form2.Memo1.Lines.Add(ччч= '+inttostr(kadr[j])+']= 1 / '+floattostr(vre_kadr[j])+' * 1000000='+floattostrF(laymda[j],ffNumber,7,2));
       inc(j);
    end;


  j:=0;
  While J<6 do
      begin
      s[j]:=laymda[j]*vre_kadr[j]*2;
      form2.Memo1.Lines.Add('S['+inttostr(kadr[j])+']= '+ floattostrF(laymda[j],ffNumber,7,2)+' * 2 * '+floattostr(vre_kadr[j])+'= '+floattostrF(S[j],ffFixed	,9,9));
      inc(j)
    end;


//Обратите винимание... значение переменной S[j] задавалось 
//используя другие переменные (    s[5]:=laymda[5]*vre_kadr[5]*2;  где   laymda[5]= 812,74;   vre_kadr[5]=1230.4 ) 
//и результат "2000000"  в то время как "s[5]:=812.74*2*1230.4" = 1999990,592
//с чем это связанно и как это исправить????


          ShowMessage(FloatToStr(s[5]));
          s[5]:=812.74*2*1230.4;
          ShowMessage(FloatToStr(s[5]));

end;

end.

[Stilet]

Ты неверно число взял, ты его округлил. У тебя laymda[5]=812.74382315,
а ты до второго знака округлил.

Короче округлять тебе нужно, скажем функой FloatToStrF

[OLEG'arh]

:-)

обратите внимание
Я не переменные округляю, а результат при выводе в memo1 причём в этом же коде (вы можете увидеть) как функцией FloatToStr, так и FloatToStrF.

что касается FloatToStrF, пробовал пазные параметры:
ffGeneral Основной числовой формат
ffExponent Научный формат
ffFixed Формат с фиксированной запятой
ffNumber Числовой формат
ffCurrency Монетарный формат

Коллеги, попробуйте мож я мелочь какую пропускаю???
или как то по другому сделать можноюююю

[Stilet]

Ниче я не понял, в чем проблема?
Ты выводиш одно а сетушь на другое.

Можеш нормально обьяснить какой именно результат правильный по твоему мнению.

[OLEG'arh]

ну а 812.74*2*1230.4 сколько будет?))) (s[j]:=laymda[j]*vre_kadr[j]*2; при j=5)

1999990,592 правильный

там же всё решение в мемо выводится, обратите пожалуйсто внимание.
только результат "2", а мне нужно что бы вывел "1999990,592".