Форум программистов, компьютерный форум, киберфорум
Наши страницы
QBasic
Войти
Регистрация
Восстановить пароль
 
BoomBox
0 / 0 / 0
Регистрация: 10.01.2015
#1

Как поправить программу?

12.05.2013, 12:00. Просмотров 433. Ответов 1
Метки нет (Все метки)

Помогите поправить программу. Писал не я, и поэтому не могу запустить, куча ошибок. Писалась программа для Quick basic 4.5
Кликните здесь для просмотра всего текста
PureBasic
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
DECLARE FUNCTION power! (bas AS SINGLE, expon AS SINGLE)
'*******************************
'* Программа: COND
'*******************************
CONST PI = 3.14
DIM ch AS STRING
COLOR 0, 15: CLS
PRINT   "Ввод данных для расчёта теплообменника:"
INPUT   "Расход нагреваемой жидкости:", gtr0
INPUT   "Начальная температура нагреваемой жидкости:", tntr
INPUT   "Конечная температура нагреваемой жидкости:", tktr
INPUT   "Температура конденсации пара:", td
'Вычисление средней разности температур
dtb = td - tntr
dtm = td - tktr
IF dtb / dtm < 2 THEN dt = (dtb + dtm) / 2 ELSE dt = (tktr - tntr) / (LOG(dtb / dtm))
'Вычисление средней температуры нагреваемой жидкости
tstr = td - dt
PRINT "Средняя движущая сила равна:"; dt
PRINT "Средняя температура нагреваемой жидкости:"; tstr
INPUT "Введите теплоёмкость нагреваемой жидкости при средней температуре:", ctr
gtr = gtr0 / 3600
'Решение уравнения теплового баланса
qp = 1.05 * gtr * ctr * (tktr - tntr)
PRINT "Количество теплоты, переданное жидкости:"; qp; "Вт"
'Выбор приближенного значения коэффициента теплопередачи
INPUT "Введите предварительный коэффициент теплопередачи:", kpr
'Определение предварительной поверхности теплообмена
fpr = qp / (kpr * dt)
PRINT "Ориентировочная поверхность теплообмена равна:"; fpr
PRINT "Нажмите любую клавишу ..."; : DO: LOOP WHILE INKEY$ = ""
'Выбор стандартного аппарата из типоразмерного ряда
CLS
PRINT   "Ввод исходных данных для уточненного расчета поверхности теплообмена:"
PRINT   "Введите основные теплофизические параметры конденсата:"
INPUT   "Введите удельную теплоту конденсации пара:", rd
INPUT   "Введите плотность конденсата:", rod
INPUT   "Введите вязкость конденсата:", vd
INPUT   "Введите коэффициент теплопроводности конденсата:", ld
'Ввод   теплофизических параметров нагреваемой жидкости при средней температуре
INPUT   "Введите плотность нагреваемой жидкости:", rotr
INPUT   "Введите вязкость нагреваемой жидкости:", vtr
INPUT   "Введите коэффициент теплопроводности:", ltr
INPUT   "Введите коэффициент теплопроводности стенки:", lst
INPUT   "Термическое сопротивление загрязнения со стороны пара:", ry
INPUT   "Термическое сопротивление загрязнения со стороны жидкости:", rx
'Определение расхода греющего пара
gd = qp / rd
'Расчет уточненного коэффициента теплопередачи и поверхности теплообмена
ch = ""
CLS
DO WHILE ch <> "N" AND ch <> CHR$(27)
INPUT "Введите тип теплообменника (1-горизонтальный  2-вертикальный),[1,2]:", tip
INPUT "Введите внешний диаметр трубы:", dh
INPUT "Введите толщину стенки трубы:", delt
INPUT "Введите длину труб:", L
INPUT "Введите число ходов:", z
INPUT "Введите коэффициент, учитывающий число труб в вертикальном ряду в диаметральном сечении теплообменника:", P
 JJ = 2
