[KPOLLIUDZE]

Доброго времени суток, Delphi занимаюсь совсем недавно до этого был только базовый курс basic, испытываю большие трудности в программировании, так что за кривизну кода простите.
проблема в том, что массив не хочет считаться с плавающей запятой, хотя и задан в Real, прошу помочь, будьте добры

Код:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    RadioButton3: TRadioButton;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    Edit6: TEdit;
    Edit7: TEdit;
    Edit8: TEdit;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Edit9: TEdit;
    Label12: TLabel;
    Button1: TButton;
    Label15: TLabel;
    Label16: TLabel;
    Label17: TLabel;
    Label13: TLabel;
    StringGrid1: TStringGrid;
    Edit10: TEdit;
    Label14: TLabel;
    Label18: TLabel;
    Edit11: TEdit;
    procedure Button1Click(Sender: TObject);
    private
    { Private declarations }
  public
    { Public declarations }
  end;

var  Qor, Qimr, H, x, y, R, t0, Qhr, Qe, Qh, Qh1, q, q1, B, C, Qbr, Knom: Real;
k : array[1..24] of real;
i: integer;
  Form1: TForm1;

implementation

{$R *.dfm}


procedure TForm1.Button1Click(Sender: TObject);
begin
for i:= 1 to 24 do
if Length(StringGrid1.Cells[i, 0]) <>0
then k[i] := StrToInt(StringGrid1.Cells[i,0])
else k[i] := 0;
Qor := StrTOFloat(Edit1.Text);
Qimr := StrTOFloat(Edit2.Text);
H := StrTOFloat(Edit3.Text);
x := StrTOFloat(Edit4.Text);
y := StrTOFloat(Edit5.Text);
R := StrTOFloat(Edit6.Text);
t0 := StrTOFloat(Edit7.Text);
Qhr := StrTOFloat(Edit8.Text);
Qe := StrTOFloat(Edit9.Text);
Qbr := StrTOFloat(Edit10.Text);
Knom := StrTOFloat(Edit11.Text);
if (RadioButton1.Checked=True) then
begin
for i:=1 to 24 do
Qh := Qe+Qor*((1+R*Exp(2*ln(k[i])))/(1+R))+H*exp(y*ln(k[i]));
Qh1 := Qe+Qor*((1+R*Exp(2*ln(k[i])))/(1+R));
Label13.Caption:=FloatToStr(Qh1);
Label17.Caption:=FloatToStr(Qh);
end;
if (RadioButton2.Checked=True) then
begin
for i:=1 to 24 do
Qh :=Qe+Qhr*((1+R*Exp(2*ln(k[i])))/(1+R))+2*(Qimr-36)*Exp(y*ln(k[i]))+H*Exp(y*ln(k[i]));
Qh1 :=Qe+Qhr*((1+R*Exp(2*ln(k[i])))/(1+R))+2*(Qimr-36)*Exp(y*ln(k[i]));
Label13.Caption:=FloatToStr(Qh1);
Label17.Caption:=FloatToStr(Qh);
end;
if (RadioButton3.Checked=True) then
begin
for i:=1 to 24 do
Qh :=Qe+Qhr*((1+R*Exp(2*ln(k[i])))/(1+R))+2*(Qimr-36)*Exp(y*ln(k[i]))+H*Exp(y*ln(k[i]));
q :=Qh+0.15*(Qh-Qhr);
Qh1 :=Qe+Qhr*((1+R*Exp(2*ln(k[i])))/(1+R))+2*(Qimr-36)*Exp(y*ln(k[i]));
q1 :=Qh1+0.15*(Qh1-Qhr);
Label13.Caption:=FloatToStr(q1);
Label17.Caption:=FloatToStr(q);
end;
end;
end.

[Bargest]

1) Это не код, это какой-то треш. Оформлять код надо вменяемо! Уж после бейсика-то можно к этому привыкнуть. Оформление кода - единственное, чему бейсик хоть чуть-чуть приучает.
2) Сразу вижу отсутствие операторных скобок. Или неверное их проставление.
3) Объясни нормально, что значит "не хочет считаться".

[KPOLLIUDZE]

"не хочет считаться" имеется ввиду - нормально компелирует, но при введении цифр с запятой выдает ошибку, что не может проводить расчеты с цифрами такого типа

[poli-smen]

Сообщение от KPOLLIUDZE

"не хочет считаться" имеется ввиду - нормально компелирует, но при введении цифр с запятой выдает ошибку, что не может проводить расчеты с цифрами такого типа

А в разделителе дробной и целой части не перепутал запятую с точкой?

[KPOLLIUDZE]

и так, и так пробовал, результат один - ошибка

[poli-smen]

Сообщение от KPOLLIUDZE

и так, и так пробовал, результат один - ошибка

В качестве разделителя целой и дробной части нужно использовать только тот, что настроен в Windows-е (в Языках и региональных стандартах).
На каком числе и в каком месте выдаёт ошибку?

[KPOLLIUDZE]

на первом же числе где есть разделение

[KPOLLIUDZE]

вот что я обычно вижу

[poli-smen]

Сообщение от KPOLLIUDZE

вот что я обычно вижу

Я здесь вижу точку в качестве разделителя целой и дробной части. В русском региональном стандарте используется запятая.

[Alegun]

Кстати, ещё и в циклах крутится лишь одна строчка, а по коду видно что должны две - не хватает конструкций begin...end;

[poli-smen]

Сообщение от Alegun

Кстати, ещё и в циклах крутится лишь одна строчка, а по коду видно что должны две - не хватает конструкций begin...end;

Кстати да, по логике вещей во втором и третьем цикле должно захватываться две строки, а в четвёртом цикле даже четыре строки вместо одной.
Но пока ТС что-то затих...

[M.A.D.M.A.N.]

А это случайно не "Пахом Поехавший" перерегался?

[KPOLLIUDZE]

прошу прощения, что не поблагодарил сразу, кое что поправил, работает, но не думаю, что код стал менее кривым) СПАСИБО!
хотя кроме благодарности есть небольшой вопрос, вот этот код крутится в цикле и выводит в столбец несколько цифр

Код:

if Qh>Qo then begin
Label7.Caption:=Label7.Caption+#10+'!'+FloatToStrF(Qh, ffFixed,5,3)+' '+'при K='+FloatToStr(k[i]);
Label7.Font.Color := clRed;
end else begin
Label7.Caption:=Label7.Caption+#10+FloatToStrF(Qh, ffFixed,5,3);
Label7.Font.Color := clGreen;
end;

я наивно полагал, что они будут менять цвет по одной, но весь столбец принимает цвет в зависимости от последнего числа, можно ли это как то поправить?

[Страдалецъ]

Нельзя. Компонент Label - одноцветный. Если хочется красоты, например как на данном форуме, нужно использовать подходящие компоненты. TLabel для этого точно не подходит.

[Bargest]

TLabel для этого точно не подходит.

Взять какой-нибудь RichEdit/RichView, к примеру.
Или сделать кучу динамически создаваемых Label'ов.