Turbo Basic прикладной
Информация - Компьютеры, программирование
Другие материалы по предмету Компьютеры, программирование
=pol(i+1):pol(i+1)=pol(i):pol(I)=c
245 next i
246 next n
247 for i=1 to 50
248 p=q(I):g=pol(i)
250 if k=16 then goto 260
251 if k=31 then goto 260
252 if k=46 then goto 260
255 goto 300
260 if inkey$=" " then k=1:goto 300
270 goto 260
300 locate k+6,2:print a$(g)
310 locate k+6,31:print b(1,g)
315 locate k+6,39:print b(2,g)
320 locate k+6,49:print b(3,g)
330 locate k+6,59:print using "#.##";p
335 print #2,"+";a$(g);" + ";b(1,g);" + ";b(2,g);" + ";b(3,g);" + "
336 print using "#.##";p;:print #2," +"
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
ПОДРОБНОЕ ПОСТРОЧНОЕ ОПИСАНИЕ ХОДА ПРОГРАММЫ
Программа ввода информации:
1 подготовка файла fpd.fpd для записи в него информации;
2-17 ввод исходных данных с помощью заявителя DATA;
18 заявление массива А$ размерностью 50 для хранения фамилий
и массива B размерностью 150 для хранения оценок;
19-21 цикл для записи фамилий студентов в файл последовательного доступа;
22-24 цикл для записи оценок студентов в файл последовательного доступа;
25 закрытие файла последовательного доступа;
Основная программа:
- подготовка файла fpd.fpd для считывания него информации;
15 очистка экрана и установка его высокой разрешающей способности;
20 заявление массива А$ размерностью 50 для хранения фамилий
и массива B размерностью 3*50 для хранения оценок студентов;
30-60 цикл для считывания фамилий студентов;
70-120 циклы для считывания оценок студентов;
130 закрытие файла последовательного доступа fpd.fpd;
132 подготовка файла tablica.bas для записи в него таблицы;
135 присваивание переменной M$ текстовой константы;
136 присваивание переменной N$ текстовой константы;
137 печать константы M$ и некоторой текстовой константы в файл tablica.bas;
138-170 вывод на экран рамки таблицы;
172 вывод на экран под таблицей текстового сообщения;
174-188 вывод на экран названий колонок (шапки таблицы);
189-202 запись в файл tablica.bas шапки таблицы;
204 объявление массивов для хранения среднего балла студентов;
205 открытие цикла для расчета среднего балла;
210 присваивание переменной k значение оценки по математике,
присваивание переменной f значение оценки по физике,
присваивание переменной c значение оценки по нач. геометрии;
215 расчет среднего балла и присваивание переменной p среднего
арифметического значение оценок i-го студента (присваивание переменной p массиву q, а массиву pol присваиваем номер студента (i));
216 обнуление переменной р;
227 закрытие цикла для расчета среднего балла;
230 обнуление р,
присваивание переменной k значения 1,
присваивание переменной j значения;
235-246 циклы для сортировки номера студентов и их среднего балла по возрастанию
(пузырьковая система);
247 открытие цикла для вывода данных о студентах на экран и в файл tablica.bas;
250-252 условие для вывода на экран данных о студентах по 15 человек;
255 если условие 250-252 не выполняется то происходит вывод студентов в столбик;
260 если условие 250-252 выполнилось, то требование нажать пробел для вывода следующей
группы;
270 пока не выполнится условие 260 программа будет ждать;
300-330 вывод данных о студентах в таблицу (на экран);
335 вывод данных о студентах в файл tablica.bas;
360 увеличение счетчика k на единицу;
375 закрытие цикла вывода информации на экран и в файл tablica.bas;
390-394 очистка экрана от старых данных с 12 по 21 строку;
395 закрытие файла tablica.bas;
397 условие для вывода на экран фамилий отличников по математике;
398 ожидание программой нажатия на пробел;
400 очистка экрана и печать текстового сообщения;
410-430 цикл с условием вывода на экран фамилий отличников по данной дисциплине;
432 условие для вывода на экран фамилий отличников по физике;
433 ожидание программой нажатия на пробел;
440 очистка экрана и печать текстового сообщения;
443-450 цикл с условием вывода на экран фамилий отличников по данной дисциплине;
451 условие для вывода на экран фамилий отличников по нач. геометрии;
452 ожидание программой нажатия на пробел;
455 очистка экрана и печать текстового сообщения;
460-470 цикл с условием вывода на экран фамилий отличников по данной дисциплине;
480 конец программы.
КОНТРОЛЬНЫЙ ПРИМЕР ПРОВЕРКИ РЕШЕНИЯ ЗАДАЧИ
Ахтямов Р.Р.
Математика 4
Физика 4
Начертательная геометрия 5
Средний бал