[KPOLLIUDZE]

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

Код:

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 94 95 96 97 98 99 100 101 102 103 104 105 106

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]

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

Код:

1 2 3 4 5 6 7

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'ов.