Форум программистов, компьютерный форум, киберфорум
Наши страницы
QBasic
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.60/5: Рейтинг темы: голосов - 5, средняя оценка - 4.60
Karagen
0 / 0 / 0
Регистрация: 15.05.2014
Сообщений: 8
1

При попытке скомпилировать программу выходит ошибка "C++ Compilation failed"

10.06.2014, 04:55. Просмотров 1045. Ответов 2
Метки нет (Все метки)

Проблема в следующем, когда пытаюсь скомпилировать программу, выдает ошибку C++ Compilation failed
(стоит Win7, QB64, специально для win7)
Если эта проблема с кодом программы, то вот он:

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
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
CLS
'Kursovarobota.BAS
INPUT "Vvedit kilkist tochok N="; N
xmin = 10
xmax = 400
ymin = 10
ymax = 400
SCREEN 12
RANDOMIZE TIMER
VIEW (10, 10)-(400, 400), , 2
WINDOW (xmin, ymin)-(xmax, ymax)
DIM x(N)
DIM y(N)
FOR i = 1 TO N
    x(I) = xmin + RND * (xmax - xmin)
    y(I) = ymin + RND * (ymax - ymin)
NEXT
FOR i = 1 TO N
    PSET (x(i), y(i))
NEXT i
LINE (10, 10)-(400, 400), 2
LINE (10, 400)-(400, 10), 2
xc = (xmin + xmax) / 2
yc = (ymin + ymax) / 2
T1 = 0
T2 = 0
T3 = 0
T4 = 0
FOR i = 1 TO N
    L1 = SQR((xmin - xmax) ^ 2 + (ymin - ymin) ^ 2)
    L2 = SQR((xmin - xc) ^ 2 + (ymin - yc) ^ 2)
    L3 = SQR((xc - xmax) ^ 2 + (yc - ymin) ^ 2)
    L4 = SQR((xc - x(I)) ^ 2 + (yc - y(I)) ^ 2)
    L5 = SQR((xmin - x(I)) ^ 2 + (ymin - y(I)) ^ 2)
    L6 = SQR((x(I) - xmax) ^ 2 + (y(I) - ymin) ^ 2)
    L7 = SQR((xmin - xmin) ^ 2 + (ymin - ymax) ^ 2)
    L8 = SQR((xmin - xc) ^ 2 + (ymax - yc) ^ 2)
    L9 = SQR((xmin - x(I)) ^ 2 + (ymax - y(I)) ^ 2)
    L10 = SQR((xmin - x(I)) ^ 2 + (ymin - y(I)) ^ 2)
    L11 = SQR((x(I) - xc) ^ 2 + (y(I) - yc) ^ 2)
    L12 = SQR((xmin - xmax) ^ 2 + (ymax - ymax) ^ 2)
    L13 = SQR((xc - xmax) ^ 2 + (yc - ymax) ^ 2)
    L14 = SQR((xc - x(I)) ^ 2 + (yc - y(I)) ^ 2)
    L15 = SQR((x(I) - xmax) ^ 2 + (y(I) - ymax) ^ 2)
    L16 = SQR((xmin - x(I)) ^ 2 + (ymax - y(I)) ^ 2)
    L17 = SQR((xmax - xmax) ^ 2 + (ymin - ymax) ^ 2)
    L18 = SQR((x(I) - xmax) ^ 2 + (ymin - y(I)) ^ 2)
    L19 = SQR((xc - x(I)) ^ 2 + (yc - y(I)) ^ 2)
    L20 = SQR((x(I) - xmax) ^ 2 + (y(I) - ymax) ^ 2)
    p1 = (L1 + L2 + L3) / 2
    p2 = (L2 + L5 + L4) / 2
    p3 = (L5 + L1 + L6) / 2
    p4 = (L6 + L4 + L3) / 2
    p5 = (L2 + L7 + L8) / 2
    p6 = (L2 + L10 + L11) / 2
    p7 = (L7 + L9 + L10) / 2
    p8 = (L11 + L9 + L8) / 2
    p9 = (L8 + L12 + L13) / 2
    p10 = (L16 + L12 + L15) / 2
    p11 = (L8 + L16 + L14) / 2
    p12 = (L14 + L13 + L15) / 2
    p13 = (L3 + L13 + L17) / 2
    p14 = (L3 + L19 + L18) / 2
    p15 = (L13 + L19 + L20) / 2
    p16 = (L20 + L17 + L18) / 2
    S1 = SQR(p1 * (p1 - L1) * (p1 - L2) * (p1 - L3))
    S2 = SQR(p2 * (p2 - L2) * (p2 - L5) * (p2 - L4))
    S3 = SQR(p3 * (p3 - L1) * (p3 - L5) * (p3 - L6))
    S4 = SQR(p4 * (p4 - L4) * (p4 - L6) * (p4 - L3))
    S5 = SQR(p5 * (p5 - L2) * (p5 - L7) * (p5 - L8))
    S6 = SQR(p6 * (p6 - L11) * (p6 - L10) * (p6 - L2))
    S7 = SQR(p7 * (p7 - L7) * (p7 - L10) * (p7 - L9))
    S8 = SQR(p8 * (p8 - L8) * (p8 - L11) * (p8 - L9))
    S9 = SQR(p9 * (p9 - L8) * (p9 - L12) * (p9 - L13))
    S10 = SQR(p10 * (p10 - L16) * (p10 - L12) * (p10 - L15))
    S11 = SQR(p11 * (p11 - L8) * (p11 - L14) * (p11 - L16))
    S12 = SQR(p12 * (p12 - L14) * (p12 - L15) * (p12 - L13))
    S13 = SQR(p13 * (p13 - L3) * (p13 - L13) * (p13 - L17))
    S14 = SQR(p14 * (p14 - L3) * (p14 - L19) * (p14 - L18))
    S15 = SQR(p15(* p15 - L13) * (p15 - L19) * (p15 - L20))
    S16 = SQR(p16 * (p16 - L20) * (p16 - L18) * (p16 - L17))
    S234 = S2 + S3 + S4
    S678 = S6 + S7 + S8
    S012 = S10 + S11 + S12
    S456 = S14 + S15 + S16
    S1 = INT(S1)
    S5 = INT(S5)
    S9 = INT(S9)
    S13 = INT(S13)
    S234 = INT(S234)
    S678 = INT(S678)
    S012 = INT(S012)
    S456 = INT(S456)
    IF S1 = (S234) THEN T1 = T1 + 1
    IF S5 = (S678) THEN T2 = T2 + 1
    IF S9 = (S012) THEN T3 = T3 + 1
    IF S13 = (S456) THEN T4 = T4 + 1