d = dh - 2 * delt
IF J = 1 THEN
X = .023
Y = .8
ELSE
X = .008
Y = .9
J = 0
END IF
'Задание границ интервала поиска [A;B]
A = 1
B = 5000
'Поиск корня методом половинного деления
DO
C = (A + B) / 2
IF  tip = 1 THEN
B1 = 2.02 * P * ld * power(rod * rod * L / (vd * gd), (1 / 3))
ELSE
B1 = 3.78 * ld * power(rod * rod * dh / (vd * gd), (1 / 3))
END IF
B2 = ltr * X / d * power(4 * gtr * z / (pi * vtr * d), Y) * power(ctr * vtr / ltr, (.43))
Q = A
FA = power(Q, (-4 / 3)) / B1 + delt / lst / Q + power(Q, (Y - 1)) / B2 - pi * (dh - delt) * L * dt / (gd * rd)
Q = C
FC = power(Q, (-4 / 3)) / B1 + delt / lst / Q + power(Q, (Y - 1)) / B2 - pi * (dh - delt) * L * dt / (gd * rd)
IF SGN(FA * FC <= 0) THEN B = C ELSE A = C
LOOP UNTIL ABS((B - A) <= .5)
'Расчет поверхности теплопередачи
f = pi * L * C * z * (dh + d) / 2
'Расчет числа Рейнольдса для теплоносителя в трубах
retr = 4 * gtr / (pi * vtr * d * C)
IF retr > 10000 THEN
J = 1 ELSE J = 0
END IF
'Расчет коэффициентов теплоотдачи
'Расчет коэффициента теплопередачи
k = 1 / (1 / alfatr + ry + delt / lst + rx + 1 / alfamt)
CLS alfatr = power(C, (-Y)) * (ltr * X / d) * power(4 * gtr / (pi * vtr * d), Y) * power(ctr * vtr / ltr, .43)
IF tip = 2 THEN
alfamt = power(C, 1 / 3) * 2.02 * P * ld * power(rod * rod * L / (vd * gd), 1 / 3)
ELSE
alfamt = power(C, 1 / 3) * 3.78 * ld * power(rod * rod * dh / (vd * gd), 1 / 3)
END IF
PRINT "Результаты расчетов:"
PRINT "Число Рейнольдса для теплоносителя в трубах:"; retr
PRINT "Коэффициент теплоотдачи в трубном пространстве:"; alfatr
PRINT "Коэффициент теплоотдачи в межтрубном пространстве:"; alfamt
PRINT "Коэффициент теплопередачи:"; k
PRINT "Число труб:"; C
PRINT "Требуемая  поверхность теплообмена:"; f
PRINT "Расход греющего пара:"; gd
PRINT
PRINT "Новый расчет [y,n]:";
DO
ch = INKEY$
LOOP UNTIL ch = "y" OR ch = "Y" OR ch = "n" OR ch = "N" OR ch = CHR$(27) OR ch = CHR$(13)
LOOP
END
FUNCTION power (bas AS SINGLE, expon AS SINGLE) power = EXP(expon*LOG(bas))
END FUNCTION


Вот ошибки, взяты с Online интерпретатор QBASIC
Кликните здесь для просмотра всего текста
Parse failed.
Syntax error at 17:49: Token(dt)
[9970] constant: '-?\d+' ., 91, token=2, prev=9967

[9971] expr9: constant ., 91, rule=constant: '-?\d+', prev=9965

[9972] expr8: expr9 ., 91, rule=expr9: constant, prev=9964

[9973] expr7: expr7 '\/' expr8 ., 85, rule=expr8: expr9, prev=9961

[9974] expr6: expr7 ., 85, rule=expr7: expr7 '\/' expr8, prev=9831

[9975] expr7: expr7 . '\*' expr8, 85, rule=expr7: expr7 '\/' expr8, prev=9832

[9976] expr7: expr7 . '\/' expr8, 85, rule=expr7: expr7 '\/' expr8, prev=9833

[9977] expr5: expr6 ., 85, rule=expr6: expr7, prev=9828

[9978] expr6: expr6 . '\+' expr7, 85, rule=expr6: expr7, prev=9829

[9979] expr6: expr6 . '\-' expr7, 85, rule=expr6: expr7, prev=9830

[9980] expr4: expr5 ., 85, rule=expr5: expr6, prev=9826

[9981] expr5: expr5 . 'MOD' expr6, 85, rule=expr5: expr6, prev=9827

[9982] expr3: expr4 ., 85, rule=expr4: expr5, prev=9819

[9983] expr4: expr4 . '=' expr5, 85, rule=expr4: expr5, prev=9820

[9984] expr4: expr4 . '<>' expr5, 85, rule=expr4: expr5, prev=9821

