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

130 CLOSE #1

132 open "tablica.bas" for output as#2

135M$="+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++"

136 N$="+++++++++++++++++++++++++++++++"

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

138 LOCATE 1,1:PRINT M$

140 LOCATE 3,25:PRINT N$

141 LOCATE 5,1:PRINT M$

142 LOCATE 22,1:PRINT M$

150 FOR I=1 TO 22

152 LOCATE I,1:PRINT "+"

154 LOCATE I,25:PRINT "+"

156 LOCATE I,56:PRINT "+"

157 LOCATE I,65:PRINT "+"

160 NEXT I

162 FOR I=1 TO 22

164 LOCATE I,44:PRINT "+"

168 LOCATE I,36:PRINT "+"

170 NEXT I

172 LOCATE 23,5:PRINT "ХОТИТЕ ПРОДОЛЖИТЬ НАЖМИТЕ SPACE"

174 locate 2,6:b$=" Фамилия":print b$

176 locate 3,11:c$="Имя":print c$

178 locate 4,9:d$="Отчество":print d$

179 locate 2,34:r$="Дисциплина ":print r$

180 locate 2,58:i$="Средний":print i$

182 locate 3,60:j$="бал":print j$

184 locate 4,26:g$=" мат":print g$

186 locate 4,37:h$=" Физ":print h$

188 locate 4,46:f$="нач\гео":print f$