Форум программистов, компьютерный форум, киберфорум
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.83/6: Рейтинг темы: голосов - 6, средняя оценка - 4.83
4 / 4 / 0
Регистрация: 30.06.2011
Сообщений: 175
1

Цикл в delphi. Сделать переменную константой в цикле

22.11.2011, 01:09. Просмотров 1154. Ответов 4
Метки нет (Все метки)

Вообщем у меня цикл - там огромные формулы...

и в итоге с каждым началом нового действия цикла увеличивается переменная ri

но мне нужно еще в этом цикле выдернуть 3 переменные

if ri=r1 then r:=a else
if ri=r2 then r:=b else
if ri=r3 then r:=c;

Но проблема в том, что при различных вводимых данных - чистых r1, r2, r3 мы не получим..
даже если будет маленький шаг ri
то есть ri=никогда не будет чисто равен r1,

к примеру ri = 0,0000945
а следующий ri = 0,0000947 (это не из-за шага, просто дело в формулах)

при этом r1 = у меня скажем 0,0000946

получается ri=r1 - мы никогда в чистом виде не получим...

но тогда я прописал бы как только в цикле ri>r1, так сразу r:=a, но вся жопа в том, что цикл продолжается, и он мне выдаст по идеи ошибку - так как все последующие ri, тоже будут больше r1

Что делать? Чтобы железно прописать r:=a и в дальнейшем выполнении цикла этот параметр не изменялся?
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
22.11.2011, 01:09
Ответы с готовыми решениями:

Цикл: как работает цикл в цикле
Не могу понять как работает цикл в цикле например: repeat begin lalalala if что-то1<>100 then...

Решил сделать игровой автомат сделал три лейбла и в них запихнул цикл из чисел. Как сделать что бы цикл остано
Решил сделать игровой автомат сделал три лейбла и в них запихнул цикл из чисел. Как сделать что бы...

Как обычную переменную сделать константой
Как можно константой сделать обычную переменную, а то хочу создать матрицу nxn а мне VS требует что...

Как обычную переменную на время сделать константой?
Как обычную переменную на время сделать константой?

4
13052 / 5838 / 1705
Регистрация: 19.09.2009
Сообщений: 8,807
22.11.2011, 01:29 2
Можно проверять равенство с некоторой точностью:
Delphi
1
2
3
4
5
6
7
8
9
10
const
  //Точность до 6-го знака после запятой.
  Eps = 1e-6;
...
begin
...
if Abs(ri - r1) <= Eps then r := a else
if Abs(ri - r2) <= Eps then r := b else
if Abs(ri - r3) <= Eps then r := c;
...
1
35 / 15 / 11
Регистрация: 19.11.2011
Сообщений: 45
22.11.2011, 11:41 3
Делфятники даже функцию сделали в модуле math CompareValue чтоб сравнивать приблизительно)
0
13052 / 5838 / 1705
Регистрация: 19.09.2009
Сообщений: 8,807
22.11.2011, 12:29 4
Это да. Но в данном случае эти функции (это группа перегружаемых функций) не подойдут. Точность сравнения в этих функциях задаётся через эти параметры:
Delphi
1
2
3
4
5
const
  FuzzFactor = 1000;
  ExtendedResolution = 1E-19 * FuzzFactor; //Для типа Extended.
  DoubleResolution   = 1E-15 * FuzzFactor; //Для типа Double.
  SingleResolution   = 1E-7 * FuzzFactor; //Для типа Single.
Т. е., судя по числам в задаче:
Цитата Сообщение от adelbaew Посмотреть сообщение
к примеру ri = 0,0000945
а следующий ri = 0,0000947 (это не из-за шага, просто дело в формулах)
для типов Extended и Double диапазон применяемый в SameValue() слишком маленький, а для типа Single - будет слишком большим.
Поэтому в представленной задаче всё же лучше вручную погрешность задавать.
1
4 / 4 / 0
Регистрация: 30.06.2011
Сообщений: 175
23.11.2011, 10:22  [ТС] 5
что то у меня не идет ...

попробую выкинуть программу на показ

Delphi
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
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls,Math, ExtCtrls;
 
type
  TForm1 = class(TForm)
    ScrollBox1: TScrollBox;
    Button1: TButton;
    OpenPictureDialog1: TOpenDialog;
    Image1: TImage;
    Button2: TButton;
    SaveDialog1: TSaveDialog;
    Label1: TLabel;
    Edit2: TEdit;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Edit3: TEdit;
    Edit4: TEdit;
    Label9: TLabel;
    Label10: TLabel;
    RadioGroup1: TRadioGroup;
    Label11: TLabel;
    Button3: TButton;
    Label12: TLabel;
    Label13: TLabel;
    Label14: TLabel;
    Label15: TLabel;
    Label16: TLabel;
    Edit5: TEdit;
    Edit6: TEdit;
    Label2: TLabel;
    Edit7: TEdit;
    Label19: TLabel;
    Edit1: TEdit;
    Edit8: TEdit;
    Label20: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
 
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
begin
   if openpicturedialog1.Execute then
image1.Picture.LoadFromFile(openpicturedialog1.FileName);
end;
 
procedure TForm1.Button2Click(Sender: TObject);
begin
if savedialog1.Execute then
image1.Picture.SaveToFile(savedialog1.FileName);
end;
 
 
 
procedure TForm1.Button3Click(Sender: TObject);
 
          var
 
          u,o,w,ix1,rx,r,e,px1  : real;
          stepen,rxprom,stepen1,stepen2  : real;  // вспомогательные переменные
          delp, deli: real;  //  размерные величины безразмерного давления и импульса
          stepen3, stepen4: real; // вспомогательные переменные
          peremen1,peremen2, v, pr: real;  // пробит функция
          ri: real; // условное вероятность поражения
          r1,r2,r3: real; // радиусы-риски, которые задаются
          a,b,c: real; // реальные радиусы
          ri2, ri3: real; // еще вероятности
 
          const
  //Точность до 3-го знака после запятой.
  Eps = 1e-3;
 
begin
 
         u := StrToFloat(Edit4.Text); // скорость фронта пламени
         e := StrToFloat(Edit3.Text);  //энергозапас
 
         r1 := StrToFloat(Edit7.Text);  // радиус - риск ближний к центру
         r2 := StrToFloat(Edit5.Text);  // радиус - риск средний
         r3 := StrToFloat(Edit6.Text);  // радиус - риск дальный к центру
 
         ri2 := StrToFloat(Edit1.Text);  //вероятность воспламения
         ri3 := StrToFloat(Edit8.Text);  //вероятность из дерева события
 
 
 
 
 
         e:=e*1000000;    //энергозапас в Джоулях
 
         if RadioGroup1.ItemIndex=0 then
 
         o:=7 else o:=4; // степень расширения
 
         w:= u * ((o-1)/o) /340 ;
 
         stepen:= 1/3;
         stepen1:=3;
         stepen2:=2/3;
 
 
         r:=0;
         while r<=1000
         do
 
 
 
begin
 
         rxprom:= (e / 101325 );
         rx:= r / Power(rxprom,stepen);
         if rx<=0.34 then rx:=0.34
         else rx:=rx;
         // безразмерное расстояние
 
         ix1:= w * (1-0.4*w)* ((0.06/rx)+(0.01/(sqr(rx)))-(0.0025/(Power(rx,stepen1))));
         px1:= ((sqr(u))/(sqr(340)) )* ((o-1)/o) * ((0.83/rx)-(0.14/(sqr(rx))));
         // величины безразмерного давления и импульса
 
         delp:=px1*101325;
         deli:=(ix1*power(101325,stepen2)*power(e,stepen1))/340;
         // размерные величины безразмерного давления и импульса
 
         stepen3:=7.4;
         stepen4:=11.3;
 
         peremen1:=40000/delp;
         peremen2:=460/deli;
 
         v:=Power(peremen1,stepen3)+Power(peremen2,stepen4);
         pr:=5-0.22*ln(v);  // пробит функция
 
 
 
         if pr<=0 then ri:=0   // условная вероятность поражения
         else
 
       begin
if (pr>0) and (pr<2.67) then ri:=0+((pr-0)/(2.67-0))*(0.01-0) else
if (pr>=2.67) and (pr<2.95) then ri:=0.01+((pr-2.67)/(2.95-2.67))*(0.01) else
if (pr>=2.95) and (pr<3.12) then ri:=0.02+((pr-2.95)/(3.12-2.95))*(0.01) else
if (pr>=3.12) and (pr<3.25) then ri:=0.03+((pr-3.12)/(3.25-3.12))*(0.01) else
if (pr>=3.25) and (pr<3.36) then ri:=0.04+((pr-3.25)/(3.36-3.25))*(0.01) else
if (pr>=3.36) and (pr<3.45) then ri:=0.05+((pr-3.36)/(3.45-3.36))*(0.01) else
if (pr>=3.45) and (pr<3.52) then ri:=0.06+((pr-3.45)/(3.52-3.45))*(0.01) else
if (pr>=3.52) and (pr<3.59) then ri:=0.07+((pr-3.52)/(3.59-3.52))*(0.01) else
if (pr>=3.59) and (pr<3.66) then ri:=0.08+((pr-3.59)/(3.66-3.59))*(0.01) else
if (pr>=3.66) and (pr<3.72) then ri:=0.09+((pr-3.66)/(3.72-3.66))*(0.01) else
 
if (pr>=3.72) and (pr<3.77) then ri:=0.10+((pr-3.72)/(3.77-3.72))*(0.01) else
if (pr>=3.77) and (pr<3.82) then ri:=0.11+((pr-3.77)/(3.82-3.77))*(0.01) else
if (pr>=3.82) and (pr<3.87) then ri:=0.12+((pr-3.82)/(3.87-3.82))*(0.01) else
if (pr>=3.87) and (pr<3.92) then ri:=0.13+((pr-3.87)/(3.92-3.87))*(0.01) else
if (pr>=3.92) and (pr<3.96) then ri:=0.14+((pr-3.92)/(3.96-3.92))*(0.01) else
if (pr>=3.96) and (pr<4.01) then ri:=0.15+((pr-3.96)/(4.01-3.96))*(0.01) else
if (pr>=4.01) and (pr<4.05) then ri:=0.16+((pr-4.01)/(4.05-4.01))*(0.01) else
if (pr>=4.05) and (pr<4.08) then ri:=0.17+((pr-4.05)/(4.08-4.05))*(0.01) else
if (pr>=4.08) and (pr<4.12) then ri:=0.18+((pr-4.08)/(4.12-4.08))*(0.01) else
if (pr>=4.12) and (pr<4.16) then ri:=0.19+((pr-4.12)/(4.16-4.12))*(0.01) else
 
if (pr>=4.16) and (pr<4.19) then ri:=0.20+((pr-4.16)/(4.19-4.16))*(0.01) else
if (pr>=4.19) and (pr<4.23) then ri:=0.21+((pr-4.19)/(4.23-4.19))*(0.01) else
if (pr>=4.23) and (pr<4.26) then ri:=0.22+((pr-4.23)/(4.26-4.23))*(0.01) else
if (pr>=4.26) and (pr<4.29) then ri:=0.23+((pr-4.26)/(4.29-4.26))*(0.01) else
if (pr>=4.29) and (pr<4.33) then ri:=0.24+((pr-4.29)/(4.33-4.29))*(0.01) else
if (pr>=4.33) and (pr<4.36) then ri:=0.25+((pr-4.33)/(4.36-4.33))*(0.01) else
if (pr>=4.36) and (pr<4.39) then ri:=0.26+((pr-4.36)/(4.39-4.36))*(0.01) else
if (pr>=4.39) and (pr<4.42) then ri:=0.27+((pr-4.39)/(4.42-4.39))*(0.01) else
if (pr>=4.42) and (pr<4.45) then ri:=0.28+((pr-4.42)/(4.45-4.42))*(0.01) else
if (pr>=4.45) and (pr<4.48) then ri:=0.29+((pr-4.45)/(4.48-4.45))*(0.01) else
 