[9985] expr4: expr4 . '>' expr5, 85, rule=expr4: expr5, prev=9822

[9986] expr4: expr4 . '<' expr5, 85, rule=expr4: expr5, prev=9823

[9987] expr4: expr4 . '<=' expr5, 85, rule=expr4: expr5, prev=9824

[9988] expr4: expr4 . '>=' expr5, 85, rule=expr4: expr5, prev=9825

[9989] expr2: expr3 ., 85, rule=expr3: expr4, prev=9817

[9990] expr3: expr3 . 'AND' expr4, 85, rule=expr3: expr4, prev=9818

[9991] AssignStatement: ReferenceList '=' expr2 ., 83, rule=expr2: expr3, prev=9815

[9992] expr2: expr2 . 'OR' expr3, 85, rule=expr2: expr3, prev=9816

[9993] istatement: AssignStatement ., 83, rule=AssignStatement: ReferenceList '=' expr2, prev=9769

[9994] istatement: 'IF' expr2 'THEN' istatement ., 76, rule=istatement: AssignStatement, prev=9731

[9995] _1: istatement ., 76, rule=istatement: 'IF' expr2 'THEN' istatement, prev=9548

[9996] statement: _1 . separator, 76, rule=_1: istatement, prev=9547

[9997] separator: . _42 '\n', 92

[9998] separator: . ''.*$' '\n', 92

[9999] separator: . ':', 92

[10000] _42: . _42 '\n', 92

[10001] _42: ., 92

[10002] separator: _42 . '\n', 92, rule=_42:, prev=9997

[10003] _42: _42 . '\n', 92, rule=_42:, prev=10000

Syntax error at 17:49
[9970] constant: '-?\d+' ., 91, token=2, prev=9967

[9971] expr9: constant ., 91, rule=constant: '-?\d+', prev=9965

[9972] expr8: expr9 ., 91, rule=expr9: constant, prev=9964

[9973] expr7: expr7 '\/' expr8 ., 85, rule=expr8: expr9, prev=9961

[9974] expr6: expr7 ., 85, rule=expr7: expr7 '\/' expr8, prev=9831

[9975] expr7: expr7 . '\*' expr8, 85, rule=expr7: expr7 '\/' expr8, prev=9832

[9976] expr7: expr7 . '\/' expr8, 85, rule=expr7: expr7 '\/' expr8, prev=9833

[9977] expr5: expr6 ., 85, rule=expr6: expr7, prev=9828

[9978] expr6: expr6 . '\+' expr7, 85, rule=expr6: expr7, prev=9829

[9979] expr6: expr6 . '\-' expr7, 85, rule=expr6: expr7, prev=9830

[9980] expr4: expr5 ., 85, rule=expr5: expr6, prev=9826

[9981] expr5: expr5 . 'MOD' expr6, 85, rule=expr5: expr6, prev=9827

[9982] expr3: expr4 ., 85, rule=expr4: expr5, prev=9819

[9983] expr4: expr4 . '=' expr5, 85, rule=expr4: expr5, prev=9820

[9984] expr4: expr4 . '<>' expr5, 85, rule=expr4: expr5, prev=9821

[9985] expr4: expr4 . '>' expr5, 85, rule=expr4: expr5, prev=9822

[9986] expr4: expr4 . '<' expr5, 85, rule=expr4: expr5, prev=9823

[9987] expr4: expr4 . '<=' expr5, 85, rule=expr4: expr5, prev=9824

[9988] expr4: expr4 . '>=' expr5, 85, rule=expr4: expr5, prev=9825

[9989] expr2: expr3 ., 85, rule=expr3: expr4, prev=9817

[9990] expr3: expr3 . 'AND' expr4, 85, rule=expr3: expr4, prev=9818

[9991] AssignStatement: ReferenceList '=' expr2 ., 83, rule=expr2: expr3, prev=9815

[9992] expr2: expr2 . 'OR' expr3, 85, rule=expr2: expr3, prev=9816

[9993] istatement: AssignStatement ., 83, rule=AssignStatement: ReferenceList '=' expr2, prev=9769

[9994] istatement: 'IF' expr2 'THEN' istatement ., 76, rule=istatement: AssignStatement, prev=9731

[9995] _1: istatement ., 76, rule=istatement: 'IF' expr2 'THEN' istatement, prev=9548

