Как можно переписать формулу ?

[Molia]

Здравствуйте, мне нужно переделать программу с Q Basik на Delphi... Вот, с формулой никак не получается.... Если кто знает, помогите пожалуйста?

24 IF Tmin > -10 THEN 130
26 IF Tmin > -20 THEN 120
28 IF Tmin > -30 THEN 110
32 IF Tmin > -40 THEN 100
36 IF Tmin > -50 THEN 90
38 IF Tmin > -60 THEN 80
40 IF Tmin > -70 THEN 70
50 INPUT "Введите поправку при -70 град.  ", PM70
70 INPUT "Введите поправку при -60 град.  ", PM60
80 INPUT "Введите поправку при -50 град.  ", PM50
90 INPUT "Введите поправку при -40 град.  ", PM40
100 INPUT "Введите поправку при -30 град.  ", PM30
110 INPUT "Введите поправку при -20 град.  ", PM20
120 INPUT "Введите поправку при -10 град.  ", PM10
130 INPUT "Введите поправку при 0 град.  ", P0
140 INPUT "Введите поправку при 10 град.  ", P10
142 LET q = P10
145 IF Tmax < 20 THEN 202
150 INPUT "Введите поправку при 20 град.  ", P20
152 LET q = P20
155 IF Tmax < 30 THEN 202
160 INPUT "Введите поправку при 30 град.  ", P30
162 LET q = P30
165 IF Tmax < 40 THEN 202
170 INPUT "Введите поправку при 40 град.  ", P40
172 LET q = P40
175 IF Tmax < 50 THEN 202
180 INPUT "Введите поправку при 50 град.  ", P50
182 LET q = P50
185 IF Tmax < 60 THEN 202
190 INPUT "Введите поправку при 60 град.  ", P60
192 LET q = P60
195 IF Tmax < 70 THEN 202
200 INPUT "Введите поправку при 70 град.  ", P70
201 LET q = P70
202 CLS
205 PRINT , "от", "до", "поправка", "точка перехода"
207 LET k = 0
210 FOR t = Tmin TO Tmax STEP .1
215
220 IF t >= -70 AND t <= -60 THEN LET p = (INT(10 * PM70 + (PM60 - PM70) * (t + 70) + .5)) / 10
230 IF t >= -60 AND t <= -50 THEN LET p = (INT(10 * PM60 + (PM50 - PM60) * (t + 60) + .5)) / 10
240 IF t >= -50 AND t <= -40 THEN LET p = (INT(10 * PM50 + (PM40 - PM50) * (t + 50) + .5)) / 10
250 IF t >= -40 AND t <= -30 THEN LET p = (INT(10 * PM40 + (PM30 - PM40) * (t + 40) + .5)) / 10
260 IF t >= -30 AND t <= -20 THEN LET p = (INT(10 * PM30 + (PM20 - PM30) * (t + 30) + .5)) / 10
270 IF t >= -20 AND t <= -10 THEN LET p = (INT(10 * PM20 + (PM10 - PM20) * (t + 20) + .5)) / 10
280 IF t >= -10 AND t <= 0 THEN LET p = (INT(10 * PM10 + (P0 - PM10) * (t + 10) + .5)) / 10
290 IF t >= 0 AND t <= 10 THEN LET p = (INT(10 * P0 + (P10 - P0) * (t) + .5)) / 10
300 IF t >= 10 AND t <= 20 THEN LET p = (INT(10 * P10 + (P20 - P10) * (t - 10) + .5)) / 10
310 IF t >= 20 AND t <= 30 THEN LET p = (INT(10 * P20 + (P30 - P20) * (t - 20) + .5)) / 10
320 IF t >= 30 AND t <= 40 THEN LET p = (INT(10 * P30 + (P40 - P30) * (t - 30) + .5)) / 10
330 IF t >= 40 AND t <= 50 THEN LET p = (INT(10 * P40 + (P50 - P40) * (t - 40) + .5)) / 10
340 IF t >= 50 AND t <= 60 THEN LET p = (INT(10 * P50 + (P60 - P50) * (t - 50) + .5)) / 10
350 IF t >= 60 AND t <= 70 THEN LET p = (INT(10 * P60 + (P70 - P60) * (t - 60) + .5)) / 10
355 IF p <> ps THEN SOUND ((t + 90) * 3), 1
357 IF k = 0 THEN 365
360 IF p <> ps THEN PRINT , (INT(ts * 10 + .5)) / 10, (INT((t - .1) * 10 + .5)) / 10, ps, t
365 IF p <> ps THEN LET a = t
367 IF t > (Tmax - .1) AND t < (Tmax + .1) THEN PRINT , INT(a * 10 + .5) / 10, Tmax, q
368 LET k = k + 1
370 IF p <> ps THEN LET ts = t
380 LET ps = p
390 NEXT t
400 BEEP

___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.