if (pr>=4.48) and (pr<4.50) then ri:=0.30+((pr-4.48)/(4.50-4.48))*(0.01) else
if (pr>=4.50) and (pr<4.53) then ri:=0.31+((pr-4.50)/(4.53-4.50))*(0.01) else
if (pr>=4.53) and (pr<4.56) then ri:=0.32+((pr-4.53)/(4.56-4.53))*(0.01) else
if (pr>=4.56) and (pr<4.59) then ri:=0.33+((pr-4.56)/(4.59-4.56))*(0.01) else
if (pr>=4.59) and (pr<4.61) then ri:=0.34+((pr-4.59)/(4.61-4.59))*(0.01) else
if (pr>=4.61) and (pr<4.64) then ri:=0.35+((pr-4.61)/(4.64-4.61))*(0.01) else
if (pr>=4.64) and (pr<4.67) then ri:=0.36+((pr-4.64)/(4.67-4.64))*(0.01) else
if (pr>=4.67) and (pr<4.69) then ri:=0.37+((pr-4.67)/(4.69-4.67))*(0.01) else
if (pr>=4.69) and (pr<4.72) then ri:=0.38+((pr-4.69)/(4.72-4.69))*(0.01) else
if (pr>=4.72) and (pr<4.75) then ri:=0.39+((pr-4.72)/(4.75-4.72))*(0.01) else
 
if (pr>=4.75) and (pr<4.77) then ri:=0.40+((pr-4.75)/(4.77-4.75))*(0.01) else
if (pr>=4.77) and (pr<4.80) then ri:=0.41+((pr-4.77)/(4.80-4.77))*(0.01) else
if (pr>=4.80) and (pr<4.82) then ri:=0.42+((pr-4.80)/(4.82-4.80))*(0.01) else
if (pr>=4.82) and (pr<4.85) then ri:=0.43+((pr-4.82)/(4.85-4.82))*(0.01) else
if (pr>=4.85) and (pr<4.87) then ri:=0.44+((pr-4.85)/(4.87-4.85))*(0.01) else
if (pr>=4.87) and (pr<4.90) then ri:=0.45+((pr-4.87)/(4.90-4.87))*(0.01) else
if (pr>=4.90) and (pr<4.92) then ri:=0.46+((pr-4.90)/(4.92-4.90))*(0.01) else
if (pr>=4.92) and (pr<4.95) then ri:=0.47+((pr-4.92)/(4.95-4.92))*(0.01) else
if (pr>=4.95) and (pr<4.97) then ri:=0.48+((pr-4.95)/(4.97-4.95))*(0.01) else
if (pr>=4.97) and (pr<5.00) then ri:=0.49+((pr-4.97)/(5.00-4.97))*(0.01) else
 
if (pr>=5.00) and (pr<5.03) then ri:=0.50+((pr-5.00)/(5.03-5.00))*(0.01) else
if (pr>=5.03) and (pr<5.05) then ri:=0.51+((pr-5.03)/(5.05-5.03))*(0.01) else
if (pr>=5.05) and (pr<5.08) then ri:=0.52+((pr-5.05)/(5.08-5.05))*(0.01) else
if (pr>=5.08) and (pr<5.10) then ri:=0.53+((pr-5.08)/(5.10-5.08))*(0.01) else
if (pr>=5.10) and (pr<5.13) then ri:=0.54+((pr-5.10)/(5.13-5.10))*(0.01) else
if (pr>=5.13) and (pr<5.15) then ri:=0.55+((pr-5.13)/(5.15-5.13))*(0.01) else
if (pr>=5.15) and (pr<5.18) then ri:=0.56+((pr-5.15)/(5.18-5.15))*(0.01) else
if (pr>=5.18) and (pr<5.20) then ri:=0.57+((pr-5.18)/(5.20-5.18))*(0.01) else
if (pr>=5.20) and (pr<5.23) then ri:=0.58+((pr-5.20)/(5.23-5.20))*(0.01) else
if (pr>=5.23) and (pr<5.25) then ri:=0.59+((pr-5.23)/(5.25-5.23))*(0.01) else
 