[9996] statement: _1 . separator, 76, rule=_1: istatement, prev=9547

[9997] separator: . _42 '\n', 92

[9998] separator: . ''.*$' '\n', 92

[9999] separator: . ':', 92

[10000] _42: . _42 '\n', 92

[10001] _42: ., 92

[10002] separator: _42 . '\n', 92, rule=_42:, prev=9997

[10003] _42: _42 . '\n', 92, rule=_42:, prev=10000

Parse failed.
Syntax error at 16:49: Token(dt)
[12365] constant: '-?\d+' ., 88, token=2, prev=12362

[12366] expr9: constant ., 88, rule=constant: '-?\d+', prev=12360

[12367] expr8: expr9 ., 88, rule=expr9: constant, prev=12359

[12368] expr7: expr7 '\/' expr8 ., 82, rule=expr8: expr9, prev=12356

[12369] expr6: expr7 ., 82, rule=expr7: expr7 '\/' expr8, prev=12226

[12370] expr7: expr7 . '\*' expr8, 82, rule=expr7: expr7 '\/' expr8, prev=12227

[12371] expr7: expr7 . '\/' expr8, 82, rule=expr7: expr7 '\/' expr8, prev=12228

[12372] expr5: expr6 ., 82, rule=expr6: expr7, prev=12223

[12373] expr6: expr6 . '\+' expr7, 82, rule=expr6: expr7, prev=12224

[12374] expr6: expr6 . '\-' expr7, 82, rule=expr6: expr7, prev=12225

[12375] expr4: expr5 ., 82, rule=expr5: expr6, prev=12221

[12376] expr5: expr5 . 'MOD' expr6, 82, rule=expr5: expr6, prev=12222

[12377] expr3: expr4 ., 82, rule=expr4: expr5, prev=12214

[12378] expr4: expr4 . '=' expr5, 82, rule=expr4: expr5, prev=12215

[12379] expr4: expr4 . '<>' expr5, 82, rule=expr4: expr5, prev=12216

[12380] expr4: expr4 . '>' expr5, 82, rule=expr4: expr5, prev=12217

[12381] expr4: expr4 . '<' expr5, 82, rule=expr4: expr5, prev=12218

[12382] expr4: expr4 . '<=' expr5, 82, rule=expr4: expr5, prev=12219

[12383] expr4: expr4 . '>=' expr5, 82, rule=expr4: expr5, prev=12220

[12384] expr2: expr3 ., 82, rule=expr3: expr4, prev=12212

[12385] expr3: expr3 . 'AND' expr4, 82, rule=expr3: expr4, prev=12213

[12386] AssignStatement: ReferenceList '=' expr2 ., 80, rule=expr2: expr3, prev=12210

[12387] expr2: expr2 . 'OR' expr3, 82, rule=expr2: expr3, prev=12211

[12388] istatement: AssignStatement ., 80, rule=AssignStatement: ReferenceList '=' expr2, prev=12164

[12389] istatement: 'IF' expr2 'THEN' istatement ., 73, rule=istatement: AssignStatement, prev=12126

[12390] _1: istatement ., 73, rule=istatement: 'IF' expr2 'THEN' istatement, prev=11943

[12391] statement: _1 . separator, 73, rule=_1: istatement, prev=11942

[12392] separator: . _42 '\n', 89

[12393] separator: . ''.*$' '\n', 89

[12394] separator: . ':', 89

[12395] _42: . _42 '\n', 89

[12396] _42: ., 89

[12397] separator: _42 . '\n', 89, rule=_42:, prev=12392

[12398] _42: _42 . '\n', 89, rule=_42:, prev=12395

Syntax error at 16:49
[12365] constant: '-?\d+' ., 88, token=2, prev=12362

[12366] expr9: constant ., 88, rule=constant: '-?\d+', prev=12360

[12367] expr8: expr9 ., 88, rule=expr9: constant, prev=12359

[12368] expr7: expr7 '\/' expr8 ., 82, rule=expr8: expr9, prev=12356

[12369] expr6: expr7 ., 82, rule=expr7: expr7 '\/' expr8, prev=12226

[12370] expr7: expr7 . '\*' expr8, 82, rule=expr7: expr7 '\/' expr8, prev=12227

[12371] expr7: expr7 . '\/' expr8, 82, rule=expr7: expr7 '\/' expr8, prev=12228

