Форум программистов, компьютерный форум, киберфорум
QBasic
Форум программистов и сисадминов Киберфорум > Форум программистов > Basic > QBasic
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.75/4: Рейтинг темы: голосов - 4, средняя оценка - 4.75
boombox

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

12.05.2013, 12:00. Показов 798. Ответов 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*|!REG3XP3!>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


Буду черезмерно благодарен!
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
 12.05.2013, 12:00
Ответы с готовыми решениями:

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

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

Как поправить консольную программу?
Есть код, но он не запускается в консольном приложении С#! Помогите поправить пожалуйста, буду очень благодарен Ниже есть код. ...

1
 Аватар для vodav
572 / 141 / 37
Регистрация: 12.03.2012
Сообщений: 403
21.05.2013, 11:29
Всего две мелочи:
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
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
 21.05.2013, 11:29
Помогаю со студенческими работами здесь

Как поправить программу чтоб она заработала
Console.h #pragma once enum CharType { CH_100 = 0x2588, CH_75 = 0x2593, CH_50 = 0x2592, CH_25 = 0x2591, WHITESPACE...

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

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

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

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


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

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Новые блоги и статьи
Программный контроль заполнения реквизита табличной части документа
Maks 02.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать контроль заполнения реквизита "ПричинаСписания". . .
wmic не является внутренней или внешней командой
Maks 02.04.2026
Решение: DISM / Online / Add-Capability / CapabilityName:WMIC~~~~ Отсюда: https:/ / winitpro. ru/ index. php/ 2025/ 02/ 14/ komanda-wmic-ne-naydena/
Программная установка даты и запрет ее изменения
Maks 02.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: при создании документов установить период списания автоматически. . .
Вывод данных в справочнике через динамический список
Maks 01.04.2026
Реализация из решения ниже выполнена на примере нетипового справочника "Спецтехника" разработанного в конфигурации КА2. Задача: вывести данные из ТЧ нетипового документа. . .
Программное заполнения текстового поля в реквизите формы документа
Maks 01.04.2026
Алгоритм из решения ниже реализован на нетиповом документе "ВыдачаОборудованияНаСпецтехнику" разработанного в конфигурации КА2, в дополнении к предыдущему решению. На форме документа создается. . .
К слову об оптимизации
kumehtar 01.04.2026
Вспоминаю начало 2000-х, университет, когда я писал на Delphi. Тогда среди программистов на форумах активно обсуждали аккуратную работу с памятью: нужно было следить за переменными, вовремя. . .
Идея фильтра интернета (сервер = слой+фильтр).
Hrethgir 31.03.2026
Суть идеи заключается в том, чтобы запустить свой сервер, о чём я если честно мечтал давно и давно приобрёл книгу как это сделать. Но не было причин его запускать. Очумелые учёные напечатали на. . .
Модель здравосоХранения 6. ESG-повестка и устойчивое развитие; углублённый анализ кадрового бренда
anaschu 31.03.2026
В прикрепленном документе раздумья о том, как можно поменять модель в будущем
КиберФорум - форум программистов, компьютерный форум, программирование
Поддержать - Реклама - Условия использования - Обратная связь
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru