1 Тема от Voldemar0 Отредактировано Voldemar0 (26-12-2019 05:08)

  • Voldemar0
  • Voldemar0
  • Участник
  • Неактивен

Тема: Неполиткорректность :))

Привет!

Разбираю проги старые, на диске результаты работы класса учеников, которым было выдано задание написать программу, задающую вопрос и реагирующую на ответ. Каждый пишет по своему, но видно, что за вопрос был и кто как решал эту задачку. Одна из версий:

[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 "     ***     конец    ***  "

2 Ответ от Voldemar0 Отредактировано Voldemar0 (26-12-2019 05:07)

  • Voldemar0
  • Voldemar0
  • Участник
  • Неактивен

Re: Неполиткорректность :))

А вот ещё техническая неполиткорректность:

[0002]      5  HOME :
               TEXT= 63
[000C]      9  REM ------------------------------------
[0036]     10  REM УЧЕБНАЯ ПРОГРАММА 1
[004F]     20  GOTO 40
[0057]     30  PRINT "первый оператор"
[006E]     35  GOTO 50
[0076]     40  PRINT "второй оператор"
[008D]     45  GOTO 30
[0095]     50  PRINT "конец программы"
[00AC]     51  REM -----------------------------------
[00D5]     53  LIST 
[00DB]     54  PRINT 
[00E1]     56  REM ------------------------------------
[010B]     60  REM ТА ЖЕ ПРОГРАММА БЕЗ ОПЕРАТОРОВ GOTO
[0134]     70  PRINT "первый оператор"
[014B]     80  PRINT "второй оператор"
[0162]     90  PRINT "конец программы"
[0179]     91  REM -----------------------------------