Форум программистов, компьютерный форум CyberForum.ru

Пишем свой интерпретатор языка BASIC - C++

Войти
Регистрация
Восстановить пароль
Другие темы раздела
C++ Меню и список http://www.cyberforum.ru/cpp-beginners/thread41194.html
Здравствуйте форумчане. Помоги пожалуйста в следующем вопросе: У меня есть 2связный список, написано меню. Но в моменте когда написано make a list и delete custom необходимо чтобы выводились: Введите элемент и номер. вот сам код: #ifndef __list_h #define __list_h #include <iostream>
C++ Здравствуйте! Не могу поместить class в один файл с программой. file.hpp #include "Cat.hpp" // здесь классы "2)" Cat::Cat(int initialAge) { itsAge = initialAge; } Cat::~Cat() { http://www.cyberforum.ru/cpp-beginners/thread41186.html
Массивы строк C++
Привет всем! Задан массив строк. Как узнать который символ встечаетса найбольшое количество раз в етом массиве?
C++ вывод на экран набор треугольников и квадратов, которые произвольно двигаются и меняют размер
Please, help me!!! Вот текст программы, которая выводит на экран набор треугольников и квадратов, которые произвольно двигаются и меняют размер только квадратов. Проблема в том, что необходимо исправить код, чтоб фигуры не исчезали за экран (т.е. 640х460) и были компактным набором, т.е. двигались неменяя своего положения относительно друг друга и стукаясь об стенку экрана меняли свое...
C++ Округление дробного числа до целого в большую сторону. http://www.cyberforum.ru/cpp-beginners/thread41139.html
Доброго дня. Я новичок в программирование на Visual C++. Проблема такая программа должна считать кол-во месяцев, если числа целые то программа шла дальше, если дробное то (например 3.33333) программа не округляет это число (в большую сторону) до 4. Перелопатил тонны литературы, но пропустил или не нашёл этого, большая просьба написать функцию которая могла бы это делать, или способ какой.
C++ Код из Delphi в C++ Нужно написать курсовую на C++. Сам я в программировании плохо шарю (не программист). Попросил у народу помощи, помогли. Но решение на Delphi: {$APPTYPE CONSOLE} type byteset=set of byte; var d:array of longint; procedure c; var a,b,i:longint; подробнее

Показать сообщение отдельно
Evg
Эксперт CАвтор FAQ
17264 / 5518 / 342
Регистрация: 30.03.2009
Сообщений: 15,018
Записей в блоге: 26
09.10.2009, 13:54     Пишем свой интерпретатор языка BASIC
Тест на ELSEIF
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
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
' Тест на разные формы появления ELSEIF
' Каждый тест повторяем по нескольку раз, чтобы проверить разные ветки исполнения
 
PRINT "----- IF Cond THEN ----------------------------------------------------"
PRINT "        Stmt"
PRINT "      ELSE IF Cond THEN"
PRINT "      END IF"
 
LET A=1
LET B=-1
IF A=1 THEN
  LET B=100
ELSEIF A=2 THEN
END IF
PRINT B ' expected 100
 
LET A=2
LET B=-1
IF A=1 THEN
  LET B=100
ELSEIF A=2 THEN
END IF
PRINT B ' expected -1
 
 
 
PRINT "----- IF Cond THEN ----------------------------------------------------"
PRINT "        Stmt"
PRINT "      ELSE IF Cond THEN"
PRINT "        Stmt"
PRINT "      END IF"
 
LET A=1
LET B=-1
IF A=1 THEN
  LET B=100
ELSEIF A=2 THEN
  LET B=200
END IF
PRINT B ' expected 100
 
LET A=2
LET B=-1
IF A=1 THEN
  LET B=100
ELSEIF A=2 THEN
  LET B=200
END IF
PRINT B ' expected 200
 
LET A=3
LET B=-1
IF A=1 THEN
  LET B=100
ELSEIF A=2 THEN
  LET B=200
END IF
PRINT B ' expected -1
 
 
 
PRINT "----- IF Cond THEN ----------------------------------------------------"
PRINT "        Stmt"
PRINT "      ELSE IF Cond THEN"
PRINT "        Stmt"
PRINT "      ELSE"
PRINT "      END IF"
 
LET A=1
LET B=-1
IF A=1 THEN
  LET B=100
ELSEIF A=2 THEN
  LET B=200
ELSE
END IF
PRINT B ' expected 100
 
LET A=2
LET B=-1
IF A=1 THEN
  LET B=100
ELSEIF A=2 THEN
  LET B=200
ELSE
END IF
PRINT B ' expected 200
 
LET A=3
LET B=-1
IF A=1 THEN
  LET B=100
ELSEIF A=2 THEN
  LET B=200
ELSE
END IF
PRINT B ' expected -1
 
 
 
PRINT "----- IF Cond THEN ----------------------------------------------------"
PRINT "        Stmt"
PRINT "      ELSE IF Cond THEN"
PRINT "        Stmt"
PRINT "      ELSE"
PRINT "        Stmt"
PRINT "      END IF"
 
LET A=1
LET B=-1
IF A=1 THEN
  LET B=100
ELSEIF A=2 THEN
  LET B=200
ELSE
  LET B=300
END IF
PRINT B ' expected 100
 
LET A=2
LET B=-1
IF A=1 THEN
  LET B=100
ELSEIF A=2 THEN
  LET B=200
ELSE
  LET B=300
END IF
PRINT B ' expected 200
 
LET A=3
LET B=-1
IF A=1 THEN
  LET B=100
ELSEIF A=2 THEN
  LET B=200
ELSE
  LET B=300
END IF
PRINT B ' expected 300
 
 
 
PRINT "----- IF Cond THEN ----------------------------------------------------"
PRINT "        Stmt"
PRINT "      ELSE IF Cond THEN"
PRINT "        Stmt"
PRINT "      ELSE IF Cond THEN"
PRINT "        Stmt"
PRINT "      ELSE"
PRINT "        Stmt"
PRINT "      END IF"
 
LET A=1
LET B=-1
IF A=1 THEN
  LET B=100
ELSEIF A=2 THEN
  LET B=200
ELSEIF A=3 THEN
  LET B=300
ELSE
  LET B=400
END IF
PRINT B ' expected 100
 
LET A=2
LET B=-1
IF A=1 THEN
  LET B=100
ELSEIF A=2 THEN
  LET B=200
ELSEIF A=3 THEN
  LET B=300
ELSE
  LET B=400
END IF
PRINT B ' expected 200
 
LET A=3
LET B=-1
IF A=1 THEN
  LET B=100
ELSEIF A=2 THEN
  LET B=200
ELSEIF A=3 THEN
  LET B=300
ELSE
  LET B=400
END IF
PRINT B ' expected 300
 
LET A=4
LET B=-1
IF A=1 THEN
  LET B=100
ELSEIF A=2 THEN
  LET B=200
ELSEIF A=3 THEN
  LET B=300
ELSE
  LET B=400
END IF
PRINT B ' expected 400
 
Текущее время: 16:06. Часовой пояс GMT +3.
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru