|
|
Регистрация | << Правила форума >> | 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: пользуемся тегами! Аристарх, чего не поправил??? |
#2
|
||||
|
||||
Могу помочь за 50р. на телефон...
Некоторые программисты настолько ленивы, что сразу пишут рабочий код. Если вас наказали ни за что - радуйтесь: вы ни в чем не виноваты. |
#3
|
|||
|
|||
Гы, ностальгия по бейсику нахлынула на меня чота
P.S.: раз человек уже просит 50 рублей, не будем у него их отнимать )) взялся из неоткуда, ничего не прошу, помогаю просто так ICQ: 593977748 - стучать в случае КРАЙНЕЙ необходимости, ну, или если вы со Ставрополя |
#4
|
||||
|
||||
Цитата:
Некоторые программисты настолько ленивы, что сразу пишут рабочий код. Если вас наказали ни за что - радуйтесь: вы ни в чем не виноваты. |
#5
|
||||
|
||||
Цитата:
По сабжу - сделаю за спасибо, или, если топикстартер из Питера - за бутылочку Туборг Блэка Если интересует - "контакты в подписи" © Оставайтесь хорошими людьми... VK id2634397, ds [at] phoenix [dot] dj |
#6
|
|||
|
|||
Цитата:
взялся из неоткуда, ничего не прошу, помогаю просто так ICQ: 593977748 - стучать в случае КРАЙНЕЙ необходимости, ну, или если вы со Ставрополя |
#7
|
||||
|
||||
Тему перенес т.к. ТС со времени поста активности не проявлял.
Вот тут можете продолжать про пиво Некоторые программисты настолько ленивы, что сразу пишут рабочий код. Если вас наказали ни за что - радуйтесь: вы ни в чем не виноваты. |