Форум программистов, компьютерный форум 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
Эксперт С++Автор FAQ
 Аватар для Evg
16821 / 5242 / 318
Регистрация: 30.03.2009
Сообщений: 14,118
Записей в блоге: 26
02.10.2009, 17:24     Пишем свой интерпретатор языка BASIC
Тест на IF

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
205
206
' Тест на разные формы записи оператора IF
' Каждый тест повторяем по два раза, чтобы проверить обе ветки исполнения
 
 
 
PRINT "----- IF Cond THEN Stmt -----------------------------------------------"
 
LET A=1
LET B=-1
IF A=1 THEN LET B=100
PRINT B ' expected 100
 
LET A=2
LET B=-1
IF A=1 THEN LET B=100
PRINT B ' expected -1
 
 
 
PRINT "----- IF Cond THEN Stmt:Stmt ------------------------------------------"
 
LET A=1
LET B=-1 : LET C=-1
IF A=1 THEN LET B=100 : LET C=101
PRINT B ' expected 100
PRINT C ' expected 101
 
LET A=2
LET B=-1 : LET C=-1
IF A=1 THEN LET B=100 : LET C=101
PRINT B ' expected -1
PRINT C ' expected -1
 
 
 
PRINT "----- IF Cond THEN Stmt ELSE Stmt -------------------------------------"
 
LET A=1
IF A=1 THEN LET B=100 ELSE LET B=200
PRINT B ' expected 100
 
LET A=1
IF A=1 THEN LET B=100 ELSE LET B=200
PRINT B ' expected 200
 
 
 
PRINT "----- IF Cond THEN Stmt:Stmt ELSE Stmt:Stmt ---------------------------"
 
LET A=1
IF A=1 THEN LET B=100 : LET C=101 ELSE LET B=200 : LET C=201
PRINT B ' expected 100
PRINT C ' expected 101
 
LET A=2
IF A=1 THEN LET B=100 : LET C=101 ELSE LET B=200 : LET C=201
PRINT B ' expected 200
PRINT C ' expected 201
 
 
 
PRINT "----- IF Cond THEN ----------------------------------------------------"
PRINT "        Stmt"
PRINT "      END IF"
 
LET A=1
LET B=-1
IF A=1 THEN
  LET B=100
END IF
PRINT B ' expected 100
 
LET A=2
LET B=-1
IF A=1 THEN
  LET B=100
END IF
PRINT B ' expected -1
 
 
 
PRINT "----- IF Cond THEN ----------------------------------------------------"
PRINT "      END IF"
 
LET A=1
LET B=-1
IF A=1 THEN
END IF
PRINT B ' expected -1
 
 
 
PRINT "----- IF Cond THEN ----------------------------------------------------"
PRINT "        Stmt"
PRINT "      ELSE"
PRINT "        Stmt"
PRINT "      END IF"
 
LET A=1
IF A=1 THEN
  LET B=100
ELSE
  LET B=200
END IF
PRINT B ' expected 100
 
LET A=2
IF A=1 THEN
  LET B=100
ELSE
  LET B=200
END IF
PRINT B ' expected 200
 
 
 
PRINT "----- IF Cond THEN ----------------------------------------------------"
PRINT "        Stmt"
PRINT "      ELSE"
PRINT "      END IF"
 
LET A=1
LET B=-1
IF A=1 THEN
  LET B=100
ELSE
END IF
PRINT B ' expected 100
 
LET A=2
LET B=-1
IF A=1 THEN
  LET B=100
ELSE
END IF
PRINT B ' expected -1
 
 
 
PRINT "----- IF Cond THEN ----------------------------------------------------"
PRINT "      ELSE"
PRINT "        Stmt"
PRINT "      END IF"
 
LET A=1
LET B=-1
IF A=1 THEN
ELSE
  LET B=200
END IF
PRINT B ' expected -1
 
LET A=2
LET B=-1
IF A=1 THEN
ELSE
  LET B=200
END IF
PRINT B ' expected 200
 
 
 
PRINT "----- IF Cond THEN ----------------------------------------------------"
PRINT "      ELSE"
PRINT "      END IF"
 
LET A=1
LET B=-1
IF A=1 THEN
ELSE
END IF
PRINT B ' expected -1
 
LET A=2
LET B=-1
IF A=1 THEN
ELSE
END IF
PRINT B ' expected -1
 
 
 
' ----- îÅÇÁÔÉ×ÎÙÅ ÔÅÓÔÙ ------------------------------------------------------
 
' IF A=1
 
' IF A=1 THEN
 
' IF A=1 THEN LET A=1 ELSE
 
' IF A=1 THEN ELSE LET A=1
 
' IF A=1 THEN
'   LET A=1
 
' IF A=1 THEN
'   LET A=1
' END
 
' IF A=1 THEN
'   LET A=1 ELSE LET A=2
 
' IF A=1 THEN LET A=1
' ELSE LET A=2
 
' IF A=1 THEN LET A=1 ELSE LET A=2 END IF
 
Текущее время: 13:45. Часовой пояс GMT +3.
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2016, vBulletin Solutions, Inc.
Рейтинг@Mail.ru