Ошибка при построении кривой Ван–дер–Ваальса - QBasic
Формулировка задачи:
Добрый день!
Помогите мне с ошибкой на QBasice с кривой ван-дер-вальса
Листинг программы
- 10 PRINT "VANDER"
- 20 PRINT "КРИВАЯ ВАН-ДЕР-ВААЛЬСА"
- 30 SCREEN 2
- 40 A=1.36E5
- 50 B=3.85E-2
- 60 R=8.3E3
- 70 T=100
- 80 LINE (0,260)-(0,0),5
- 90 LINE (0,70)-(630,70),5
- 100 FOR T=30 TO 210 STEP 20
- 110 FOR V0=1.1*B TO 12*B STEP B*.02
- 120 P=R*T/(V0-B)-A/V0^2
- 130 PSET (V0*1.5E3,P/1E5+70)
- 140 NEXT V0
- 150 NEXT T
- 160 GOTO 160
Решение задачи: «Ошибка при построении кривой Ван–дер–Ваальса»
textual
Листинг программы
- 10 PRINT "VANDER"
- 20 PRINT "КРИВАЯ ВАН-ДЕР-ВААЛЬСА"
- 30 SCREEN 2 'тут ошибка не запускаеться
- 40 A=1.36E5
- 50 B=3.85E-2
- 60 R=8.3E3
- 70 T=100
- 80 LINE (0,260)-(0,0),5
- 90 LINE (0,70)-(630,70),5
- 100 FOR T=30 TO 210 STEP 20
- 110 FOR V0=1.1*B TO 12*B STEP B*.02
- 120 P=R*T/(V0-B)-A/V0^2
- 130 PSET (V0*1.5E3,P/1E5+70)
- 140 NEXT V0
- 150 NEXT T
- 160 GOTO 160
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д
