QBasic/metinf (также о SmallBasic)
Новый визуальный язык от Google (пример с лабиринтом) пост с Хабра: Визуальный язык программирования Google Blockly
Загрузки
Бейсик с сайта Microsoft (официально, Shareware)
Free BASIC (Wiki, ru, IDE)
Free Pascal (Wiki, ru)
Для работы с Java и С:
Для работы с C# и проч. (.NET)
PythonPascal ABCУчебник-интерпретатор RubyЩелкните по этой ссылке и определите по программе, какую задачу она решает
Какую задачу решает эта программа?
Переведите ее на Javascript или PHP
CLS
DIM i, imax, c, a(26) AS INTEGER
OPEN "TEXT.DAT" FOR INPUT AS #2
S$ = "1"
DO WHILE NOT (S$ = ".")
S$ = INPUT$(1, #2)
c = ASC(UCASE$(S$))
IF c >= ASC("A") AND c <= ASC("Z") THEN
c = c - ASC("A") + 1
a(c) = a(c) + 1
END IF
LOOP
FOR i = 1 TO 26
IF a(i) > 0 THEN PRINT CHR$(i + 64); " = "; a(i); " ";
NEXT i
imax = 1
FOR i = 2 TO 26
IF a(i) > a(imax) THEN imax = i
NEXT i
PRINT : PRINT CHR$(imax + 64), a(imax)
CLOSE #2
Пример работы: отладка алгоритма сортировки "пузырьком"
def bubble_sort(seq):
changed = True
while changed:
changed = False
for i in xrange(len(seq) - 1):
if seq[i] > seq[i+1]:
seq[i], seq[i+1] = seq[i+1], seq[i]
changed = True
return None
array = [200, 100, 150, 180, 110]
bubble_sort(array)
print array
Задачи и примеры по QBasic + книга Сафронова
Онлайн-интерпретатор Бейсика
Онлайн-интерпретатор для ряда других языков