Реферат: Turbo Basic прикладной

360 k=k+1

375 next i

390 for o=12 to 21

391 locate o,1:print " "

392 next o

393 locate 12,1:print m$

394 print #2,m$;"+++++++++++++"

395 close #2

397 if inkey$=" " then goto 400

398 goto 397

400 cls:PRINT "Отличники по математике":print

410 FOR I=1 TO 50

420 IF B(1,I)=5 THEN PRINT A$(I)

430 NEXT I

432 if inkey$=" " then goto 440

433 goto 432

440 cls: PRINT "Отличники по физике":print

443 FOR I=1 TO 50

445 IF B(2,I)=5 THEN PRINT A$(I)

450 NEXT I

451 if inkey$=" " then goto 455

452 goto 451

455 cls:

PRINT "Отличники по начертательной геометрии ":print

460 FOR I=1 TO 50

465 IF B(3,I)=5 THEN PRINT A$(I)

470 NEXT I

490 END

ПОДРОБНОЕ ПОСТРОЧНОЕ ОПИСАНИЕ ХОДА ПРОГРАММЫ

Программа ввода информации: