[Moka]

Здравствуйте! Я должна переделать программу записанный в 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

lmikle: пользуемся тегами! Аристарх, чего не поправил???

[Aristarh Dark]

Могу помочь за 50р. на телефон...

[Assistant]

Гы, ностальгия по бейсику нахлынула на меня чота

P.S.: раз человек уже просит 50 рублей, не будем у него их отнимать ))

[Aristarh Dark]

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

lmikle: пользуемся тегами! Аристарх, чего не поправил???

А я не считаю ЭТО кодом

[PhoeniX]

Сообщение от Aristarh Dark

А я не считаю ЭТО кодом

Спасибо, поржал

По сабжу - сделаю за спасибо, или, если топикстартер из Питера - за бутылочку Туборг Блэка Если интересует - "контакты в подписи" ©

[Assistant]

Сообщение от DJ PhoeniX

за бутылочку Туборг Блэка

ага, а ещё меня тут алкашом называли

[Aristarh Dark]

Тему перенес т.к. ТС со времени поста активности не проявлял.
Вот тут можете продолжать про пиво