|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Как переписать формулу с Q Basik на Delphi?
Здравствуйте! Я должна переделать программу записанный в 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: пользуемся тегами! Аристарх, чего не поправил??? |