if (pr>=5.25) and (pr<5.28) then ri:=0.60+((pr-5.25)/(5.28-5.25))*(0.01) else
if (pr>=5.28) and (pr<5.31) then ri:=0.61+((pr-5.28)/(5.31-5.28))*(0.01) else
if (pr>=5.31) and (pr<5.33) then ri:=0.62+((pr-5.31)/(5.33-5.31))*(0.01) else
if (pr>=5.33) and (pr<5.36) then ri:=0.63+((pr-5.33)/(5.36-5.33))*(0.01) else
if (pr>=5.36) and (pr<5.39) then ri:=0.64+((pr-5.36)/(5.39-5.36))*(0.01) else
if (pr>=5.39) and (pr<5.41) then ri:=0.65+((pr-5.39)/(5.41-5.39))*(0.01) else
if (pr>=5.41) and (pr<5.44) then ri:=0.66+((pr-5.41)/(5.44-5.41))*(0.01) else
if (pr>=5.44) and (pr<5.47) then ri:=0.67+((pr-5.44)/(5.47-5.44))*(0.01) else
if (pr>=5.47) and (pr<5.50) then ri:=0.68+((pr-5.47)/(5.50-5.47))*(0.01) else
if (pr>=5.50) and (pr<5.52) then ri:=0.69+((pr-5.50)/(5.52-5.50))*(0.01) else
 
if (pr>=5.52) and (pr<5.55) then ri:=0.70+((pr-5.52)/(5.55-5.52))*(0.01) else
if (pr>=5.55) and (pr<5.58) then ri:=0.71+((pr-5.55)/(5.58-5.55))*(0.01) else
if (pr>=5.58) and (pr<5.61) then ri:=0.72+((pr-5.58)/(5.61-5.58))*(0.01) else
if (pr>=5.61) and (pr<5.64) then ri:=0.73+((pr-5.61)/(5.64-5.61))*(0.01) else
if (pr>=5.64) and (pr<5.67) then ri:=0.74+((pr-5.64)/(5.67-5.64))*(0.01) else
if (pr>=5.67) and (pr<5.71) then ri:=0.75+((pr-5.67)/(5.71-5.67))*(0.01) else
if (pr>=5.71) and (pr<5.74) then ri:=0.76+((pr-5.71)/(5.74-5.71))*(0.01) else
if (pr>=5.74) and (pr<5.77) then ri:=0.77+((pr-5.74)/(5.77-5.74))*(0.01) else
if (pr>=5.77) and (pr<5.81) then ri:=0.78+((pr-5.77)/(5.81-5.77))*(0.01) else
if (pr>=5.81) and (pr<5.84) then ri:=0.79+((pr-5.81)/(5.84-5.81))*(0.01) else
 
if (pr>=5.84) and (pr<5.88) then ri:=0.80+((pr-5.84)/(5.88-5.84))*(0.01) else
if (pr>=5.88) and (pr<5.92) then ri:=0.81+((pr-5.88)/(5.92-5.88))*(0.01) else
if (pr>=5.92) and (pr<5.95) then ri:=0.82+((pr-5.92)/(5.95-5.92))*(0.01) else
if (pr>=5.95) and (pr<5.99) then ri:=0.83+((pr-5.95)/(5.99-5.95))*(0.01) else
if (pr>=5.99) and (pr<6.04) then ri:=0.84+((pr-5.99)/(6.04-5.99))*(0.01) else
if (pr>=6.04) and (pr<6.08) then ri:=0.85+((pr-6.04)/(6.08-6.04))*(0.01) else
if (pr>=6.08) and (pr<6.13) then ri:=0.86+((pr-6.08)/(6.13-6.08))*(0.01) else
if (pr>=6.13) and (pr<6.18) then ri:=0.87+((pr-6.13)/(6.18-6.13))*(0.01) else
if (pr>=6.18) and (pr<6.23) then ri:=0.88+((pr-6.18)/(6.23-6.18))*(0.01) else
if (pr>=6.23) and (pr<6.28) then ri:=0.89+((pr-6.23)/(6.28-6.23))*(0.01) else
 
if (pr>=6.28) and (pr<6.34) then ri:=0.90+((pr-6.28)/(6.34-6.28))*(0.01) else
if (pr>=6.34) and (pr<6.41) then ri:=0.91+((pr-6.34)/(6.41-6.34))*(0.01) else
if (pr>=6.41) and (pr<6.48) then ri:=0.92+((pr-6.41)/(6.48-6.41))*(0.01) else
if (pr>=6.48) and (pr<6.55) then ri:=0.93+((pr-6.48)/(6.55-6.48))*(0.01) else
if (pr>=6.55) and (pr<6.64) then ri:=0.94+((pr-6.55)/(6.64-6.55))*(0.01) else
if (pr>=6.64) and (pr<6.75) then ri:=0.95+((pr-6.64)/(6.75-6.64))*(0.01) else
if (pr>=6.75) and (pr<6.88) then ri:=0.96+((pr-6.75)/(6.88-6.75))*(0.01) else
if (pr>=6.88) and (pr<7.05) then ri:=0.97+((pr-6.88)/(7.05-6.88))*(0.01) else
if (pr>=7.05) and (pr<7.33) then ri:=0.98+((pr-7.05)/(7.33-7.05))*(0.01) else
if (pr=7.33) then ri:=0.990 else
 
if (pr>=7.33) and (pr<7.37) then ri:=0.990+((pr-7.33)/(7.37-7.33))*(0.001) else
if (pr>=7.37) and (pr<7.41) then ri:=0.991+((pr-7.37)/(7.41-7.37))*(0.001) else
if (pr>=7.41) and (pr<7.46) then ri:=0.992+((pr-7.41)/(7.46-7.41))*(0.001) else
if (pr>=7.46) and (pr<7.51) then ri:=0.993+((pr-7.46)/(7.51-7.46))*(0.001) else
if (pr>=7.51) and (pr<7.58) then ri:=0.994+((pr-7.51)/(7.58-7.51))*(0.001) else
if (pr>=7.58) and (pr<7.65) then ri:=0.995+((pr-7.58)/(7.65-7.58))*(0.001) else
if (pr>=7.65) and (pr<7.75) then ri:=0.996+((pr-7.65)/(7.75-7.65))*(0.001) else
if (pr>=7.75) and (pr<7.88) then ri:=0.997+((pr-7.75)/(7.88-7.75))*(0.001) else
if (pr>=7.88) and (pr<8.09) then ri:=0.998+((pr-7.88)/(8.09-7.88))*(0.001) else
if (pr=8.09) then ri:=0.999 else
if (pr>8.09) then ri:=1.0;
             end;
 
           ri:=ri*ri2*ri3;
 
if Abs(ri - r1) <= Eps then r := a;
if Abs(ri - r2) <= Eps then r := b;
if Abs(ri - r3) <= Eps then r := c;
 
 
 
           r:=r+1
 
end;
 
 
 
 
 
 
 
                    Label13.Caption := 'a =';
Label13.Caption := Label13.Caption +
                   FloatToStrF(a,ffGeneral,7,3);
 
                            Label14.Caption := 'b =';
Label14.Caption := Label14.Caption +
                   FloatToStrF(b,ffGeneral,7,3);
 
 
                     Label16.Caption := 'c =';
Label16.Caption := Label16.Caption +
                   FloatToStrF(c,ffGeneral,7,3);
 
 
 
 end;
 
end.
Может найдете почему программа почему то заедает? и глючит

Добавлено через 12 часов 10 минут
Помогите пожалуйста,если знаете как..
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
23.11.2011, 10:22

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Как сделать цикл в цикле?
Только начал изучать язык, так что пожалуйста без подколов. Как реализовать такой цикл в python? ...

Как сделать цикл в цикле
Здравствуйте.Помогите разобраться на сайте в цикле выводиться модалка а в модалке в цикле...

Maple: как сделать цикл в цикле?
Здравствуйте! Помогите, пожалуйста! Не могу никак справиться с казалось бы простой задачей... Есть...

Как сделать переменную, инициализированную в цикле for, досупную вне этого цикла?
Здравствуйте. Подскажите как сделать чтобы переменная которая была инициализированна в цикле for...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
5
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.