Форум программистов, компьютерный форум, киберфорум
Basic
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.75/8: Рейтинг темы: голосов - 8, средняя оценка - 4.75
0 / 0 / 0
Регистрация: 03.06.2016
Сообщений: 3
1

Проверить код программы на ошибки

09.06.2016, 07:38. Показов 1640. Ответов 2
Метки нет (Все метки)

Написал программу , но выводит ошибки.
QBasic/QuickBASIC
5   KEY OFF
10 CLS
20 Q1=2:Q2=2
30 L=200:X2=0:S=5:R=5
40 SCREEN 2
50 CIRCLE (320-L/2.100),5
60 CIRCLE (320+L/2.100),5
70 A2=0:A3=350:AS=20
80 GOSUB 120    
90 A2=0:A3=360:X2=L:AS=20*ABS(Q1/Q2)
100 COSUB 120
110 END
120 FOR А1=A2 TО A3 STEP AS
130 A=A1 *3.14/180
140 X=R*COS(A)+X2: Y=R*SIN(A)
155 IF Y=0 GОТО 280
160 R1=SQR(X*X+Y*Y)
165 IF R1 <4 GОТО 280 
170 R2=SQR((X-L) * (X-L)+(Y*Y)
175 IF R2<4 СОТО 280 
180 R3=R1 *R1 *R1 :R4=R2*R2*R2 
200 F1 =Q1*Х/+Q2* (X-L)/R4 
210 F2=(Q1/R3+Q2/R4)*Y 
220 F=SQR(F1*F1+F2*F3)
230 X=X+F1*S/F:Y=Y+S*F2/F
240 X1=320-L/2+X:Y1=100+4*Y 
250 IF X1 >640 OR Y1>200 ТНEN 280 
255 IF X1 <0 OR Y1 <0 ТHEN 280
260 РSET(X1,Y1)
270 GOTO 160
280 NEXT A1 
290 RETURN
Должно получиться :
0

Помощь в написании контрольных, курсовых и дипломных работ здесь.

Миниатюры
Проверить код программы на ошибки  
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
09.06.2016, 07:38
Ответы с готовыми решениями:

Проверить код на ошибки
такая проблема что в print &quot;2&quot; l всегда выдает 2 1 REM sistema uravneni' 2 INPUT &quot;vvedite x&quot;; x...

проверить код на ошибки...
вычислить сумму положительных элементов матрицы, находящихся в тех строках, которые начинаются с...

Проверить код на ошибки
#include &lt;stdio.h&gt; #include &lt;conio.h&gt; void main() { int n, A, B, X, i, j; do{ printf...

Проверить код на ошибки
Всем привет. Я новичек, начал изучать программирование. Первую программу слизал с примера в книге...

2
526 / 761 / 133
Регистрация: 10.08.2015
Сообщений: 3,633
10.06.2016, 01:31 2
Цитата Сообщение от Magnitar Посмотреть сообщение
Написал программу , но выводит ошибки.
Из той методички, которая на картинке? Этот диалект умер задолго до твоего рождения. Кого ты пытаешься обмануть?
0
Регистрация: 23.10.2013
Сообщений: 5,076
Записей в блоге: 8
12.06.2016, 11:04 3
Лучший ответ Сообщение было отмечено Magnitar как решение

Решение

Magnitar
Я убрал ваши ошибки. Но при запуске программы
она объявила переполнение. Поскольку мне неизвестны
формулы положенные в основу вашей программы, то
причину переполнения выяснить не удалось
(Ваша программа успела до ошибки что-то нарисовать)
Вот код вашей исправленной программы.

QBasic/QuickBASIC
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
5  KEY OFF
10 CLS
20 Q1 = 2: Q2 = 2
30 L = 200: X2 = 0: S = 5: R = 5
40 SCREEN 2
50 CIRCLE (320 - L / 2, 100), 5
60 CIRCLE (320 + L / 2, 100), 5
70 A2 = 0: A3 = 350: AS1 = 20
80 GOSUB 120
90 A2 = 0: A3 = 360: X2 = L: AS1 = 20 * ABS(Q1 / Q2)
100 GOSUB 120
110 END
 
120 FOR A1 = A2 TO A3 STEP AS1
130 A = A1 * 3.14 / 180
140 X = R * COS(A) + X2: Y = R * SIN(A)
155 IF Y = 0 GOTO 280
160 R1 = SQR(X * X + Y * Y)
165 IF R1 < 4 GOTO 280
170 R2 = SQR((X - L) * (X - L) + (Y * Y))
175 IF R2 < 4 GOTO 280
180 R3 = R1 * R1 * R1: R4 = R2 * R2 * R2
200 F1 = Q1 * X / R3 + Q2 * (X - L) / R4
210 F2 = (Q1 / R3 + Q2 / R4) * Y
220 F = SQR(F1 * F1 + F2 * F3)
230 X = X + F1 * S / F: Y = Y + S * F2 / F
240 X1 = 320 - L / 2 + X: Y1 = 100 + 4 * Y
250 IF X1 > 640 OR Y1 > 200 THEN 280
255 IF X1 < 0 OR Y1 < 0 THEN 280
260 PSET (X1, Y1)
270 GOTO 160
280 NEXT A1
290 RETURN
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
12.06.2016, 11:04

Как проверить на ошибки JSON код
Пользуясь #include &lt;DBXJSON.hpp&gt; в C++ Builder XE, как проверить JSON код на ошибки?

Структура ORDER. Проверить код на ошибки
Может помочь с ошибкой и проверить правильно ли все работает)) Описать структуру с именем ORDE:...

Как проверить на ошибки синтаксиса php код?
Есть php код. Нужно его проверить на ошибки синтаксиса. Какой функцией или другим...

Проверить заданный код C++ на ошибки (программа не желает компилироваться)
Задание выглядит так: Напишите программу на тему Автовокзал (№ рейса, Фирма, Время прибытия,...


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

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

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