Тема: Неполиткорректность :))
Привет!
Разбираю проги старые, на диске результаты работы класса учеников, которым было выдано задание написать программу, задающую вопрос и реагирующую на ответ. Каждый пишет по своему, но видно, что за вопрос был и кто как решал эту задачку. Одна из версий:
[0002] 10 HOME :
TEXT= 63
[000C] 15 INPUT "вы мальчик или девочка?";B$
[002E] 20 VTAB 15
[0036] 30 IF B$ = "мальчик" THEN PRINT "ну здравствуй, мальчик!":
GOTO 60
[0067] 40 PRINT "здравствуй, девочка!"
[0083] 50 VTAB 30:
HTAB 8:
PRINT "конец программы"
[00A1] 60 PRINT "*******************************************"
Кто-то был посообразительнее:
[0002] 10 HOME :
TEXT= 63
[000C] 20 INPUT "вы кто, мальчик или девочка? (M/D)";A$
[003A] 30 REM -------------------------------
[005F] 40 IF A$ = "M" GOTO 80
[006E] 50 IF A$ = "D" GOTO 100
[007E] 60 REM --------------------------------
[00A6] 70 SPEED= 35:
VTAB 15:
PRINT "не балуй, отрок!!!":
SPEED= 255:
GOTO 10
[00D1] 80 VTAB 15:
PRINT "агат этому рад, мальчик!"
[00F5] 90 GOTO 120
[00FE] 100 VTAB 15:
PRINT "Aгат тебе очень рад, девочка!"
[0127] 120 VTAB 30:
PRINT " *** конец *** "