Navigation bar
  Print document Start Previous page
 118 of 144 
Next page End  

118
Сидоров
Алеша
5
3
3
проходной балл =? 14
Правильные результаты:
отличники:
отсутствуют                             
не меньше проходного:
отсутствуют.
В приведенных тестах анализируются различные логические ситуации с отсутствием «от-
личников» или «успешно» сдавших экзамены. При составлении программы эти ситуации можно
явно предусмотреть в сценарии диалога с ЭВМ:
Сценарий
   оценки учащихся:
<фам> <имя> <мат> <инф> <язык>      *
  ………………………………….
проходной балл=? <b1> 
отличники:
          
         <фам> <имя>                      *
……………
отсутствуют 
не меньше проходного:
       
  <фам> <имя> <sum>                 *
……………..
отсутствуют
Программа                       
Алгоритм
' результаты экзаменов             
алг «результаты экзаменов»
    cls                                   
      нач
  ? «оценки учащихся:»              
    вывод («оценки учащихся:»)
     do                               
        цикл
read fm$, nm$, mt, in, zk            
            ввод fm$, nm$, mt, in, zk
if fm$ = «» then exit do              
            если fm$ = «» то выход
? fm$, nm$, mt, in, zk
вывод (fm$, nm$, mt, in, zk)
loop
кцикл
input «проходной балл=»,b1
запрос («проходной балл=»,b1)
restore ocenki
перезагрузка_ oценки
? «отличники:»
вывод («отличники:»)
n = 0
п = 0
do 
       цикл
read fm$, nm$, mt, in, zk 
    ввод fm$, nm$, mt, in, zk
if fm$ = «» then exit do
   если fm$ = «» то выход
if mt=5 and in=5 and zk=5 then
   если mt=5 и in = 5 и zk=5 то
? fin$, nm$
      вывод (fm$, nm$)
n = n + 1
      n = n + 1
end if
   кесли
loop
  кцикл
if n=0 then ? «отсутствуют»
если п=0 то вывод(«отсутствуют»)
restore ocenki
перезагрузка-оценок
? «не меньше проходного:»
   вывод («не меньше проходного:»)
n = 0
п = 0
do
      цикл
Сайт создан в системе uCoz