NEXT
PRINT "                           T1=";T1
PRINT "                           T2=";T2
PRINT "                           T3=";T3
PRINT "                           T4=";T4
END
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
10.06.2014, 04:55
Ответы с готовыми решениями:

Ошибка C++ compilation failed
При попытке запуска программа выдает ошибку C++ compilation failed Что это значит? Текст...

При вводе данных в программу возникает ошибка "индекс вне диапазона"
При вводе данных в программу вылетает ошибка "индекс вне диапазона".Помогите исправить пожалуйста....

Написать программу, реализующую операции ("+","-","*","\",) c комплексными числами
pulkar zombax Написать программу,реализующую операции ("+","-","*","\",)c комплексными...

Написать программу,реализующую операции("+","-","*","/") с комплексными числами
Привет!Нужна помощь! Написать программу,реализующую операции("+","-","*","/") с комплексными...

Какие св-ва одинаковые для управляющих элементов "Кнопка", "Переключатель", "Флажок", "Текстовое поле"
Какие св-ва одинаковые для управляющих элементов "Кнопка", "Переключатель", "Флажок", "Текстовое...

2
Quiet Snow
4405 / 1293 / 376
Регистрация: 25.04.2010
Сообщений: 3,302
10.06.2014, 07:35 2
Всё смешали в кучу, с QB64 идём в корневой раздел Basic, тут QBasic.
0
vodav
561 / 131 / 36
Регистрация: 12.03.2012
Сообщений: 379
10.06.2014, 14:55 3
Поправь 80-ю строчку. У меня работает.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
10.06.2014, 14:55

Составить программу, которая будет определять правильное написание приставки "без" или "бес"
Составить программу, которая будет определять правильное написание приставки "без" или "бес" (рус....

Составить программу для замены в тексте слога "ма" на слог "па" / QBasic (Бейсик)
Помогите пожалуйста!!!! Составить программу для замены в тексте слога "ма" на слог "па"

Напишите программу которая будет в зависимости от чисел N и K выводить "YES" или "NO"
1) На кассе в супермаркете новая услуга: если вы приобрели покупки, вес которых превышает...


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

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

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