[12372] expr5: expr6 ., 82, rule=expr6: expr7, prev=12223

[12373] expr6: expr6 . '\+' expr7, 82, rule=expr6: expr7, prev=12224

[12374] expr6: expr6 . '\-' expr7, 82, rule=expr6: expr7, prev=12225

[12375] expr4: expr5 ., 82, rule=expr5: expr6, prev=12221

[12376] expr5: expr5 . 'MOD' expr6, 82, rule=expr5: expr6, prev=12222

[12377] expr3: expr4 ., 82, rule=expr4: expr5, prev=12214

[12378] expr4: expr4 . '=' expr5, 82, rule=expr4: expr5, prev=12215

[12379] expr4: expr4 . '<>' expr5, 82, rule=expr4: expr5, prev=12216

[12380] expr4: expr4 . '>' expr5, 82, rule=expr4: expr5, prev=12217

[12381] expr4: expr4 . '<' expr5, 82, rule=expr4: expr5, prev=12218

[12382] expr4: expr4 . '<=' expr5, 82, rule=expr4: expr5, prev=12219

[12383] expr4: expr4 . '>=' expr5, 82, rule=expr4: expr5, prev=12220

[12384] expr2: expr3 ., 82, rule=expr3: expr4, prev=12212

[12385] expr3: expr3 . 'AND' expr4, 82, rule=expr3: expr4, prev=12213

[12386] AssignStatement: ReferenceList '=' expr2 ., 80, rule=expr2: expr3, prev=12210

[12387] expr2: expr2 . 'OR' expr3, 82, rule=expr2: expr3, prev=12211

[12388] istatement: AssignStatement ., 80, rule=AssignStatement: ReferenceList '=' expr2, prev=12164

[12389] istatement: 'IF' expr2 'THEN' istatement ., 73, rule=istatement: AssignStatement, prev=12126

[12390] _1: istatement ., 73, rule=istatement: 'IF' expr2 'THEN' istatement, prev=11943

[12391] statement: _1 . separator, 73, rule=_1: istatement, prev=11942

[12392] separator: . _42 '\n', 89

[12393] separator: . ''.*$' '\n', 89

[12394] separator: . ':', 89

[12395] _42: . _42 '\n', 89

[12396] _42: ., 89

[12397] separator: _42 . '\n', 89, rule=_42:, prev=12392

[12398] _42: _42 . '\n', 89, rule=_42:, prev=12395


Буду черезмерно благодарен!
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
12.05.2013, 12:00
Ответы с готовыми решениями:

Вычислить значение выражения, поправить код
CLS PRINT &quot;naidem max znamenatelya&quot; INPUT &quot;vvedite a, b, c, d&quot;; a, b, c, d IF d = 0 THEN GOTO 1...

Как поправить программу
как поправить программу,чтобы он суммировал в переменной b только Хn+Xn-1 а не весь ряд? понимаю...

Поправить программу
Замечания к программам. 1.Отсутствует расшифровка смысла и назначения всех переменных,...

Поправить программу
Ввести массив целых чисел B(n). Найти сумму S положительных элементов. Если S&gt;5,поменять местами...

Поправить программу
Помогите пожалуйста поправить программу. &quot;Дана матрица размером N * M. Выполнить сдвиг элементов...

1
vodav
561 / 131 / 36
Регистрация: 12.03.2012
Сообщений: 377
21.05.2013, 11:29 #2
Всего две мелочи:
1. 82-я строка
QBasic/QuickBASIC
1
2
3
4
IF retr > 10000 THEN
J = 1
ELSE J = 0
END IF
2.
QBasic/QuickBASIC
1
DECLARE FUNCTION power! (bas AS SINGLE, expon AS SINGLE)
и
QBasic/QuickBASIC
1
2
3
FUNCTION power! (bas AS SINGLE, expon AS SINGLE) 
power! = EXP(expon*LOG(bas))
END FUNCTION
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
21.05.2013, 11:29

поправить программу на С++
Программа не моя, свою написать уже не успеваю. Пожалуйста поправьте это так чтобы можно было...

Поправить программу
Здравствуйте, помогите переделать программу. Программный код необходимо поменять так, чтобы...

Фортран: поправить программу
Приветствую всех. Собственно, задача была такая: Во входном файле две строки записаны как два...


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

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

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