20 REM Язык GW-Basic 30 REM Живи, Бейсик! 40 REM No input 50 DIM A, B, C 60 DIM D, E 100 REM 171.1.1 110 PRINT "1. Здравствуй, мир!" 120 REM 177.1.2 130 A = 65 140 PRINT "2." A 150 REM 182.2.3 160 A = 3: B = 2 170 A = A + 1: B = B + 1: C = A * B 180 PRINT "3." A B C 190 REM 185.1.4 200 A = 1: B = 2: C = A / B 210 PRINT "4." C 220 REM 188.1.5 230 A = 1: B = 1: C = 1: D = 1 240 E = A * 2 + (B - .5) + (C + D) - 7 250 PRINT "5. " E 260 REM 193.1.6 270 A = 84.3: B = -12: C = 32.15 280 PRINT "6." A B C 290 REM 42.1.7 300 A = 1996 310 PRINT "7. Сейчас" A "год." 320 REM 47.5.8 330 A = 5 340 B = 2 * 3.1415926# * A 350 PRINT "8. Длина окружности радиуса" A "равна" B 360 REM 54.8.9 370 A = 60000! 380 B = A 390 PRINT "9. a =" A ", b =" B 400 REM 68.11.10 410 A = 5: B = 60 420 A = A + 1: B = B + 1 430 PRINT "10. a =" A ", b =" B 440 PRINT A + 1 B + 1 450 REM 69.12.11 460 A = 101 <= 105 470 B = 101 > 105 480 PRINT "11. true: " A ", false: " B 490 REM 80.1.12 500 FOR A = 1 TO 10000 510 NEXT 520 END
WEB-ПРОГРАММИРОВАНИЕ!
:Юрий Казекин
10 REM p1
20 REM Язык GW-Basic
30 REM Живи, Бейсик!
40 REM No input
50 DIM A, B, C
60 DIM D, E
100 REM 171.1.1
110 PRINT "1. Здравствуй, мир!"
120 REM 177.1.2
130 A = 65
140 PRINT "2." A
150 REM 182.2.3
160 A = 3: B = 2
170 A = A + 1: B = B + 1: C = A * B
180 PRINT "3." A B C
190 REM 185.1.4
200 A = 1: B = 2: C = A / B
210 PRINT "4." C
220 REM 188.1.5
230 A = 1: B = 1: C = 1: D = 1
240 E = A * 2 + (B - .5) + (C + D) - 7
250 PRINT "5. " E
260 REM 193.1.6
270 A = 84.3: B = -12: C = 32.15
280 PRINT "6." A B C
290 REM 42.1.7
300 A = 1996
310 PRINT "7. Сейчас" A "год."
320 REM 47.5.8
330 A = 5
340 B = 2 * 3.1415926# * A
350 PRINT "8. Длина окружности радиуса" A "равна" B
360 REM 54.8.9
370 A = 60000!
380 B = A
390 PRINT "9. a =" A ", b =" B
400 REM 68.11.10
410 A = 5: B = 60
420 A = A + 1: B = B + 1
430 PRINT "10. a =" A ", b =" B
440 PRINT A + 1 B + 1
450 REM 69.12.11
460 A = 101 <= 105
470 B = 101 > 105
480 PRINT "11. true: " A ", false: " B
490 REM 80.1.12
500 FOR A = 1 TO 10000
510 NEXT
520 END