                 Вопросы к работе ДИСПЕРСИЯ СВЕТА

if NEx=1 then     { УПРАЖНЕНИЕ 1 }
       1:
          WriteOut('  Угол падения луча на призму задан.');
          WriteOut('Зависит ли угол отклонения луча от');
          WriteOut('места его падения на призму?  (y/n)');
          if s1='n' then y:='Правильно!' else y:='Неправильно';
       2:
          WriteOut('  Какие лучи обычно отклоняются');
          WriteOut('сильнее?');
          WriteOut('1. красные,  2. желтые,  3. зеленые,');
          WriteOut('4. голубые,  5. фиолетовые.');
          if abs(xa-5)<0.001 then y:='Правильно!' else y:='Неправильно';
       3:
          WriteOut('    Луч переместили на более толстый');
          WriteOut('участок призмы.  Угол падения не ме-');
          WriteOut('няли. Расстояние между красным и фи-');
          WriteOut('олетовым лучами после призмы');
          WriteOut('1. не изменилось,  2. увеличилось,');
          WriteOut('3. уменьшилось,  4. в зависимости от');
          WriteOut('   призмы возможны ответы 2 и 3.');
          if abs(xa-2)<0.001 then y:='Правильно!' else y:='Неправильно';
       4:
          WriteOut('  Вы смотрите через призму на источ-');
          WriteOut('ник света. Наблюдаются');
          WriteOut('1. и красные и фиолетовые лучи,');
          WriteOut('2. только красные лучи,');
          WriteOut('3. источник вообще не наблюдается,');
          WriteOut('4. возможны все предыдущие ответы,');
          WriteOut('5. возможны только ответы 1 и 2.');
          if abs(xa-4)<0.001 then y:='Правильно!' else y:='Неправильно';
       5:
          WriteOut('  Показатель преломления стекла марки');
          WriteOut('ФЛИНТ с ростом длины волны света');
          WriteOut('1. увеличивается,');
          WriteOut('2. уменьшается,');
          WriteOut('3. не меняется.');
          if abs(xa-2)<0.001 then y:='Правильно!' else y:='Неправильно';
       6:
          WriteOut('  Показатель преломления воды с ростом');
          WriteOut('длины волны света');
          WriteOut('1. уменьшается ,');
          WriteOut('2. не меняется .');
          WriteOut('3. увеличивается ,');
          if abs(xa-1)<0.001 then y:='Правильно!' else y:='Неправильно';
       7:
          WriteOut('  Угол при вершине призмы увеличили.');
          WriteOut('Ширина спектра за призмой');
          WriteOut('1. уменьшилась,  2. увеличилась,');
          WriteOut('3. не изменилась.');
          if abs(xa-2)<0.001 then y:='Правильно!' else y:='Неправильно';
       8:
          WriteOut('  Угол падения луча на призму увели-');
          WriteOut('чили. Ширина спектра за призмой');
          WriteOut('1. уменьшилась,  2. увеличилась,');
          WriteOut('3. не изменилась,');
          WriteOut('4. возможны все предыдущие ответы.');
          if abs(xa-4)<0.001 then y:='Правильно!' else y:='Неправильно';
       9:
          WriteOut('    Луч падает на призму по нормали.');
          WriteOut('Угол призмы 30°. При каком максималь-');
          WriteOut('ном показателе преломления луч еще');
          WriteOut('пройдет сквозь призму?');
          if abs(xa-2)<0.001 then y:='Правильно!' else y:='Неправильно';
      10:
          WriteOut('  Меняем угол падения луча на призму');
          WriteOut('от 0° до 90°. Угол отклонения луча');
          WriteOut('1. монотонно возрастает,');
          WriteOut('2. монотонно убывает,');
          WriteOut('3. становится наименьшим, когда луч в');
          WriteOut('   призме параллелен ее основанию,');
          WriteOut('4. в зависимости от показателя прелом-');
          WriteOut('   ления либо возрастает, либо убывает.');
          if abs(xa-3)<0.001 then y:='Правильно!' else y:='Неправильно';
       11:
          WriteOut('Зависит ли величина дисперсии от');
          WriteOut('величины показателя преломления?');
          WriteOut('          y / n');
          if s1='n' then y:='Правильно!' else y:='Неправильно';
      12:
          WriteOut('   Призму с коэффициентом преломления');
          WriteOut('n=1.8 опустили в воду ( n=1.33 ). Как');
          WriteOut('изменится угол отклонения лучей?');
          WriteOut('     1. увеличится');
          WriteOut('     2. уменьшится');
          WriteOut('     3. не изменится');
          if abs(xa-2)<0.001 then y:='Правильно!' else y:='Неправильно';
       13:
          WriteOut('Обычно с ростом частоты света');
          WriteOut('коэффициент преломления');
          WriteOut('');
          WriteOut('     1. увеличивается,');
          WriteOut('     2. уменьшается,');
          WriteOut('     3. не меняется.');
          if abs(xa-1)<0.001 then y:='Правильно!' else y:='Неправильно';
  if NEx=2 then
       1:
          WriteOut('   Можно ли увидеть радугу от света Луны?');
          WriteOut('1. можно, если Луна низко над горизонтом');
          WriteOut('2. никогда и ни за что!');
          WriteOut('3. можно, если Луна высоко над горизонтом');
          WriteOut('4. можно при любом положении Луны');
          if abs(xa-1)<0.001 then y:='Правильно!' else y:='Неправильно';
       2:
          WriteOut('    При каком максимальном угле');
          WriteOut('Солнца над горизонтом еще видна');
          WriteOut('первая радуга?');
          if abs(xa-42)<2 then y:='Правильно!' else y:='Неправильно';
       3:
          WriteOut('Какая часть капельки формирует');
          WriteOut('первую радугу?');
          WriteOut('  1. верхняя,');
          WriteOut('  2. средняя,');
          WriteOut('  3. нижняя,');
          WriteOut('  4. все части капли.');
          if abs(xa-1)<0.001 then y:='Правильно!' else y:='Неправильно';
       4:
          WriteOut(' Под каким углом к лучу Солнца');
          WriteOut('видна первая радуга?');
          WriteOut('Ответ извольте дать в десятичной');
          WriteOut('записи.');
          if abs(xa-42)<1.1 then y:='Правильно!' else y:='Неправильно';
       5:
          WriteOut('   Представьте, что Вы видите первую');
          WriteOut('радугу. Где небо темнее?');
          WriteOut('1. под радугой');
          WriteOut('2. над радугой');
          WriteOut('3. везде одинаково');
          WriteOut('4. это зависит от времени суток');
          if abs(xa-2)<0.001 then y:='Правильно!' else y:='Неправильно';
       6:
          WriteOut('   Какой луч выходит из капли ниже при');
          WriteOut('возникновении первой радуги?');
          WriteOut('  1. красный');
          WriteOut('  2. желтый');
          WriteOut('  3. зеленый');
          WriteOut('  4. фиолетовый');
          if abs(xa-1)<0.001 then y:='Правильно!' else y:='Неправильно';
       7:
          WriteOut('Какой цвет выше в первой радуге?');
          WriteOut('  1. красный');
          WriteOut('  2. желтый');
          WriteOut('  3. зеленый');
          WriteOut('  4. фиолетовый');
          if abs(xa-1)<0.001 then y:='Правильно!' else y:='Неправильно';
       8:
          WriteOut('Зависит ли вид радуги от размера капель?');
          WriteOut('1. зависит');
          WriteOut('2. не зависит');
          WriteOut('3. зависит, если дождь очень мелкий');
          if ((abs(xa-2)<0.001) or (abs(xa-3)<0.001)) then
              y:='Правильно!' else y:='Неправильно';
       9:
          WriteOut('  У простой стеклянной линзы из-за');
          WriteOut('дисперсии фокус больше для лучей');
          WriteOut('1. красных,  2. желтых,  3. зеленых,');
          WriteOut('4. голубых,  5. фиолетовых.');
          if abs(xa-1)<0.001 then y:='Правильно!' else y:='Неправильно';
      10:
          WriteOut('Можно ли увидеть радугу, лежащую');
          WriteOut('         на лугу в росе?');
          WriteOut(' 1. Конечно, можно! Это несложно.');
          WriteOut(' 2. Никогда! И не пытайтесь!');
          if abs(xa-1)<0.001 then y:='Правильно!' else y:='Неправильно';
      11:
          WriteOut('Чтобы увидеть радугу от фонтана,');
          WriteOut('надо встать');
          WriteOut(' 1. спиной к Солнцу,');
          WriteOut(' 2. лицом к фонтану,');
          WriteOut(' 3. лицом к Солнцу,');
          WriteOut(' 4. как угодно.');
          if abs(xa-1)<0.001 then y:='Правильно!' else
            begin
             y:='Неправильно';
             if abs(xa-2)<0.001 then
     OutTextXY(MaxX div 2,MaxY-5*TH,'Это очевидно! Ответ не засчитывается.');
            end;
       12:
          WriteOut('   Луч падает на каплю воды под углом 20°.');
          WriteOut('Под каким углом он выйдет из капли после');
          WriteOut('одного отражения в ней?');
          WriteOut('Углы отсчитываем от нормали к поверхности,');
          WriteOut('т.е. от радиуса.');
          if abs(xa-20)<0.001 then y:='Правильно!' else y:='Неправильно';
       13:
          WriteOut('Можно ли увидеть радугу, имеющую форму');
          WriteOut('полной окружности?');
          WriteOut('   1. ни за что и никогда!');
          WriteOut('   2. да, например, из самолета');
          WriteOut('   3. да, например, с горы ');
          if abs(xa-1)<0.001 then y:='Неправильно' else y:='Правильно!';
  if NEx=3 then
       1:
          WriteOut('Какая часть капельки формирует');
          WriteOut('вторую радугу?');
          WriteOut('  1. верхняя,');
          WriteOut('  2. средняя,');
          WriteOut('  3. нижняя,');
          WriteOut('  4. все части капли.');
          if abs(xa-3)<0.001 then y:='Правильно!' else y:='Неправильно';
       2:
          WriteOut(' Под каким углом к лучу Солнца');
          WriteOut('видна вторая радуга?');
          WriteOut('Ответ извольте дать в десятичной');
          WriteOut('записи.');
          if abs(xa-52)<2.1 then y:='Правильно!' else y:='Неправильно';
       3:
          WriteOut('   Вам посчастливилось увидеть вторую');
          WriteOut('радугу. Где небо темнее?');
          WriteOut('1. над радугой,');
          WriteOut('2. под радугой,');
          WriteOut('3. везде одинаковое,');
          WriteOut('4. это зависит от времени суток.');
          if abs(xa-2)<0.001 then y:='Правильно!' else y:='Неправильно';
       4:
          WriteOut('     Какая радуга выше?');
          WriteOut('  1. первая');
          WriteOut('  2. вторая');
          WriteOut('  3. это зависит от размера капель');
          if abs(xa-2)<0.001 then y:='Правильно!' else y:='Неправильно';
       5:
          WriteOut('     Какая радуга ярче?');
          WriteOut('  1. первая');
          WriteOut('  2. вторая');
          WriteOut('  3. обе одинаковой яркости');
          if abs(xa-1)<0.001 then y:='Правильно!' else y:='Неправильно';
       6:
          WriteOut('  Какой луч выходит из капли выше');
          WriteOut('при возникновении второй радуги?');
          WriteOut('  1. красный');
          WriteOut('  2. желтый');
          WriteOut('  3. зеленый');
          WriteOut('  4. фиолетовый');
          if abs(xa-1)<0.001 then y:='Правильно!' else y:='Неправильно';
       7:
          WriteOut('   Какой цвет выше во второй радуге?');
          WriteOut('  1. красный');
          WriteOut('  2. желтый');
          WriteOut('  3. зеленый');
          WriteOut('  4. фиолетовый');
          if abs(xa-4)<0.001 then y:='Правильно!' else y:='Неправильно';
       8:
          WriteOut('Почему первая радуга ярче второй?');
          WriteOut('  1. короче путь луча');
          WriteOut('  2. число отражений меньше');
          WriteOut('  3. она ниже');
          WriteOut('  4. она ближе');
          if abs(xa-2)<0.001 then y:='Правильно!' else y:='Неправильно';
        9:
          WriteOut('Может ли во время дождя возникнуть');
          WriteOut('третья радуга?      ( y/n )');
          if s1='y' then y:='Правильно!' else y:='Неправильно';
       10:
          WriteOut('   Луч падает на каплю воды под углом 30°.');
          WriteOut('Под каким углом он выйдет из капли после');
          WriteOut('двух отражений в ней?');
          WriteOut('Углы отсчитываем от нормали к поверхности,');
          WriteOut('т.е. от радиуса.');
          if abs(xa-30)<0.001 then y:='Правильно!' else y:='Неправильно';
       11:
          WriteOut('   Луч падает на каплю воды под углом 45°.');
          WriteOut('Под каким углом он выйдет из капли после');
          WriteOut('трех отражений в ней?');
          WriteOut('Углы отсчитываем от нормали к поверхности,');
          WriteOut('т.е. от радиуса.');
          if abs(xa-45)<0.001 then y:='Правильно!' else y:='Неправильно';
       12:
          WriteOut('   Луч падает на каплю воды под углом 50°.');
          WriteOut('Под каким углом он выйдет из капли после');
          WriteOut('трех отражений в ней?');
          WriteOut('Углы отсчитываем от нормали к поверхности,');
          WriteOut('т.е. от радиуса.');
          if abs(xa-50)<0.001 then y:='Правильно!' else y:='Неправильно';
;End.  