Методика изучения волновых процессов в оптике с применением ЭВМ в курсе физики средней школы тема диссертации и автореферата по ВАК РФ 13.00.02, кандидат педагогических наук Абросимов, Павел Викторович
- Специальность ВАК РФ13.00.02
- Количество страниц 269
Оглавление диссертации кандидат педагогических наук Абросимов, Павел Викторович
ВВЕДЕНИЕ
ГЛАВА 1. Аналитический обзор литературы по проблеме использования ЭВМ при обучении физике
1.1. Соотношение между учебным экспериментом и компьютерным моделированием физических явлений
1.2. Возможности использования ЭВМ для изучения и моделирования физических явлений.
1.3. Анализ методики изучения раздела "Волновые явления" в курсе. физики средней школы.
1.4. Анализ методики изучения с помощью ЭВМ и других, технических средств обучения темы "Световые волны".
1.5. Выводы. 4
ГЛАВА 2. Методика изучения волновых процессов в оптике с применением ЭВМ.
2.1. Выбор персональной ЭВМ для кабинета физики.
2.2. Методика изучения интерференции световых волн
2.2.1. Интерференция синусоидальных волн.
2.2.2. Особенности интерферениции "света. Монохроматичность. Когерентность
2.2.3. Анализ классических интерференционных схем (опыт Юнга, зеркала Френеля, бипризма Френеля, билинза Бийе, зеркало Ллойда)
2.3. Методика изучения дифракции световых волн.
2.3.1. Дифракция световых волн на щели
2.3.2. Дифракция световых волн на линейной дифракционной решетке
2.3.3. Дифракция световых волн на двумерной дифракционной решетке
2.3.4. Дифракция световых волн на трехмерной дифракционной решетке (голограмме)
2.4. Особенности при работе с разработанным пакетом моделирующих программ по волновой оптике
2.5. Контроль знаний по волновой оптшсе с помощью ЭВМ.
2.6. Выводы . 111.
ГЛАВА 3. Методика изучения предлагаемого раздела
Физические основы голографии"
3.1. Роль и место в курсе волновой оптики вопроса "Физические основы голографии"
3.2. Краткие теоретические основы и "традиционные" методы получения объемных изображений .L.
3.3. Голография - новый метод получения истинно объемных изображений объектов.
3.4. Применение голографии. Перспективы использования голографии в средствах массовой информации.
Рекомендованный список диссертаций по специальности «Теория и методика обучения и воспитания (по областям и уровням образования)», 13.00.02 шифр ВАК
Совершенствование методики преподавания явления дифракции на основе новых информационных технологий1999 год, кандидат педагогических наук Светлицкий, Сергей Леонидович
Применение электронной оптики в учебном физическом эксперименте2004 год, кандидат педагогических наук Горшечников, Михаил Васильевич
Модельный компьютерный эксперимент в лабораторном практикуме по волновой оптике в вузе2008 год, кандидат педагогических наук Ермаков, Антон Владимирович
Изучение оптических явлений в основной школе в условиях социально-психологической поддержки2002 год, кандидат педагогических наук Крючкова, Наталья Николаевна
Проблема экспериментального изучения волновых процессов: на примере упругих волн2009 год, кандидат педагогических наук Вараксина, Екатерина Ивановна
Введение диссертации (часть автореферата) на тему «Методика изучения волновых процессов в оптике с применением ЭВМ в курсе физики средней школы»
В соответствии с требованиями жизни современного общества, с учетом бурно развивающегося научно-технического прогресса, одной из главных задач частных методик остается задача максимального сокращения разрыва между наукой и школьным образованием. Решение этой задачи, как определяют дидактика и психология, возможно различными путямии , в том числе, интенсификацией обучения и научной организацией педагогического труда (НОШ!).
Эти два направления могут успешно развиваться только с т: 'X использованием в преподавании современных научных и техни-ч ческих средств и методов исследования.
В преподавании физики, где роль наглядности особенно велика, большое значение на пути интенсификации обучения приобретает символическая наглядность, обладающая высокой плотностью информации [24, 171.
Среди современных научных и технических средств исследования на одно из ведущих мест выходит ЭВМ и компьютерные методы сбора, обработки и передачи информации. В преподавании физики электронно-вычислительная техника позволяет обеспечить символическую наглядность при изучении большого количества физических явлений и процессов различной природы.
Использование ЭВМ (в том числе и для компьтерного моделирования физических процессов) в разумных пределах значительно сокращает время на подготовку опытов по волновой оп-• тике и на их демонстрацию в ходе урока, усиливает их выразительность. Резко возрастает наглядность опыта, появляется возможность в широких пределах изменяя начальные условия, сразу же видеть к какому результату это приводит. Выделить главные и наиболее существенные стороны физического процесса. Использование компьютерных моделей, в том случае, когда это оправдано, производит значительный аффект и эмоциональное воздействие на учащихся, способствует решению проблем интенсификации обучения и НОПТ.
Кроме того, все возрастающая роль ЭВМ и компьютерного моделирования в современной науке, технике и народном хозяйстве, делает необходимым привитие навыков работы с компьютером и применения электронных методов обработки информации наряду с такими навыками, как навыки использования элекроиз-мерительных приборов.
Тем не менее, в практике преподавания физики в вузе, а тем более в средней школе ЭВМ используется еще явно недостаточно. Исходя из вышеизложенного становится особенно актуальной проблема более полного использования возможностей компьютера и компьютерных технологий для широкого и систематического применения в преподавании физике.
Актуальность этой проблемы подтверждается большим вниманием, которое уделяется компьютерным методам получения, обработки и передачи информации как в научных исследованиях по общим вопросам естествознания, так и в исследованиях по методике преподавания физике [7,8,21,35,49,50,54,563.
Несмотря на бурное развитие компьютерных технологий, научной и методической литературы по вопросам широкого использования возможностей ЭВМ при обучении физике сравнительно мало. В ней рассматриваются лишь некоторые аспекты использования ЭВМ в курсе физики средней школы. Мал объем и программного обеспечения физических опытов (демонстрационные, обучающие, моделирующие и контролирующие программы). Отсутствует единый банк компьютерных программ по физике, вследствие чего создаваемые программы разрознены, не отвечают порой методическим требованиям, предъявляемым к подобного рода материалам, нет информации что создано или создается нового, что приводит к появлению множества однотипных программ с характерными методическими неточностями.
Объектом исследования является проблема применения компьютерных средств обучения физике в средней школе России и на физико-математических факультетах педагогических вузов.
В качестве предмета исследования рассматривается разработка методики использования компьютерных средств по изуче-' нию волновых явлений в оптике на уроках физики средней школе и на физико-математических факультетах педагогических вузов.
Мы считаем и выдвигаем в качестве гипотезы, что изучение волновых процессов в оптике в курсе физики средней школы и вуза с помощью моделирующих программ позволяет повысить наглядность обучения, будет способствовать решению.задач интенсификации обучения и НОПТ, более отчетливо показывать сущность физического явления, повысить научный уровень преподавания и, благодаря всему этому, содействовать развитию познавательного интереса учащихся и повышению качества их знаний.
Изложенная гипотеза побудила избрать целью исследования . дальнейшее повышение эффективности преподавания физики путем разработки обучающих, моделирующих и контролирующих программ, методики изучения с их помощью волновых процессов в оптике в одиннадцатом классе средней школы и на физико-математических факультетах педагогических вузов.
Исходя из поставленной цели, определены контретные задачи, которые потребовалось решить в ходе исследования г
1. Построить дидактически обоснованную систему обучающих, моделирующих и контролирующих программ по основным опытам волновой оптики с учетом действующей школьной программы по физике.
2. Разработать методику изучения и преподавания физики с использованием разработанного программного обеспечения и имеющихся у учащихся знаний, позволяющую при минимальных затратах труда и времени учителя получать максимальный эффект.
3. Разработать методику изучения завершающего раздела волновой оптики - голографии.
4. Разработать лабораторные работы по голографии, которые можно рекомендовать для физического практикума в 11 классе общеобразовательной школы и физико-математических факультетах педагогических вузов.
Для решения поставленных задач использованы следующие методы исследования:
- теоретический анализ проблемы на основе изучения научной, общепедагогической, психологической, учебной, научно-методической и научно-популярной литературы;
- экспериментальная работа поискового характера по выяснению существующего программного обеспечения по вопросам волновой оптики и его научно-методический анализ;
- изучение, анализ и обобщение ошта применения ЭВМ учителями физики;
- экспериментальная работа по созданию обучающих, моделирующих и контролирующих программ для ЭВМ по некоторым вопросам волновой оптики;
- экспериментальная работа по отбору, созданию и отработке методики изучения вопросов волновой оптики на основе разработанного программного обеспечения;
- экспериментальная работа поискового, обучающего и контролирующего характера, которая проводилась по разработанному программному обеспечению и методическим пособиям в. школах г.Рязани диссертантом и учителями физики;
- обсуждение разработанного наш программного обеспечения и методики изучения на его основе волновых процессов в оптике на научно-методических конференциях и семинарах учителей физики г.Рязани и области, методистов и научных работников.
Научная новизна и теоретическая значимость исследования: - предложена методика изучения волновых процессов в оптике с применением ЭВМ, предусматривающая введение основных понятий волновой оптики и последовательный переход от изучения более простых физических моделей и процессов к более сложным, от интерференции света и анализа классических интерференционных схем (опыт Юнга, зеркала Френеля, бипризма Френеля, билинза Бийе, зеркало Ллойда) к дифракции света на одной щели, далее к дифракции на линейной (одномерной), плоской (двумерной) и затем объемной (трехмерной) дифракционных решетках. Качественное изучение объемной дифракционной решетки позволяет сделать логический переход к изучению материала о голографии, позволяющего связать воедино знания о волновых свойствах света и их практическом использовании;
- предложенная методика позволяет в динамике изучать волновые процессы в оптике, вмешиваться в ход их протекания, многократно повторять моделирующий эксперимент при различных начальных условиях, поддерживать диалог обучаемых с ЭВМ;
- созданы различные типы педагогических программных средств (обучающие, моделирующие и контролирующие компьютерные программы) для курса физики общеобразовательной школы и физико-математических факультетов педагогических вузов, иллюстрирующие характер и механизм протекания волновых процессов в оптике на основе динамических компьютерных моделей;
- показаны возможности, открывающиеся при использовании проекционного видеоэкрана, совмещенного с ЭВМ, при проведении уроков физики: высокая наглядность; проведение активных диалогов в ходе занятия, с возможностью быстрого анализа правильности ответов, рассуждений и предположений учащихся для всего класса;
- разработаны лабораторные работы по получению голограмм в условиях кабинета физики общеобразовательной школы и педагогического вуза.
Практическая значимость исследования определяется тем, что:
- создан пакет прикладных программ, позволяющий реализовать некоторые возможности компьютера на занятиях физики в общеобразовательной школе и физико-математических факультетах педагогических вузов;
- разработана и внедрена в учебный процесс методика изучения волновых явлений в оптике с применением ЭВМ, позволяющая показать динамику распространения и взаимодействия световых волн, наблюдать результат дифракции и интерференции волн при значительном изменении условий эксперимента, изучать сложные для понимания физические процессы быстрее и эффективнее, чем существующая ныне методика;
- разработанный пакет прикладных программ открыт для дальнейшего совершенствования в процессе преподавания и применим для подготовки и переподготовке учителей физики.
- разработаны сценарий и методика проведения уроков-семинаров "Волновые процессы в оптике. Голография";
- даны практические рекомендации по получению голограмм в условиях кабинета физики общеобразовательной школы, позволяющие ввести в физический практикум для учащихся 11 классов новые лабораторные работы по получению голограмм;
- разработанная методика изучения волновых явлений в оптике с применением ЭВМ, как показал педагогический эксперимент, повышает уровень знаний и интерес к предмету у школьников и студентов при изучении соответствующего раздела физики, активизирует их творческие начала;
- разработанный пакет прикладных программ экономит время преподавателя при подготовке и ведении занятия, применим для подготовки и переподготовки учителей физики.
Достоверность и обоснованность научных положений и выводов обеспечена:
- опорой на методологические обобщения базовых наук: физики и информатики, выводы общей и частной дидактики;
- использованием разнообразных методов исследования, соответствующих поставленным задачам;
- соблюдением основных требований, предъявляемых к организации и проведению педагогического эксперимента.
Апробация исследования. Результаты исследования опубликованы в следующих работах:
1. Абросимов П.В., Алексеева А.Н. Основы голографии в углубленном школьном курсе физики // Активизация учебно-познавательной деятельности студентов в процессе их профессиональной подготовки: Тез. док. XXVI зонального совещания преподавателей физики, методики преподавания физики, астрономии и общетехнических дисциплин пединститутов Урала, Сибири и Дальнего Востока - Абакан: Изд-во АГПИ, 1992.- с.84-85.
2. Абросимов П.В. Голография как интергирующий раздел при обобщении темы "Волновые процессы в оптике" // Преподавание физики и астрономии в школе. Состояние, проблемы, перспективы. - Н.Новгород, 1994.- с.92-93.
3. Абросимов П.В. Вариант творческого урока-обобщения "Волновые процессы в оптике. Голография" // Активные формы и методы обучения в вузе: Тез. докл. межвуз. конф.- Рязань: Изд-во РГПУ, 1994.- с.80-82.
4. Абросимов П.В., Степанов В.А. Использование ПЭВМ "Корвет" для изучения волновых свойств света // Педагогические технологии в высшей школе: Тез. докл. межвуз. конф.-Рязань: Изд-во РГПУ, 1995.- с.134-135.
5. Абросимов П.В. Использование персональной ЭВМ и видеопроектора как средства более рационального сочетания индивидуальной и групповой форм работы при изучении физики // Общепедагогические проблемы образовательного процесса в высшей школе: Тез. докл. межвуз. конф. - Рязань: Изд-во РГПУ, 1996.- с.121-122.
6. Абросимов П.В. Новые педагогические возможности обучения физике, открывающиеся с применением сочетания ЭВМ и видеопроектора // Современная учебная техника и общеобразовательные технологии: Тез. докл. науч.-техн. конф. -Н.Новгород, М.: Изд-во "Центр-пресс", 1996. с.94-95.
7. Абросимов П.В., Выгузов В. Г., Степанов В. А. Компьютерное тестирование на ПЭВМ "Корвет" // Совершенствование мето--дики преподавания физики в непрерывной системе образования: Сборник трудов межвуз. науч.-практ. конф- - Тамбов, Изд-во ТГУ, 1996, - с.3-5.
8. Абросимов П.В., Степанов В.А. Использование видеопроектора при проведении уроков физики в компьютерном классе // Совершенствование методики преподавания физики в непрерывной системе образования": Сборник трудов межвуз. науч.-практ. конф. - Тамбов, Изд-во ТГУ, 1996,- с.5-6.
9. Абросимов П.В., Кирьяков B.C., Ильдяев И.А.,Ельцов А.В. Место и роль спецкурсов и спецсеминаров по методике преподавания физики в системе подготовки учителя физики в современных условиях // Совершенствование методики преподавания физики в непрерывной системе образования: Сборник трудов межвуз. науч.-практ. конф. - Тамбов, Изд-во ТГУ, 1996,- с.43-45.
10. Абросимов П.В., Ельцов А.В., Степанов В.А. Применение ЭВМ в курсе физики // Преподавание физики в высшей школе: Сборник научн. трудов МПГУ - М.: Мзд-во "Прометей", 1997, с.52-59.
По теме исследования автор выступал с докладами на XXVI зональном совещания преподавателей физики, методики преподавания физики, астрономии и обще технических дисциплин пединститутов Урала, Сибири и Дальнего Востока в г.Абакане; на межвузовских научно-методических конференциях в городах Москве, Н.Новгороде, Рязани, Тамбове; на курсах повышения квалификации и ежегодных региональных научно-методических конференциях учителей физики.
В 1993-1997 гг. нами по теме исследования в г. Рязани проведены занятия с учащимися одиннадцатых классов средних школ N 3 и 38, студентами ВТУ-1 (технический лицей N1), студентами физико-математического факультета РГПУ.
На защиту выносится:
- методика изучения волновых процессов в оптике с применением созданных программных средств для ЭВМ, позволяющая в динамике изучать распространение и взаимодействие световых волн; наблюдать результат дифракции и интерференции волн при значительном изменении условий эксперимента; предусматривающая последовательный переход от взаимодействия световых волн с простейшими преградами к более сложным;
- программные средства, позволяющие использовать компьютер в учебном процессе как мощное средство активизации познавательной деятельности обучаемых, повышающие интерес к физике и улучшающие качество знаний, умений и навыков.
Диссертация состоит из введения, четырех глав, заключения, библиографии и приложения. Общий объем работы 269 страниц, из них основного текста 201 страница, 73 рисунка, 4 таблицы и приложение объемом 68 страниц. Список использованной литературы включает 99 наименований.
Похожие диссертационные работы по специальности «Теория и методика обучения и воспитания (по областям и уровням образования)», 13.00.02 шифр ВАК
Совершенствование методики и техники школьного физического эксперимента по оптике на основе применения полимерных пленок1984 год, кандидат педагогических наук Тасболатов, Бекболат
Современные лекционные демонстрации по разделу "волновая оптика" курса общей физики2005 год, кандидат педагогических наук Селиверстов, Алексей Валентинович
Методика изучения основ геометрической оптики в 7-ом классе основной школы ЧССР1984 год, кандидат педагогических наук Кепка, Йосеф
Градиентная оптика в системе обучения физике1998 год, кандидат педагогических наук Майер, Валерий Вильгельмович
Система демонстрационного физического эксперимента в учебном процессе подготовки студентов физических и радиофизических специальностей университетов2009 год, кандидат педагогических наук Казарин, Петр Васильевич
Заключение диссертации по теме «Теория и методика обучения и воспитания (по областям и уровням образования)», Абросимов, Павел Викторович
4.6 Выводы
Раскрыты цели, методы и сущность педагогического эксперимента, подтверждающего эффективность предлагаемой методики изучения волновых процессов в оптике с применением ЭВМ в курсе физики средней школы.
Описаны методики проведения и обработки экспериментальных данных педагогического эксперимента.
Полученные результаты педагогического эксперимента показали, что процент правильных ответов увеличивается с 4-7%, при традиционном изучении материала по волновой оптике, до 68%, при использовании методики, предлагаемой автором работы.
Материал по волновым явлениям в оптике, изучаемый с помощью компьютера, хорошо усваивается обучаемыми в контрольных классах (по критериям эффективности хи-квадрат 12,7>7,8 при ошибке не более 5%), способствует повышению качества знаний и развитию их познавательного интереса.
ЗАКЛЮЧЕНИЕ
В результате проведенного нами исследования достигнуты следующие результаты:
- разработана методика изучения волновых процессов в оптике в курсе физики средней школы с применением ЭВМ, позволяющая изучать процессы распространения и взаимодействия световых волн в динамике; управлять моделью изучаемого волнового процесса, а затем анализировать результаты воздействия на него; осуществлять активную обратную связь с обучаемыми; получать достоверную информацию об уровне знаний как всего, коллектива, так и отдельного ученика; активизировать творческие начала и исследовательские навыки обучаемых;
- созданы иллюстративные, обучающие, моделирующие и контролирующие программы по разделу волновой оптики;
- показаны преимущества использования разработанных программ в сочетании с натурным демонстрационным экспериментом при обучении физике;
- предложена методика изложения вопроса "Физические основы голографии", являющимся логическим завершением изучения дифракционно-интерференционных эффектов и позволяющим не только познакомить учащихся с одним из направлений современной прикладной оптики, но и глубже понять, связать воедино знания о волновых свойствах света, их практическом использовании;
- даны практические рекомендации по получению голограмм в условиях кабинета физики средней школы;
- предложенные практические рекомендации позволяют поставить новые лабораторные работы по получению голограмм в физического практикума в 11 классе.
Результаты проведенного педагогического эксперимента позволяют сделать вывод о том, что:
- предложенный метод изучения волновых явлений в оптике с применением ЭВМ хорошо усваивается учащимися;
- способствует повышению качества знаний, делая эти знания более осознанными и глубокими;
- изучаемый материал усваивается учащимися легче и быстрее, что позволяет, говорить о некоторой интенсификации обучения.
Предложенная нами методика изучения волновых явлений в оптике с применением ЭВМ (в том числе и с использованием большого проекционного Еидеоэкрана) способствует научной организации педагогического труда, повышает эффективность работы учителя, сокращает время на подготовку и демонстрацию опытов, улучшает логическую стройность и завершенность преподавания. Эмоциональное воздействия компьютерных демонстра-■ ций, моделирования и контроля активизирует мышление учащихся, развивает из познавательный интерес, а также способствует эстетическому воспитанию обучаемых.
Список литературы диссертационного исследования кандидат педагогических наук Абросимов, Павел Викторович, 1998 год
1. Абросимов П.В. Новые педагогические возможности обучения физике, открывающиеся с применением сочетания ЭВМ и видеопроектора // Современная учебная техника и образовательные технологии. - Н.Новгород, М.: Изд-во "Центр-Пресс", 1996.- С.94-95.
2. Абросимов П.В. Использование видеопроектора при проведении уроков физики в компьютерном классе // Совершенствование методики преподавания физики в непрерывной системе образования. Тамбов, 1996.- С.5-6.
3. Абросимов П.В. Использование ПЭВМ "Корвет" для изучения волновых свойств света // Педагогические технологии в высшей школе. Рязань: РГПУ, 1995.- С.134-135.
4. Абросимов П.В., Скотникова И.А. Разработка и постановка опытов по голографии для средней школы. Курсовая работа. Рязань: РГПУ, 1987.
5. Агибова И.М. Комплекс лабораторных работ и средств обучения по физической оптике и методика его применения в школах разного типа. М.: МПГУ, 1994, автореферат.
6. Агапова О.И., Кривошеев А.О., Ушаков А.С. О трех поколениях компьютерных технологий обучения.//Информатика и образование. N2.1994.- С.34-40.
7. Александров И.В. Моделирование физических процессов в лазере на ПЭВМ // Сб. научн. тр./ Уфимский авиац. ин-т. 1992.- С.19-22.
8. Бабанский Ю.К. Оптимизация учебно-воспитательного процесса. М.: Просвещение. 1982,- 192 с.
9. Бабанский Ю.К. Проблемы повышения эффективности педагогических исследований. М.: Педагогика, 1982.- 164- с.
10. Базакуца В.А. Концептуальные, методологические и методические основы применения ЭВМ в техническом вузе при изучении физики// Сб. научн. тр./ Харьков. 1991.- С.15-28.
11. Балашов А.П. ЭВМ в курсе физики // Применение средств вычислительной техники в учебном процессе кафедр физики-и высшей математики: Тезисы докладов республиканского совещания семинара / Ульяновск. 1991,- С.3-6.
12. Баранов А.В., Давидков В.В., Невская Г.Е. и др. Опыт применения ЭВМ в курсе физики // Сб. науч.-метод, статей по физике. Вып.13. М.: Высш.школа, 1987.- С.10-14-.
13. Бирюков С.В., Гулеватая Е.А., Дунин С.М. Математическая среда Derive компьютерный помощник учителя физики. Материалы конференции н0бразование-94". Москва 5-7 июля 1994.- С.30.
14. Бирюков С.В. Универсальная компьютерная оптическая скамья и ее возможности при изучении оптики. Материалы конференции "0бразование-94". Москва 5-7 июля 1994.-С.54.
15. Бобко И.М., Скибицкий Э.Г. Дидактические принципы разработки компьютерных учебных курсов // Новые информационные технологии образования. Новосибирск. НИМ МВТ, NT (ч.2), 1991С.3-15. .
16. Богоявленский Д.Н., Менчинская Н.А. Психология усвоения знаний в школе. М., изд. АПН РСФСР, 1959.- 7Q с.
17. ВерникН.Н., Кулагин С.А., Угаров В.В. Моделирование фундаментальных физических опытов на персональной ЭВМ // Физика в школе. N3. 1987.- С.44-46.
18. Верхозин А.Н. Установка для получения голограмм.- Физика в школе. N1. 1987.- С.77.
19. Вильяме Р., Маклин К. Компьютеры в школе.-М.: Прогресс, 1988.- 333с.
20. Волгин Ю.Н. ИВК в лабораторном практикууме курса общей физики // Сб. научн. тр./ ЛГТУ. 1991.- С.23-26.
21. Гласс Дас., Стенли Дж. Статистические метода в педагогике и психологии. М., Прогресс, 1976,- 495 с.• 24. Голант Е.Я. Методы обучения в советской школе. М., Учпедгиз, 1957.- 120с.
22. Грабарь М.И., Краснянская К.А. Применение математической статистики в педагогических исследованиях. М.: Педагогика, 1977.- 136 с.
23. Гулд X., Тобочник Я. Компьютерное моделирование в физике: В 2-х частях. Часть 1,2: Пер. с англ.-М. :Мир, 1990.41.- 349с. 42.- 399с.
24. Данилов В.А., Любимов К.В. "Колебания и волны" спра-вочно-демонстрационная программа. Материалы "V Междунар. конф. "Применение новых компьютерных технологий в образовании". Троицк. 30 июня - 3 июля. 1994. -С.70.
25. Демидов В.Е. Пойманное пространство.- М.: Знание, 1982.-207с.
26. Демкович В.П., Демкович Л.П. Сборник задач по физике для 8-10 классов средней школы.-М.:Просвещение, 1981. -20бс.
27. Денисюк Ю.Н. Об отображении оптических свойств объекта в волновом поле рассеянного им излучения. ДАН СССР, т.144, N6. 1962.- С.1275-1289.
28. Денисюк Ю.Н. Об отображении оптических свойств объекта в волновом поле рассеянного им излучения. Оптика и спектроскопия. Т. 15, вып.4. 1963.- С.522-534.
29. Дидактика средней школы / Под ред. М.Н. Скаткина. М.: Просвещение. 1982.- 319с.
30. Ельцов А.В. Изучение электронных процессов в вакууме и твердом теле в курсе физики средней школы с применением ЭВМ : Дис. канд.пед.наук, -М., 1996.
31. Ефремов А.П. Дисплейная графика и изучение физических явлений // Применение средств вычислительной техники в учебном процессе кафедр физики и высшей математики: Тезисы докладов республиканского совещания семинара / Ульяновск. 1991.- С.28-29
32. Задания для итогового контроля знаний учащихся по физике в 7-11 классах средней школы: Дидакт.материал / О.Ф. Ка-бардин, С.И.Кабардина, В.А.Орлов.-М.: Просвещение, 1994.
33. Занков Л.В. О предаете и методе дидактических исследований. М.: АПН РСФСР, 1962.- 148с.
34. Извозчиков В.А. Дидактические основы компьютерного обучения физике: Учебное пособие /Ленинградский гос.пед. ин-т им. А.И.Герцена.-Л.: ЛГПИ, 1987.- 70с.
35. Извозчиков В.А., Маркова И.В. Школьники изучают ЭВМ // Физика в школе. N4.1984.- С.28-38.
36. Ильин В.Е., Кочеев А.А. Некоторые аспекты концепции использования ЭВМ в учебном процессе // ЭВМ в учебном про. цессе вуза: Межвуз. сб. научн. тр. Новосибирск, 1987.
37. Ионкин В.П. Некоторые тенденции применения ЭВМ в курсе общей физики // Методы и средства эффективного использования вычислительных систем: Сб.научн.тр. М.: 1989.-С.68-76.
38. Карнов Ю.Г., Баум Б.А. К вопросу применения ЭВМ на лекциях по общей физике // ТСО и методика преподавания физики в технических вузах.-Свердловск: Минвуз РСФСР, 1984. С.12-14.
39. Нольер Р. и др. Оптическая голография.- М.: Мир, 1973.-686с.
40. Комар В.Г., Серов О.Б. Изобразительная голография и го-лографический кинематограф.- М.: Искусство, 1987.- 282с.
41. Кондратьев А.С., Лаптев В.В. Физика и компьютер. Л.: ЛГУ, 1989.- 324с.
42. Кондрашин Г.В. Применение ПЭВМ в курсе общей физики // Сб. научн. тр./ Донецкий ГУ. 1991.- С 66-68.
43. Контрольные работы по физике в 6-10 классах средней школы: Дидакт.материал. Пособие для учителя/Н.К.Гладышева и др.; Под ред Э.Е.Эвенчик, С.Я.Шамаша.-М. -.Просвещение, 1986.- 206с.
44. Краткий справочник фотолюбителя/ Сост. и общ. ред. Н.Д.ПаЕВфилова и А.А.Фомина.- М.:Искусство, 1985,- 367с.
45. Кузьменко И.Н. Моделирование физических процессов в квантовой оптике // Сб. научн. тр./ Белгородский пед. ин-т. 1992.- С.17-18.
46. Лаптев В., Немцов А. Учебные компьютерные модели.//Информатика и образование. N4.1991.- 0.70-73.
47. Лаптев В.В., Кондратьев А.С. Физика и компьютер. Л.: Изд-во Ленинградского университета, 1989.- 230с.
48. Лекционные демонстрации по физике. Грабовский М.А. и др. Под ред. В.И.Ивероновой.-М.:Наука, 1972.- 639с.
49. Леднева Н.Д. Реализация метре диетных связей физики и химии с использованием ПЭВМ "Корвет"//Педагогические технологии в высшей школе: Тез.док.межвуз.конф.- Рязань, РГПУ, 1995.- С.100-101.
50. Мастеров В.Ф. Использование ЭВМ для моделирования физических явлений в лабораторном практикуме // Сб. научн. тр./ ЛГТУ. 1991.- С. 24-27.
51. Медведев В.Е. Компьютерное моделирование в вузовском курсе физики // Сб. научн. тр./ Ярославский политехи.ин-т. 1991.- С.34-45.
52. Мельников Ю.П. Описание и методика использования лекционных демонстраций в курсе общей физики с использованием графических возможностей ЭВМ // Сб. научн. тр./ Рыбинский авиационно-технологический институт. 1991 .-С. 12-14.
53. Методика преподавания физики./ Под ред. В.П. Орехова, А.В. Усовой, С.Е. Каменецкого. М,: Просвещение, 1972.-263с.
54. Методика преподавания физики в средней школе./ Под ред. С.Е. Каменецкого, I.A. Ивановой. М.: Просвещение. 1987.-355с.
55. Методика преподавания физики в 8-10 классах средней школы. В 2-х частях./ В.П.Орехов, А.В.Усова, С.Е.Каменецкий и др; Под ред В.П.Орехова, А.В.Усовой.-М.: Просвещение, 1980. 4.1.- 320с. 42.- 351с.
56. Методика преподавания физики в средней школе: Электродинамика нестационарных явлений.Квантовая физика: Пособие для учителя / А.Т.Глазунов, И.И.Нурминский, А.А. Пинский; Под ред. А.А.Пинского.-М.: Просвещение, 1989.-272с.
57. Методика преподавания физики в средней школе: Частные вопросы: Учебное пособие для студентов пед. ш-тов по физ.-мат. спец. / С.В.Анофрикова, ^М.А.Бобкова, Л.А.Бор-донская и др.; Под ред. С.Е.Каменецкого, JI.А.Ивановой. М.: Просвещение, 1987.- 336с.
58. Методические рекомендации по изучению колебательных процессов в курсе физики одиннадцатилетней школы: (Материалы к эксперименту) / Моск.гос.пед.ин-т им.В.И.Ленина.1. М.: МГПИ, 1987.
59. Нарыкова и. Компьютерное моделирование в Великобритании. //Информатика и образование. НЗ-4. 1992.- С. 116-120.
60. Образование в современном мире ( состояние и тенденции развития). / Под ред. М.И. Киндакова. М.: Педагогика. 1986,- 245с.
61. Оптическая голография. В 2-х томах. Под ред. Г.Колфил-да.- М.: Мир, 1982. Т.1.- 374с. Т.2.- 381.
62. Оптическая голография. Под ред. Ю.Н.Денисюка.- Л.: Наука, 1983.- 100с.
63. Островский Ю.М. Голография и ее применения.- Л.: Наука, 1973.- 203с.
64. Орехов В.П. Колебания и волны в курсе физики средней школы. Пособие для учителя.- М.:Просвещение, 1977.- 176.
65. Павлов Ю.В. Статистическая обработка результатов педагогического эксперимента. М. Знание. 1972.- 31с.
66. Пеннер Д.И., Корж Э.Д. Программированные задания по физике для 10 класса: Пособие для учителя.- М.: Просвещение, 1987.- 112с.
67. Петров А.В. Единая система компьютерной подготовки студентов физических специальностей в педвузе // Сб. научн. тр./ Волгоград. 1991.- С.43-45.
68. Пономарев В.Н., Журавлева Н.Н. Моделирование на ЭВМ движения тела в поле тяготения // Сб. научно-метод. статей по физике. Вып.15. - 1989.- С.50-52.
69. Попов Ю.П., Самарский А.А. Вычислительный эксперимент: В сб. Компьютеры, модели, вычислительный эксперимент. -М.: Наука, 1983.- 64с.
70. Программы общеобразовательных учреждений. ФИЗИКА. АСТРОНОМИЯ /Сост. Ю.М.Дик, В.А.Коровин.-М.-.Просвещение, 1994. С.31.
71. Разумовская Н.В. Компьютер на уроках физики // Физика в школе. КЗ. 1985.- С.51-56.
72. Резников Л.И. Физическая оптика в средней школе. М.: Просвещение, 1971.- 263с.
73. Роль голографии в телевидении будущего // Техника кино и телевидения. N3. 1989.- с.70.
74. Рубежи фотографиии // Серия "Фотобиблиотека журнала МИФ", 1972.- С.25-30.
75. Рымкевич А.П. Сборник задач по физике для 9-11 классов средней школы.-14-е изд.-М.:Просвещение. 1992.- 224с.
76. Сумский В.И. Ms опыта использования ЭВМ в учебной лаборатории // Применение средств вычислительной техники в учебном процессе кафедр физики и высшей математики: Тезисы докладов республиканского совещания семинара / . Ульяновск. 1991.- С.74-76.
77. Соина Н.В., Бирюков С.В. Вариант компьютерной поддержки темы "Колебания" в курсе физики педвуза. Материалы конференции "Образование-94". Москва 5-7 июля 1994.- С.19.
78. Отариченко Б.Е., Коржавина О.А. Численный эксперимент в практикуме по общей физике // использование физического эксперимента и ЭВМ в учебном процессе: Сб. науч. тр.-Свердловск, 1987.- С.107-112.
79. Скибицкий Э.Г. К вопросу о разработке педагогических сценариев компьютеризированных курсов // Информационные технологии в образовании. Новосибирск- ИНСО РАО. N1Q. 1993.- С.2-41.
80. Тамицкий Э.Д., Горбатов В.А. Учебная книга по фотографии. Учебн.пособие.- М.:Легкая индустрия, 1977.- 319с.
81. Типовые программы для школ с углубленным изучением физики. М.: Просвещение. 1990.- 42с.
82. Физика: Учебник для 11 класса средней школы. Мякишев Г.Я.,Буховцев Б.Б.-10-е изд.,-М.:Просвещение.1990.-319с.
83. Физика: Учеб. пособие для 11 кл. шк. и классов с углубл. изуч. физики/А.Т.Глазунов, О.Ф.Кабардин, А.Н.Малинин и др.; Под ред. А.А.Пинского.-М. :Просвещение. 1994.- 431с.
84. Фокин М.Л. Построение и использование компьютерных моделей физических явлений' в учебно-воспитательном процессе: Дне. канд.пед.наук,-М-,1989.
85. Хантер Б. Мои ученики работают на компьютерах.-М.: Просвещение. 1989.- 223с.94.. Шахмаев Н.М. и др. Физический эксперимент в средней школе: Колебания и волны. Квантовая физика,- М.: Просвещение, 1991.- 222с.
86. Факультативный курс физики./ О.Ф. Кабардин, с.И. Кабар-дина, Н.М. Шефер. М.: Просвещение. 1986.- 240с.
87. Физика в школе. Сборник нормативных документов / Сост. Ермолаева Н.А., В.А. Орлов. М.: Просвещение. 1987.- 224с,
88. Физический эксперимент в средней школе: Колебания и волны. Квантовая физика./Н.М.Шахмаев, Н.М.Павлов, В.М.Тыщук -М.: Просвещение. 1991.- 223с.
89. ЭВМ в курсе общей физики / Под. ред. А.Н. Матвеева. М. Изд-во МГУ. 1982.- 230с.
90. Постников А.В. Проверка знаний учащихся по физике:6-7кл Дидакт. материал. Пособие для учителя.- 2-е изд., пере раб. М.: Просвещение. 1986.- 208с.1. ПРИЛ О ЖЕНИЕ
91. К ДИССЕРТАЦИОННОЙ РАБОТЕ АБРОСИМОВА ШВМ ВИКТОРОВИЧА НА СОИСКАНИЕ УЧЕНОЙ СТЕПЕНИ ШЩЙДАТА ПЕДАГОГИЧЕСКИ НАУК "МЕТОДИКА ИЗУЧЕНИЯ ВОЛНОВЫХ ПРОЦЕССОВ В ОПТИКЕ С ПРИМЕНЕНИЕМ ЭВМ В КУРСЕ ФИЗИКИ бРЕДНВЙ ШКОЛЫ"
92. Специальность, 13.00.02 теория и методика обучения физике
93. Краткие теоретические сведения (стартовый файл WOLNA#.BAS) .•. 4
94. Система автоматического вызова необходимогофайла "МЕНЮ" (UTOWQM.BAS) .12i| 3. Двухлучевая интерференция. Часть 1 (DLIItf.BAS). 13
95. Двухлучевая интерференция. Часть 2 (DLI2#.BAS). 20
96. Дифракция света на щели (PI0DR1#.BAS) .25
97. Дифракция света на линейной дифракционнойрешетке (PI0DR2#.BAS) .32
98. Дифракция света на двумерной дифракционнойрешетке (МШШ.ВАЗ) .38• f 8. Дифракция света на трехмерной дифракционнойрешетке (Р10ВН4#.ВАБ) . .42$ 9. Физическое основы голографии (K)G#.BAS) . 46
99. Тестирующая программа по волновым явлениям.1. Вариант 1 (K1#.BAS) . 54
100. Тестирующая программа по волновым явлениям.1. Вариант 2 (К2#.ВА8) . 59
101. Контроль знаний. Качественные задачи (BKZ#.BAS) .64Ф1, ШТШ ТЕОРЕТИЧЕСКИЕ СВЕДЕНИЯ (СТАРТОВЫЙ ФШ HOUAf.BAS)5 REM ШУШ.ВАЗ Стартовый Ш
102. CLEAR50?LOCATE, ,0;0Ш А${5)15 €LS!PCLS;L0CATE,,0'.LniE(0,0)-(51i,255},l,BjREH Еадр 1
103. F0RMT0255STEP4!LIiiE(128,64)-(X,il,2sLIKE(386,64)-(255<-X,l),225 1И1Е(128,Ш}"(Х,Ш),2!ИКЕ(386,192}-1255ЛД27),2гйЕт
104. FQRY=lT9127STEP35lINEU28,64H255,Y),2!tItiE(386,64H510,Y},2
105. LINEU28,m)-l256,i27+Y),2jLiKE(386,i92H(5i0,127+y),2:NEXTY
106. F0RX=255T01STEP-4 jLI№( 128,64 H X, 127) ,2 5 L ДОЕ (386,64 H 255+X, 127), 245 l«E(128,192J-(l(l25S^2:LIffi(384Ii92H(2S5*Xi2»),2jilEXTJ
107. SO F0SY=127TQiSTEP-3:L!ffiU29»64}-(I,Y),2:tIfiE{38i,64}-{255,Y),2
108. LieEli2e,m)-U.I27+Y.l2!LMt38A,H2J-(2K1127+Y)>2»ffiXTY
109. FQRJ=iTQ110:LiKE(25bJ,ii2)-(259^!127),0,BF5KEXTJ:LI«E(i4?>ii2)-(369,127),l,B
110. Ш 14=9 Волновне свойства cseta 3
111. FORl=lTQ14sLQCATE34-I!3:PRIHTHIO$(T$,15-I,2«-i)!FQRIsOT030j!iEXTl:ieTI 75 F0RZ=0TQ1000;HEXTZ ■ 00 CLSsPCLSsREH Kasp 285 1ЛЩ1 }1)-Ш0,255),7,ВР$1Щ40,15И435,210},q,bf
112. LI?iE(2O,25H467,220),l,8F:lINE(21,2&H466,2i9)}7,8
113. ЮШЕ22,4:РВШаВ H В S Й 8 И E i0sLOC6TE8>6
114. PRItiT"npH работе t арогранаой 5 и н » t «, чпа
115. РКП1ТТАВ(7)"дяа перехода к сяеяувцеау кадру нрво ва«ап°
116. PRINTTAB{7)"клавишу i нзобрашенкек с?релкн bhksj
117. Р8ЕЩ63}Ш),7;0№Ш373,Ш!Ш}125Ш,М5,!
118. PAINT(370,116),7sLIHE{358fli2)-(378,128),7>3
119. PRIHTTftB (7 >аЧтоб» йернуться п йредвду*еау кадру вахать"
120. PRINTTA8<7)"клавишу с «гоЗра?.еЕйен с?реякв вверх?
121. PSET(36B,146),7:0ВАНаС7^373,156Й363,156Й368,146е
122. PAIilT(369,149),7iLlKc(353,i43)-(378,159) ,7,В:ЮСАТЕ6512
123. PRINTS йивиаи ршшещ в правая чтш клавиатур» )а
124. K?=INK£Y$sIFK$=acTHESi50ELSEIFASC{K$)=i30THEfU55ElSEIFASC{!(?}=i36THES15ELSEi50155 €LS;PCLStLIHE{0,0)-(511,255),7,B!LIRE(2,2h(509,253},2,BF:PRIHTjREa ЕадвЗ160 CLEARsCH ERROR SOTO 300
125. PRINT0 Вкбернте иятересуоди» Bat рагдед0
126. PRIST11 каз&шк» рвравяеввв курсоров ( , }*
127. FRUIT'5 к наште кгавиву ввел ,":PRIHT
128. DRAi™C7BH339,37R585H5R5BH347,34O10L16Ui0R16BjPAItfn337,33),7 185 DRA»°C7BI1372f42L5E5F5L56H380,34Di0Ll&Ui0R16".!PAIHT(373J41},7 190 DRA5)"C7Bi1280,50D10L9D3H5E5D3R5U6R4BH284,48017L21U17R218m кн200 й?Ш=°- Краткие теоретические сведения, 0
129. А${2)="~ Квряучевйй йвтбр|вревция, Деление вошваго |рон?а,"210 &$(3}=E!- рост.ие и абштаве дфакциоввке ревете». "
130. А$(4}=8- Фигическне основа гмогр§нй„ п|й?{5)=а- Впав ковтрояя 5вгввй. и
131. LIKE(30!74)-(500,181),0,8FiLI!iE(i7)82)4490,191},lsBF3lKiE{19,83)-(4S8,189),5?8
132. FCRI=lTQ5sU!CATE7,6*1«.PRIST А$(П'ЛеТ1:60Т0 250230 8$=IHKEY$iIFBJ="TflEN230
133. IF W=CHM(130) THEM CS=C«!CN=C?Hls IF Сй>5 TKE№ CfMsGOTG 250
134. IF В«=СШ(Ш TKES CS=G?iiS«=C«-lslF Ш THEN C8=5;S0T0 250
135. IF В$=Ш*Ш> THBf fflt Cfl GOTO 260,265,270,275,280
136. L0CATE7,4*fflsPRINT €KR?{2?!°A»fAli€fJJ
137. LQCATE7,4+CSsPRINT €RRS(27)"7E;Af(CS):S0T8 230
138. SOTO 355г REfi-Кратене теор.сведения
139. SG3UB2S5:LO№aftiDLIl«.BAS",Rг ВЕ!Нвутаучевая ннтерфереадм
140. SQSi!B285?UM"AiPI3DE|t. BASe , ftdlSHisoM л «в*.да(р. реветвя275 80SliB285;LOADuAsFOS#.BAbn,R: ЮМшч.оешиш голографии280 &0SUB285:l0adaa:bkzi.ba5*,r: REi1- Esse ковтропя знании
141. Рда=ОТО18гШЕШ5Ч89ЫН350Н«?Ш},5,8|?1ЕШ
142. LIfE(lO7,77H368I-114),7,8iL0CATE22l6»PRil3T3K ««Jfon у,"
143. LOCATE 14,7sPRINT" идет догдока прогрт№.р:ШШШ
144. REil П/П обработки ошибок ч?еннв с диска3S5 IF ERR=50 THEN Е$=°0аибка чтевая Файла.3.D:60Т0325
145. IF ERR=53 ТНЕН Е?=вФзйа т mm Ш м на8леа.01«т)325
146. IF ERR=57 THEN Е$="Ошибка Бвода/внЕода двека fUlstaiS0TG325320 £!=сНгопре5елевная .овибва,.0325 t,I«e(^5s73)-<4iOsil4),4,8FiLINEC66,74)-{409e113),0,8
147. LKATEi9,6;PRlKT E$iL0CRTE9,7,0:PRlt!TS?C(40i%.F0RlS=lT025'.8EEP;HEXTri
148. LGCATE9,7sPRINT" устраните причину аанёкн к нажните8340
149. Kt=IHKEY$!lFK«s"THBB4& ELSE ШСШНЗ THEN RESlifiE 155 ELSE 345350 END •
150. CLEAR:CLS'PCLS;LINE{2,2}-{509!253),2JBF;REK БЯ0К IFOPM |Кадр1)
151. L0CATE24f 5гРЯ!НТиК P к 1- К I EnsL0CSTEi8,7:P8INT"I ЕОРЕТНЧЕС&ЙБа
152. L0CATE23,9:PRHiTf!C В Е- Д Б H В Я"
153. LINE{35,40}-(390,i70)J0,BF5LIiiE(78,45)-(385,l75),l,8FjLIKE(80,47)-{383,i73),5,8375 F0RZ=iTOi500sETZ380 CL5;PCLS:SE« {1щ7) ,
154. LIKE(0,0)-(5lO,255},7,BJiIfjE(35,2)-(445,103),4,8FjLI«E{30,4>-(440s107),l,BF 390 LINE(32,6)4438,105}, 7,В 395 FRIST ■
155. PRIST0 СВЕТ (световое ибяучевие) область спектра" 405 PRIHT" ; эдектро-нагвитннк*
156. PRINT" коггбания, еевосрздствво восприннваеиая 415 PRIST0; даееш таге. Харамеривувга дпшви ыяа? 420 PRINT" з диапа§ойе от 380 до 740 на." 425 F8aZM?G70№s?em ,
157. DRASBC7BH276,127Й278,120И230,127Й278 ,ШШ8,153Ш, 153Я308,15111315,153il3Q8,155" 435 0Кй{ГС78«100,239й94,244П102,243и
158. L8CATE37f8;rRIHT!T.aiLGCATE403ilsFRI^TuBnsL0CSTEI2}i5sPRIHI,5Sa:0Rfi
159. L0CftTE2s9:PRI«T!,E-b€ktop аапрявдвосгй электричек sore войн вздев,nsDRA8DG78fiS,i27R?ffiF2838
160. РШ* В-втор нашти эдукции,с sDRAif С7БН8,143R7H2F263B
161. PRINT" S-направяевне pacnpocT-usPRIKT5 ранения гойнв,"
162. LINE(278,153)-|94}244),7!FDR 1=154 ТО О ЗТЕР-2
163. Yl=23»SIK(X/7}-X/2sY2=25tSIH((X/2,3)/3>^C
164. FSET (1204-Х, 232-Х/2}, 71 LI NE- (»232+Vi >, 7s PSET ? 120+Х
165. LIKE-<120^Y2,230-X/2}»1fNEXT X
166. LGCATE35»13 s PR I «TCHRI (34} iD Згновенвая |CHRt (34 5; |Р81ЙТп<гветавзн вошшв :Ш1Б2<№485 ^=1«г<£¥4г1Ш=ваТ11Е^485Е1Ш?63е(К4}=130ТШМ?ОЕ13Е1ГЙ5СС1С^)=136ТН£М155Е13Е4а5
167. CLSsPCLSsPRISTiPRINT-aPHI s (КадрЗ)
168. LINE{i,lH510,255},7.6:LINE12,2H509,254),i,6F
169. LISEU31J3i)-i399s129i55,SF:LIKE{132)32}-(398l128),4,B!LI«E{7Ii90}-(503,245),6,8505 1вСЙШ,шгетвЯв«аа вдшга tneufpa ответу»? «втерев®*
170. PRINT" дайн &ошпп:РВШТйВ(2!}"красавн 760-630 ва,п
171. РйШШ{21)п0ракгевн§ : 630-590 гаЛРМНТТАВШГвеетви - 590-570 на,"
172. ШйТШ(21} "дошив. 570-495 яв.^ИНйШДОГсмюи - 495-435 mi,'- . ■
173. PRINTTAS'* 21 фиолетовый 435-330 ю.":РШГ
174. PRtt!T': Распределение дйин войн ao дотай усгэввое"
175. PRIHT5 й ненноге отшае?ся дав развкх на^зияателей,0
176. PRIHT" Бо $итескои природе ввдйайй свет вичев не отличаемся те"
177. PRINT3 других эяектровагвитвнЕ войн .а* саная дгшншге радиевояв"
178. РШГ -до sopwm раава-8учвя."58ШШ0
179. K$=INffiyiiIFKS=nnTKEf;555ELSEI«SC<K$)=i30TKEN560ELSEIFftSC{K$)=i36T«EH380ELSE555 560 CLSsPCLSsPSI«T:PRINT!PRI«T3RE» (Еадр4)
180. PRINT0 К 30-в годак II cmetBH утвердилась карпуслу-"
181. PRINT" аярно-вопновая теория света, полагавшая, что свет" 580 PRIviT" одновремевво обладает как вошвш, ш к корпус-" 585 PRINT" кулярнаан свой стваай.D j PR I 'IT: PR I NT
182. PRINT" Рассаотрин одну сторону сувдости света BQJlH0B?l.°sS0SUB2040 545 ДОМЕтПДОЧШВЮДОНВДО^^ 600 CLSsPCUSsLI^E(0>0)-(5i0,255),?,BsREM {Еадр5}
183. PRINT;PRINTa Ваяновве свойства света наиболее отчетливо вршадтеа3 610 PRINT3 в yarn виенш ш РФРМШ а ЯН'ШВРЕРЯ света.°:PRINT 615 PRINT" ДИФРАКЦИЯ СВЕП (о? тт. diffractus раешапшб, преяов-я 620 PRINT3 аввав») в ушв {наиболее употребительное.0
184. К$=ЖЕУФ;!FK$=DOTKEN665ELSElFfiSCiK§|=130TKEH670aSEIFftSC(KI)=136THEN490ElSE665 670 CLS!pCLS5LlHE(0,0)-(5i0,255),7>BF:RER (Кадрб)
185. LIffi(i7!34)-(502,i67),0J8FsLIKE(i2,39)-(<}98>173),l,8F:LI«E{i3,40)-(4975172),7sB680 PRINT:PRINT:PRINT
186. Ш PRINT® Первое обьасвенае дифракции света йняо дано кранцу scm"
187. PRINT*1 Шш М.Фршш в ШЗг. 8 <мм неауаре Я|Ш(34)}8& яфркция*
188. Ш ШИТ" ««гв$Ш$(34'Н,я оя пошая,- чте мппкпеам» мяш» дфаедноа-3
189. PRINT" ннх явэанвй воавода на основе построения Гнигенса, если0
190. PRINT" его дбяозйнть ,принципов -янте^ерк-щии вторичан* волн."
191. PRIST1 Строгое натекгтическое обоснование принципа Гюйгенса
192. PRIST8 Френеля бш» дано аеяедш $иш«в f.P.Kfipxrflfea в 1882 b'lHHUMO720 !<l=IHKEY$;IFK$=s'!THEK720EtSEIFftSC(K$}=130THES725ELSE!FfiSC(KS)=136THEN600ElSE720725 £L§!PCLS:LINE(1,iН510,254} j7,В:PRINT:REil (Кадр7)
193. PRIST0 бривцмп ? ?) я f г а с a mm» эленент поверхности/
194. PRIf}TTA3(31 Гторой достигай в аавтЙч?РЙ1ША8(31)пшзевт вэяза, являете;! центров"
195. PRINTtwB{3i)йзяевеатарнкк вторичных воян/-'!РВШТТА8(ЗПпоги5ав|ая которн ёуяет еоаво-0
196. PRIUTTAB{31}aBO« пйвершетьв б саедуавдй0 ;PRINTTAB(31 Г^оиент вреневи} оёратвне зле-"
197. PRINTTA8(31)cHeHTapHse воанй во вникание не^ШШЙЩЗЦ0прнида?сяя
198. F0RI=0T08000:HEXTZsLCCftTE44,i0:PRIHT°( на расуню они"
199. РК1йТТА6(31)ваокаеакн пунЕмрши шиш)."
200. LINE(8,3S)~(232,222),7>b':LINE{i0,40)-(230,220)|7,BsPfiIi}T(2,2),l,7
201. FQRXX=120TOi24:LINE(!(?.,50)-(!(7.)99),2:LIHE<r/.,159}-(XZ|210),2;ШШ
202. CIRCLE(20,129))2,5!0RA»:iC58ri50,93«21,1299150,165°
203. GIRCLE(20,129),106,5,5.5,.78,1,2785 FOR R=l TO 11
204. FOR Y=106 TO 152 5ТЕР2;1ВДШ,УН124,У),0!«ЕП Y
205. S25 FOR 8=120 TO l22sCIRCLE<20,129),R,4,6,01,.26,1.3;ШТ R:60SU82040830 m-wm%K*=" 1KEN 830335 IF ASC<K$)=130 THEM 345
206. IF ASC(fC$H36 THEN 670 ELSE 830
207. CLS!PCLSsLiNE<0,0H510,255)s7,8F:REK (КадрВ}
208. LINE{17,34)-(502f167)!0,BFsLINS(12,39)-|498,173),i,BFsLINE(l3,405-(497,172),7,8 355 PRINTsPRIHTJPRINT
209. KJ=I{«Ey$:!FW="THEN8?5ELSEIFfiSC(Kf)=i30THEN900ElSEIFASC(M)=136TttEN725ELSE8?5 905 1ШЕ(159,31Н287,31),7
210. Ш PRIST" Согаасно аршщн? ГвиУэнеа-Фрёнеай волновое ьудеаиеи
211. L0CftTE53,10sPRIHT"iia рпеуи-*':PRIN7IAB(39)eEe такс?! аоверзвзстьк0 945 РИШАВ(5?Гш*е?« е&еркЧеская3 iPRItlTTAStS?) Ш мп»*
212. CLEftft iLOCATEf,0iQH ERROR 8010 150 ч
213. CLS;PCLSsLIiS{0,0)-(511,255)!l,B:LIRE{2f2h(509}253)J2,BF:PRINI
214. ШИТ" Заберете йитгре^щйн Вас раздел"
215. PRIST8 кШшшя. управашя курсоров ( ' > )" 30 PRIST" а нашит-е швйву ввод /'sPRINT35 0В6»ВС7ВЙ339,37R565H5H5BH347,34Di0L16U10R160!РйIИТ(337»3S >,7
216. BRAI!BG7BS372s42L5E5F5L58i43S0>34Di0L16!II0R16"
217. DRAHDC78.1280,50D10L9D3H5E5D3R5iJ6R4BH284,48D17L21l}i7R213 50 1>"в- SpatKse теоретические титл, а
218. M(2)s°- йвухаучеш йвгер|ереацив» Деление воавового Фронта." Ш Щ1)=а- бяоше й обьевдве ягёр&цмвнве. рбв«т. * 65 А$(4)=3- Фйвнчеекие освовн гояографии. 0 70 й$(5.=':- Взок контрояя знания. й
219. LIHE(30,74)-(500si81},0,BF5LIffiU7,82)-(490,19i),l,BFsLIHE{i9,83}-(48BflB9}J5,S 80 F0RMTQ5sL0CATE7,6HiPRWT А$Ш;КШ1!Ш0 105§5 P=lf<KEY?tIFS$=a*THEMS§ •
220. IF Bf=CHR${130) ТЙЕЯ С5=СШ=С>НШР ШП THEN CN=1:50T0 105 95 IF 8$=СШ(136) THEK CS=CK:C№lsIF CN<1 THEN Cf!=5s80T0 105 100 IF ТИВ! Ш W B0T8 110,115,120,125,130
221. LOCATE?,6+CHsPRINT CHR§(27)u6^ft$|CtO:LflCftTE7,6+CSjPfiI.NT CHR4C27)C7B}A$(CS):S0T0 85
222. Ш 6ШШШйГйЖШШ8а Js REH-Храше теор.сведевна
223. G0S!j8l35;L0A0!!A:Bm§.BHSn,R! ВОНвукяучевая ив?ер$еревцкя
224. Ш Ш5Ш5:ЦШ" A;?I0DR1«.BftS",R:REK-fiaocK,* объ.пфр.реккк125 60SU8135jL9AOaAsF0B§.8ASn,Rs REfl-Фягич.основа msrp&U!
225. O BDS№i35sL0eD*fitBKZ# ja5%«s rer- Вда ктроа» ягоюн
226. FQRI=OTQ13sUf«{1254s96-I)-(350+I,96H),5lB:KEXTIiLH!E(107s77b{368,11.4),7?8мо юшЕгг.б'.Рвия'е я я f t-«ч * d145 lOCATE14,7:PRIW"r is*e? догрузка програнка., "'.RETURN
227. НЕЙ a/ii обрабош asaoosi чтения с река
228. IF ERR=50 THEM E§=s«sa чтевия *a«na„.»DsS0TQl75
229. IF ERR=53 TffiS E$»B0aSe aa доке й; нз найдем,, °iSGT0175
230. IF ERR=57 THEK Е$=°0»!£ка ввода/вывода диска fisac„"?80TQi75
231. Е1="Зеопредеаезная овабка,."
232. LINE(65,73)-(4iO,il4),4,8FsliaE{66,74)-(40?,113),0,8
233. LCCATE19,6:PRIHT £?!LQCATE9,7,0!pRU!TSPC(40)3F0RIX=nO25;BEEP:UEniS
234. LCCATE9,7;PRINT0 устраните причиву овиеки а на«йитес
235. ORftVlMC78H3SOs9SDieL903li5E5D3R5iibl?4BM3S4s94Qi7L2illi7R2l0
236. K$=IKi(EY$:IFK$=naTKEH195 ELSE !FA3C{K$)=13 THEN RESUME 10 ELSE 195200 Effiт 3. ЙВУХ8УЧЕШ ШЕЮЕРЕВДЮ. ШЬ i (QLIIS.BAS)5 RER DLI14.BAS
237. IFB$=CHR$( 130)TKENCS=CN:CK=CMtisIFCS>4THENCf{=lSBDT0U5 105 IF8^CHR${136)THffiCS=CN:CN=€N-l;IFCN<lTKEK€H=6;60TQli5 110 IFB?4)HR$U3}THENOMOTQ120,610,1225,1740,1740,1655
238. LQCftTEW,5«NlPRIHT CHR5(27)li6ujAI(CN)sLQCATEi9,5^CS:PRIHT CHR$(27)"7^A$(CS)s60T0 95 120 CLSsPCLSsREH аодея.оша Внга
239. LINE? У з У 'I С Si 1,255) ? 7?S ;ft=S=Э=0==5 гЕ=1 ЛгнЕН установка А,6,Е '. .
240. LINE(100,60)-(101,150},7,BF!LIr}E(lOO,i04)-(10i,i06},0,8F:LINE(180,60)"{181,150})7,BF 175 LINE(180,89)-(181,91),0,8F:LItiEU80f119)-{180,12i),0,BF!lINE{252,60)-(254,150),7,BF 130 eM;FBffi=2TB9BB?EP2iL^EJ0HIM405^^
241. CM t FQRRX=OT078STEP2; С RCLE t Ш, Ш), ,С-'д} A, В s E г№=СШ 5 IFC'/^STHENC'M f tlEXTRXELSEKEXTRX
242. ELSENEXTRX 195 60SUB1670;ZZ=100 -200 0030835 •205 iX^IKEY?5lFK$="THEN200EL8ElFA-SC{KI)=i30T№tai0ELSEIFfiSC<^)=I34TEI525£LBE20(i 210 803УВ45:11Щ493,233 Н508}252К0,6Р?Шй10САТЕ14^^
243. L0CATE14s4:PRINTaR й ЭкнгDRAMBC0BH42551Э7Е207ВЙ240j202E2S7°iDRfi^0C0BM272S290R3D3L3I>3R4BH36120QR3D3L3D3R4"
244. LOCftTE,i sPRIHT" §геерстйя S я S- действует как втеричине когеревгнне
245. PRINT" ники, а свет-овне кучки от них карекршйтся шшйй экрана в-.6 , •230 8RAB"C78nl05,i0E2D7SH145,8R3S3L3D3R43iffiA80£7BMBI,25R3D3L3D3R4"!SD8UB1670»ZZ=100 235 G03UB35
246. LINE(493,233}-(508,252),0,BF:LIKEi300,60)-}410,149),7,8sZZ=100
247. IFMN=-10RHfMTHEN280EL3ELGCSTE35,7;Р81НТя8ай монитор цветной ? WHJ'iBEEP
248. ШШШг If=1ЖЕУ1! IFIs-'ja THEN270m275 1Г15=О0Й0Й1¥=Ч°0Ш=")!"0{Ц$=пЙсТНЕШИ 270280 6QSUB45sL0CАТЕ35,7sPRШ5РС{30): IF №1 ТЙЕЙ295 ELSE C%=0sV%=62
249. С'4=Й-1: IFCKs0THEN235ELSELIffi (302, Y2H 488, YZ) s С?.г ТМШ j If 47THEiC(iOELSE290 295 55j8FsFORI/;=CfTOi0bc0nVX=2OIOI300 80SUB1670305 |»>1ЯГО>111*вТОВВДЕ1т
250. LIf{E(493?233)-(50S,252) ,0,8F ' 313
251. L0CATE14,6sPRUff"Sn{L0CftTE24,5jPRIHT"8!,{LQCATE24,95PRINT'iS,i;L8CATE14,4sPRINT"H § Эк'
252. LOCATE,i:PRIHTD Й-аснотрзте как -зависит интенсивность освденив на экране Эк" 330 PRINT6 at ккряпй» одиааьш>« к аеяян {наевтай дом» уютен) s 8
253. DRЙiSoИE®8OИOЙ2§4^m2зO593Ш50sii7й2545^^7fi254i?Зй2543П7.Ш•Q!^75I,
254. L0GATE5157jPRmTnIBsL8CftTE37}li?PRl№X arj»YM3TQi5?LeGIT£35,YXsFRIMf0 480 L0C6TE2,13iPRIHT°i. Расстояние аещ источникам (ss}°sPRINTB 2, Расстояние до экрана Эк (г//
255. PRIST" 3».денн? световой".йояка (щ)"490 8$»*«582fe,,Bi83l=Bnsl0CftTE2,i3,isLl»lEIHPBTn. hemm» везду нсгошвш 1вй) г}ш
256. IFQTf-aaTHENI=XJ25j80TQ5IOELSEfiT=Vfil|flT$}гIF0T>= <1ЙШ0?<=Ш1Ш1Х=0Т sBOTOSIO§00 BEEP ?L0CATE2,13,0:PRINT"Реальное расстояние яезд? йстг-шшн от ОД я» 100 ви.а$8РС(7)
257. Zi=l5yO;80SU830{L0CATE2,i3;PRItiTSPCi60)iBEEP!GOTO490510 10САТЕ35,13,О!РНШВВ1И6Я«11.* нн.';Х
258. LQC6TS2,14,1 sLШЕШРУТЦ£, Расстояние m зкрш Эк Ш ?';0TJ
259. IF0Tt="THEH535ELSEOT=VfiL(On);IF0T>=aAKDOT<=5OTHEt{R=OT:BDTO535525 8EEPSL0GATE2,14sPRIHT1'Регпьнае расстояние до экрана Эк st 0.1 до 50 н.в|8РС(Ш530 tI=150Os80SyB30;L0CftTE2,i4iPRIfiTSPC(6O);8EEP:BOTQ515
260. L0C6TE35,14,0iPRIWTOSIHS*»» .t
261. ДОШ,15,181ЛМЕШТ,,3, Йвину . светает! взякУ (на) ?';0Т1
262. IF0T$=;!OTHBJCP=t:0L=0LUE^06t80T0560ELSE0T=V6L(QT$)s!F0T>=380ftHDQT<=760THEK0L=0T:CP=0:G0T05W 550 BEEP;10СйТЕ2, 15,0 s PRIST "Реапшш ре световнх войн от 330 до Ш bh/jSPCUM 555 ZZ=i500!fiOSffi30sLOCATE2,15,'PRINTSPC{60)jBEEPj60T9540
263. L0CATE35,15,0:PRHJTUSINB0.# ua.%-DLiBH=( (RI1000)/X>$DL/1E+06:X=X/25:DC=DL:DL=DL/1E+06SBEEP 565 10CATE5,ilsPRlNrCtp&UTb график СД/8Г sWMNKEY*tIF9?=a "ТШ!565 570 80SUB1705sL0CATE5«ilsPRIflT SPC{25)
264. B£EP:IFil=°llBQR&If=0aa^s=aB"ORI$=0daT®®
265. Ш LGCAIE5,il:РеШТ°ГраФик налойитг, aa pse су$ествуад?( ШН)а;W2f=MEY$:lFB2$=onTHE»58fr
266. LOCATES,lliPRINT SPC < 50 . г L0CATE37, i I: PR IHTa X ш'590370ELSE580
267. LOCATES, 111PR 1КТ°Вбод яоив яавак (Й/Н)a ?
268. LOCATES, 11 .-PRINT SPC(30>605пдофпнитмй'тв^^
269. CLSsPCLSsREfi Зеркала Френеля
270. PRINTTA8{39)"nofloseHBiiEK так, что HKe:PRI8TTAB(39)°OTpaia«*ae йовернностн°;РВ1ШАВ(39)!'о6рагувт угол, S ЛИШн"
271. МО PRINT" £ 180. Соответственно $т на рисунке очеяь saa, Scvo4H!!KO8o;P5ET(223li66),7:80SU8i685
272. PRINT3 света является узкая ярка осве*ешя «ель 8, Непрозрачная0
273. PRINT11 экран К вреграаяае* путь свету от ветвчанка S g экраву 8*,°
274. LGCfiTE12,3;PRINT"8 К,; tL0CftTE34,2?PRIST"ЭF.0 iClRCLE(50,l62) ,2,7*, ,1Л
275. LINE(285,28>-(285,133),7:CIRCLE(109,39),3,7},,1.1:PAM(109,39),4,7
276. ORA«"e38ii60,43H80,80H120,10S"?DRAS'1C3BH59,431179,80i11i9,1080
277. Ш9"СЗШ9,86R84,89ВК37 ,Ш0,ИМ»2,1Ш5, №ЪШ, ШНШ, Ш" sPSET (100,106) ,7 ;8!Ш1685 675 YX=39:FCRX=60TQ79STEP2.5:Y7.=YXt5sLINE(X-4,Y7.)-(X,Y:'i),3;ieT)! ■
278. F0RX=83T0119STEP5,6;Y2=Y2*4:LIME(X-4,YZ}-(X,YZ},3;ЖШ 685 CmCLE(109,39),14,7,5,lJYl=39iY2=39;V3=39sY4=39;X2=108.4isX3=108.3sX4=109
279. K$=I^fcY$:IFKI-GnTHEN725ELSEIFA8C|Kf )=130TffiN730ElSEIFASC(P)=i36THEM6i(CiSE725
280. PR I NT ГА В (39} * ян иг нншк источников0 iPRINTTA8(39rS и S .n}SPC(14)sPRINTSPC(63) 755 PSET(322,187),7:808УВ1Ш; PSET(379,185),7 г80SUB1695
281. UJCATE3,SiPRINT'S' ?L0Cft¥E3?7iPRIfiTuS-5?SIRCLEf23,685,252:С1Н51Е(23392) S2S2 765 PSET (26,76), 7: B0SUB1690'= PSET(26,105} ,7 г603UBI695770 бШаС2В№9,62№8,63Н7&,74ВШ,85Й28,92Й112,102"
282. F0RXX=29TO68STEP7:F0RIX=0T82:LINE(XX<-ri,62)-(XX+7trA575)f0;HB7ГС,M
283. FORXX=23T085STEP7;FORIX=OT02:LINE(XS+r/.,85)-(XSt23+r/.,103),05NEXTIX,X:/.
284. ШвеЗВй79}Ш84,Ш8ШЛЗШ,9?а1ЩНЕ1Е(2В56В),э13456Л45.Ш41Л
285. CIRCLE(23,68),58,5,6ЛЬ?Л25ДЛ;08С1Е(2В,68)}6§54}6Л65Л25ДЛ|СЖ1ЕШ,63),72,795 0!RCLE(23,92},72^5,6.25s;<ltfl>7:№£LE{26}$&),7?}4}&J63 Л25!1,7:С1ШЕ(|8,92},7?)4,6Л8)Л25Л>7
286. Ж FORRS=87T82.5&S?EPi4sCISfCLE{2SJSS)s5?.S, 12&,IЛ;D1RCLE|23j.92)fR7afйЛ6,. 1Л
287. BOS ШСЕЕ|2В,68),КШ,4,6Д6?Л25Д Л;ШШЦ28592)Л25,1.7
288. NEXTO:CIRCLE(28,63)}R'i,556.i6^125,1.7:CIRCLE(28,98),RS,5,6.16,.l25,iJ
289. L8CATE6,13;PRIi3TaD оёаастн nepesptmra «тражевиа шъот шт sosstrcaат"
290. РКГМТТй8<19}*«ктерфер€нциойная картина.0
291. F0RPMT03Q sFQRG'/«=0T04 s BRAtl GC=C7. \ Ш1285,62Й130 , 80H285,98H285,620 830 ШШ,P? s LINE(285,28)-(285-, 132),7:60SUB167O
292. LQCftf E40 f 2; PR1!4TSPC {22) sf 0RY%-4T0f Va sPRIHTSPCi' 251 ^LGC6T£i f SPR1MISPCCS3 ) sNEXTYX gSSTURM
293. U3CATE40, 10 s PR INT ° Ba д кн?ер§еренцйонно°!"!РЙ1ЙТТА8(39}0картинн s зиаств"
294. PRHITTABf 39) "нерекртмя светах»;PRmTAB(39)"волн на экране,11880 lIME(322,15)-(450,145),0,8F5LIt:E{323|16)"(449,i44),6,8sLIKE(320,185)-(390,160),l,8F885 16й287^аЙ283,й8й283а?2й2е7592й2871й8Й237»92Ш21? 144я
295. IF Ш=1 ТИЕН 910 ELSE Cl=Ostti=lB
296. СМШгIFCMTHEN90OEL8ELШ 325,Щ~(447,Y?),s'U-u'AliIFYX>142THEH905EL5E895
297. CX=C^ldFCMTHEf®95EtSELINEi325/f/J-(447}Y:4)sC?',sYX=YXvlsIFYX>i42THB«05ELSE900905 RETURN .910 1Ш325Л8Н447Д42Ь5,ВР!рОа1^ОТВ1ОгРШ2=20Т81ШЕ915 №=immIFK$=BCTHEN915£I.SEIFASC(!(?)=i30THEfR85ELSEIFftSC(K5)=136THEN6i0ElSE915920 60SU81700580SUB865
298. ШйТЕЗ, 111?й1ЙТв8йсаотр№ как «аввш виякююск кедбт на зкравз Эк" W PRINT" т координатн нормальной к ннинна иеточивкан S в S ,8
299. Ш13М,1В7Ь71ВШШ8РЮИШад,7:Ш1ШЯ5:ШНТв 1раетввие от верштв ssfmm Яв астввха S 5 ев,"
300. BQSUB1690:PSET(353,185},7:6QSUB1695 1120 L0CftiE2,12:PRI«T»(pacc?oaaiie яезду mmms йеточяякшв S « S *|5PMt^tffi4«.en2fR«000*SWFI)}iPRI NT" ив.)"1125 L8CftTE2514,l:Llf5EINPUTuPaccTOBHiie до экрана Эк (и) ?°j0Tf
301. ИЗО IF0T$=onTHEiJll45ELSEQT=VAt|QT$}5lF0T>=.lfti№0T<=50THE(!8=QTi60T0il45
302. М REfl Нажатие шоди <ВХ> -See ввода значения ищ построении 15 REI1 графика I=f(x) ведет к вводу старого значения паранетра. 20 CLEAR50;DIi1 fi$(6hLflCATEl,i,0
303. B$=IfiKEYJ:IFB$=BBTHEl№0 :
304. IF8$=CHR$ (130) THENCS=CN ;C!J=€NH: КШМНЕОДИ; GGTCWO . 90 IFBS=EHRt i i3o)THENCS=$J i Й=С!М; 1РШГТНЕШ!=& $SOTBiOO% 95 Ш=Ш*(13)THENGNGH68T01160,1160,1160,620,230,1075
305. С2^-1:1РСМТШШ5а1ЙЕ(324,?2ЬИ47|¥ХЬЙ?УМХН?™142Щ{}ШЕ1®140 145 RETURN :
306. L1HE1324, IB)- ^ 447,142) j 5s E*F^ FORI %=0Т01 йгFBRYV,-20TOI30STEP22 si I^E (324 5 VA^IX J -(447 3 Y^'4"!^). 0; fJEXTY"<„IS?RETLSR;!
307. LINE{493,232)-(509,253),1,BF sG9SU8105
308. LIliE(321,15)-|451,147),0,BF;Lli!E(322,16)-(450,1465,6s8
309. Ш L0CATE55,6iPRINT"rjL0CATE42J9iPRIKT,,Xf м"
310. ЙЙйГС7ВЖЗЗ,!ЗН336,25ЕШе,27ШЗ!2Ш4052й!34О!28Ш8!ЗОШ335ЗШ4О53!'1
311. ORA8DC78H333,55H336,558K338,54fl340,52H340,57"!LI»iE(338,78)-(340,83),7,8
312. O ЭШвС7В11332,1Сь5й3361106Ви3345104й334 Д0еВ!'1333,105й340!103й34051С!8а
313. FQRYX=28T0132STEP26sLIHE(3435Y'4)-f347,YX) pfcsHEmZ:
314. OR AH" С7ВЙ345,19D61R100H3F3S3E3L100D63E3G3H4 ";RETURt{195 й1"А1А2|й2=й2/25 '
315. Y=-.06;I=4iC0S({S0R(A!+(Y+A2)A2)-SQR(Ai+(Y-A2)rt2))»(6.28319/DL))sP3ET(375+I?7,Yli000+80),a
316. FQRY=-.06T0.06STEP5,2E-04nr4iCOS((SOR(AH(YtA2)*2)-SQR(Al4-(Y-A2)A2))t(6.283i9/OL))
317. IF CP=1 THEN P-SET(375+It7,Y*1000+30),CL ELSE LWE-(375*N7,Y»1000*80),CL
318. NEXTY:LQCATE55,3:FRINT"SHpHHae!L0CATE53,4sPRItiT:,no,'!OCB (ян)а
319. IFSH>=.01ANDSH<=999THESLGCATE55,5:PRIIiTUSINB''^S«##'!5SH:6BT0225 ELSE L0CATE55,5sPRI9TUSI№3.S§AA"A^SH 225 IFL=lTHEKL0CATE53,7jPRIHTnqiicso иоюс":L0CATE57,8:PRINTUSINS"§«t':}S;RETURM ELSE RETURN 230 L=0;CLSiPCLSsREH еевкайб Яаойда
320. LQCATE42,4!PRlfiTa3epEa® SsoSfia у«р»-а11ШЖ4&,ШШвеиа сяецуэдин- «вриоп* 255 ШЙТ0О,6:ШТв?отездв1 источник S м^иВДЕДОНМРнмт* и штрюв11аШЕ40,ШШйрато явки от плоского8
321. СIRGLE(35,7*)j 2,7 г ZZ=3f№0?6QSU830jXi=35iУ1=7агХ2=35sV'2=74
322. РБЕТ(Х1,У1!,4Ш=Х1+.75:У1=У1-^1:РЗЕТ(Х2}У2),4гХ2=Х2+,4:У2=У2*Л
323. IF YI>90 THEN 295 ELSE 235
324. IFX1 >274THEH300ELSEPSET( XI, Yi), 41 KI=X1-s^, 73: Y1=Y1-. i
325. IFX2>274TKcN80SL!8i090 {80TQ305ELSEPSET (X2,У2),4 s X2=X2*.5: Y2SY2-, I s G0T8295
326. Kf=INKEy$sIFKI=ooTHE«30SELSEIFftSC(K$)=i30THEH310ELSEIFfiSCK$)=136THE«230ELSE305
327. SQSUBi £2QsLflCftTEl 1>II; PR ЭДУЕогеревтявав кидай» s данш сяучаэ служат пег"
328. PRIfiT" вйчвйн й-сточвйй S ш we ввивое вздбразевве в зеркале 3V
329. PRIST8 йр зтон вервевркуяяр к еёредаке отрзка S-S'aeBBt в наос-"
330. PRItlT" kocts веркава Н.л s 2Z=3000:80SU830 . '
331. Xl=88sF0RyK=f2TQI<j6^PSET(Xi,¥/=}?2="PSET{K2s¥%)2;Xl=Xi-3D7гй2;=Х2-7гйЕХТУ%
332. CISE-LE(35510SK2;2;L8CATE4}7sPRIMFS'"
333. Y1^7&IFQRX=35T0274ST£P.5;PSET(XjYI),4:PSET(X>76),4!Y1=Y1-.06SNESTX
334. FCRI2=iT0275L0CfiTE4,5iPFiHiTo "sLQCAT^sPRIKT" 3:LBCATE19,12:PRlHTtl n:lQCATE56,i2:PRIHT° BsF0RjX=0T030!mmi350 10Сн7Е4г5гРй1)Я:!5" ;'L0CATE457srriL"TQS' п?1УС'йТ£19;ДЭгГ^1НТиЗпг1йСйТЕ5йэ n :FSRJ%=C>T05GsnEXTJ%jIS
335. CIRCLE(35,76),RX<-7,5,, Лг^^гСШСиЕСЗЭэЮб),R7,H1,5, Л6,.25,i.5itiEXTRX 370 FORPMlBBiU»^
336. L0CAIE22j ШРШТ,В области перекратня «травейкая й арк-й*
337. PRIMP ваян возинкает ш»ер§еренциоввая картнва.0;KEXTC2,PXs80SUB1090
338. КФ=IHK£¥f 1 п iFASC«Kf} -i30THEN3?0ELSElFfi3C (Kf390 11ЙЕ(ЗЗба&}-{508,2Й)а^8ШЩй511ШТЕ1>?»Ш8Т8РС(50):1вШЕ4в,10!ШЙ1вВвд «вмр4врнтишю5"
339. РШТТАВ$9)"йрШИ в ' овиатв1РЮША8(39*ваермрвт «вешю^РЯШТАВСЗ^Рвояв на зкраве.8
340. LIKE(32ia5)-(450,145),0IBF:LIKE(322a6)-{449}144}»6s8405 0RA3"C68«321,ШЙ77,55Й273,55Й273,71И277,71К277,55И277,71Н321,144"iCX=0sYV>18
341. IFfif;=-10RfiN=lTHEM425ELSEL0C;:)TE7.12!PRlNTil8aB вовптор цветвой ? «Д/ОГгВЕЕР415 IMNr'EY$;IFI$=!,nTHEN4i5
342. IFI§='3a0RI$=os°0RI$=s0'W^f=B6sTHEiffi'l=isSBT0425EL8EIFI$=o8°0RrJ="Bn8RI?=a!f
343. L0CATE7,12jPRIf)TSPC{30) ;60SU8130:80SUB1OT<>
344. К$=1НКЕ¥з; I FKf"THEHOOELSEl FftSC (K$}=i30Tyti-!435ELBEIFASC I
345. LI<<E(493,233 H 508,252),1,8F sGOSUBl05
346. L8EATE2,10s РКШУГик-нотрите как шшеш даена®вотй!РШТи освеаевия экрана Эк сверху вва®." 445 PRIMTsPRIHTTABf7rрасстояние «т плоскости зеркала so источника S" 450 РЙИЯТАВ(8)"ранио 2 ки3 " расстояние от нсточниха S йо 38-"
347. PRli<TTfi8(8)"paHa Зк Ш дпава световой воявн - 430 HH}'sLIHE(24,192)-{463t240),2,B 460 fiO^I60!Al=lO5ft2s2}BL's43O/lE^O5!D-2/!OOfrjM0sSH=itO7iCLss55EP=§;OOS8BW5s8DSUBie9O
348. K$=IKKEV$^FiiS=aoTHEH465ELSElFASCl<S}=i3OTHEN47OELSEIFftSC(KI5=!36THEIJ2S0ELSE465
349. LIHEv2Os180)-{5O8,252UiBFsLQCATE25i,0;PR№T"B усао*Ш яаняето овнта 8н а«ш веввть сяедуваде eapasespfij*
350. FQRYK=10T0Jt5:L0CATE2,Y%sPI?IKTSPC(62}:480 1вШЕ2,ШР!ШиРа££теняйЕ от вжижшв sepaaa вэ атташе §
351. L9CATE2,13sPRINT':PaccTOHHHe от источника 8 до экрана Эк (а)"
352. L8CATE2,14:FRIKT"SMBa световой волан {т\)а
353. L0CATE50,12;PRINTUSlr)8c^§B.I йк.в;0:0=0/1000 •
354. L0CATE2,13,1 iUNEISPUFFacemsse от источника 5 да экрана Эх {а) ?Н?ЭТ55Z5 IF0T$=0 яTHEN540ELSE0T=i/flL(QT$ J г IF flTKI № 0T<=50 THEN B=0T.'80T0W0 530 BEEPiL0CATE2,13«0iPRIhTo PsaatBOfr расстояние go экрана Зк от 0Л № 5') ^ "
355. ZZ=1500:GOSU830!LOCATE3,13;PRINTSPC(60);GEEP;02T0520 540 LOCATE50,13,0:PRIHTijSIf;Bs«§!iM в.";В
356. L8CATE2,i4,i*.LINEIiiPUT':S,i;iKa световой вошш (ая) ?Е10Т$
357. IFQTf=i*ЭТНЕКСР=1: DL=DLJit-f66г60TQ565ELSE0T=VALf ОТ$ > г IF 0T>=3S0 & 8T(=740 THEN 0L=DT»CP=O?SO78365555 8EEp!L0CATE2,i4,0'.PRmP Реавыше дамка вад от 380 до 760 як. ■ 0560 2Z=15»05eOS®OiLiEATE2Ji4sPRIRTSPCC60|iBEEP;88T8S4§ ;
358. L0CATE50,14,0:PRIKTUSINBC§§§#.§ на.0;OL:DC=DL sDL=0L/ 1E+06s SH=(8/(2»0))tDL 570 Ai=B:A2=DM000:BEEP575 lOCATE5,?tFWHPC*pem -тра&вв (Д/Н)°tB$=INKEY$J IF!»»'"THEH57S 580 G0SBBll2S:LQCATE5,?sPRIHT SPC(25) «81150585
359. LQCftTEl,9:PRIHTerpa$8S наяоавть aa уже едествуодии <Д/Н)■s82f=INKEY$.-ШШ=""ТНЕ?1590 595 L0CATEl,9iP№ 8РС(50ШШЕ425^ШРХ5 «" 600 IF82$=BGaflR{i2S=BdW$=TfiR»23=VTHENe0S№^^ 195ELSE590
360. LOCftlK^sffilMPtowi mm дшнаи ШНР^=ЖЕУ1г1Ш4=воТШй05 610 LOCATES,9sPRINT SPC(30)615
361. L=lsCLS;PCLSsREH Бишга &я$е
362. CIRCLE(142,80-YX),70,3,2.59,3.1,.85iCI8CLEU42f80*Yl),70,3,3.2,3,71,.85
363. PRIST® рь-е а вншвмт роль когерентнвк точнийоб.jPSET(241,171},7s808U8H 10:PS£T(Z8i, 169?J6QSU81115 695 PRI«TTAB(8)°Dpspesb невд ввяузшзавп ванрштв экраноа K.!':LI«S(285,22)-(285,139),7 780 С№Щ35«80)>2,7|МЫ:1(ШЙТЕ4,6|№{П'*8*}Ш
364. Yl=80iY2=80?Y3=80iY4=S05f9RS=37T09l^i=Yl-s75PSET(KV^|54;V4^
365. Y2=Y2-03sPgET(Kf¥2),4lY3=VSb3iPSET(X,Y3},4iNEJ(TX
366. F8RX^3T0284sYl=Yi-f-.4!PSETf^Yl-l)J4sY4=Y4-14tPSET(X5Y4^i),4
367. PSET(152,75),7580SU81110:P8cT(152,89),7!SBSUBlli5;CIRCLE(i46,62),2,4;CIRCLE(146,98),2,4
368. F0RR;i=i2T0136STEPi4:CIRCLE(147,62),ft?,,4,5.89l.01,i.2;ClRCLE(147,98),RX,4,6.26,.4I1.2
369. CIRCLE(147,62),R?.+7,5,5t39,.01,1.2!CIRCLE(147,98),RX+7,536.26,r4,1.2!®TRX!CIRCL£(147,62),i38,455.89,6J951.-2 '
370. CIRCLE(147,981,138,4,,09,.4,1.2:CIRCLE(147,62},145,5,5.89>6,1.2seiR0LE(147,98),145,5,.29,.4,1.2 745 FQRPX=lTOi7jFQRCX=OTQ4iDRAH"C=CX;8S284,58!1242,59t1l9i,S0ii242,i01H284,10211284,58° 750 LQCATE4,14:PRINT8PC(55}:PRINTSPC{55)
371. L0CATE4,14iPRINT"8HTep$epeHiiaa найшается в области, да перекривавтся оёас
372. Р81НТТАВ(15)"сБетов«г потока, Щцш от S и S .o;PSET(344,235),7sS0SUB1110sPSET(377,233),7!S0SLS81115jfeTC2 765 NEXTPS!LINE(285,28)-(28'5t132ir7!G0SU61090770 «=IKKEYi;IFK?="nTroOELSEIFASC(Kf)=130THtN775ELSEIFASC(K?)=136THEt'620ELSE770
373. ЬГИЕСЗ'43515.-С437,32} {S083252) j,l^BFsS0SiIB105s iFHPS=-»10RflN=lTHES790ELSELCIE^TE7?i25PRIMTB
374. Baa шшмюр цветне» ? (Д/8IйsBEEP im I$=IHKEY$tIFIf=""THEH780 785
375. LOCAT£7,12sPRI?JTSPC(30) *.GGSUBli0;G0SU81090 '793Ki=Ii?№UFK5=aaTHEfl795ELE€IFA3C-(K$}=i30THEfSOOELSElFAS£(KI)=i36THEI1620ELSE795 800 60SU81120:SGSU8105
376. LOCATES, И :Р81НТийо<гйотрнтг как зйвнда интенсивность эсвеценнв на зкраве Зк"
377. PRINT" от координата норзпши к деиетвнтельвнв нсточникан S й S ,"5PSET(448,187),7:6oSll811i0sPSET(48i,i 85),7:6081)81115
378. PRlfJT9 (фокусное расстояние ншн F=12ch| внрива экрана £ Iras?" 820 PRINT" расстояние от- негачвш 3 д» Яйнзн - Йен, от шев до"
379. PRffi" экрана Ы 4 щ длина воявя - 43?) as (|Hoa«TC8aB}}"jLI{JE(23,I93}-(«3,240)i2lBiL8EfiTEi0,9sPR!H1. FF=12 csE
380. S0SUB1.S0;AI=4Лift2~,972iDL=430/l£H»6EF=i2/iOOiK=i/iOOCUft=36/iOO;^ и 12=?CL-5sCP=0;80BUB,t95? 6QSU81090
381. KS=MEY§!IFK$="°THEN835ELSEIFASC(Kf}=13OTHEN840ELSEIFASC(K$H36THEN620ELSE8358# LIN£(20,180H508,252),i,BFiLOCATE2>i,0:PRINT:,8 условрз? ванного опыта 8н aosm девять следуйте парааетриг§45 F0RY%=11Т015гL0SATE2, i PRI?4TSPC С > s f»EXTY% jLI(4E {3S0
382. LOCATE?,11:PRINT"Фокусное расстояние «дан F (сй}п
383. LOCATE?,125PRINT°iH?nHa экрана S |sa}°
384. Ш 10СЙТЕ9313;РРчШТвРасшш№ от виочнака S>o явнзв {сн}"
385. L0CATE9,14:PRINT°PaccfOBHae от янвгн до экрана Эк {а}0
386. LOCATE?,15sPRIHTaДаива световой волна (нз)а875 • гй2$=""i83?-°*iL0CiTE9,11»is<яо# расстояние hhsh F {ca} ?e|8Tf
387. IF0T$=!1"TH£NF=F$ WOi G8T6895ELSEQT=yAL(QT$);IF 0TK5 AND QT<=50 THEN F=0TsG0T0895 885 BEEP:LQCATE6,ll,0sPRINTl'PeanbHoe bxftm расстояние ше» of 0,5 до 50 cu.c;SPC(12) 890 11= L5t)0 s 60SU830 :LQCftTE3} 11 ;FRIMTSPC( iO) :SE£P s
388. LQCATEW,9,0sPRINT "F="F;'ch ■ вг1ЙСАТ£4!чШРР1гШ5ШВ,1Ш1.| ен.C;F:F=F/100
389. LSGATE9,i2JhLOIEI«T0!i!fpHBa экрана l Ш -?DiGTf905 1F0T$=""THENK=K$ 1000:8BYfl?2OELSE0T=VAL(0T$);IF OIK5 ADD OT<=50 THEN K=0Tt60T0920
390. ВЕЕР,^8САТЕ9,12,0:Рй1КТсРеалшя аирива экрана К от 0=5 до 50 и».B|SPCt 13i
391. ZZ=i500:eOSffi30:LOCfiTE3,i2sPRI»TSPC(60)sBEEP;BBT0900
392. LQCATt45,12>0:PRINTtiSINGi,#tS§,t нй.";К;К=К/Ю00
393. LQCATE9,13,lsLINEINPUPPaccTOBBKe от'источника S до аш (is) ?а;0Т$
394. IF0T$=3"THENA=A* 100!80T0955ELSEQT=VAL(ОТ® b IF ОТМ AND QT<=100 AND QT>F*lO0 THEN A=0T,-BQTQ955
395. IF BT>Fil00 THEN945ELSE BEEP;LOCATES»13sPRIHTcРасстоякие от источника S до линза дошо ёнт-ь &мьше F 5°
396. ZZ=2000sSOSUB30;LOCATE3,:i3sPRlNTSPC{60)i8EEP;60T0925
397. ВЕЕР;L0C6TE6»13,0:PRIiiT"яьное расстояние до «юза от i до 100 ca.°;SPC(145
398. ZZ=15O0:GG§UB30:LO£ATE3,13;PRINTSPC(6O) .'BEEPsS0T0925
399. LCCATE45,13,0;PRINT(i8IN6J№# СЙ.о!А:А=А/100 ■ .
400. J=(AIF)/(A-F):0=KM(AtJ)/A)sLL=Kt(A+B./A!ZC=J+(Oi{8-J)/(DtLL))
401. ЯШ LOCATES, 11 :PRINT"PaccTOBBiie аезду действителышки ястоздкик S a S ля.в;М1000
402. PSETС384,172),7:S0SU81110гPSET(4175 ST: 15
403. LOCATE?, 14,1!L ЭДЕНТОРРасстопние от skhsh до экрана Эк (в) ?"',0Т$9S0 IF0T$=i",THEN995ELSE0T=VfiL{GT$);IF 8T>=ZC AND QT<=50 THEN B=0Ti6QT0995'
404. Ш0 DRA8"C7E205B; RETURN s REH 1
405. Ш5 0RArC7R2D2L202R3*sRETM:RES 211» гНЕ(493,2В)-{ЗвВ,252М ,SFsRETtXRN:BEH mp.m»jU8OT.кадра
406. Ш5 IF 00=590 ТШ1 CL=4sSCT01i<15;RE(4 o/g ваб.цвета дш.вош
407. П80 РШХ^Ш8?и№аЙ5-ВД-12)-{35в«1,96+К),5,В!ШТ1Х|1Ш{107,77)-(368}Ц4),7}В1185 LGCATe20,6sPRINP Зн|нч к у, c: L0CATE14,7: PRINT" . вдет догрувка програп1ш.0:ЙЕТШ1190 REfi в/п обработки осибок
408. Ш5 IF ERR=5fr Ш £?=а3вдйа товпа №,>/$№2101200 IF ЕШ-53 THEN Е$-вФайа т ptsfi ft; as аайрв,,,■;ШЗШ0
409. CLEARSOsOIH ЬЩ)Ш1М QiOW ОШ).'ЮСШ?1,0 15 CLSjPCL8sLIHE{«,0h(5il,235},i»Bimffi{2,2}-{5Wf253),21BFi6PT035
410. FORZ=OTGZ ZjNEXTZs RETURN .-RE8 Задергка щтт 25 tIffi(232l3h{M?,253)Ji,BFj|®} «ир.вр.чает«ра8
411. F0RY=1TQ15sL0CATE29,Y ;PRMSPC{36)sNEXTY sRETURN:REH c?Hp.np.4acT»sCLS
412. IF8I=CHR$(130) ШС8*С1Ш=С1И: 1ГСМ>5ТНЕОДИ .-GOTOIOS
413. IFB$=CHR${136)THENCS=C?lsCM=CrHsIFCfi<l?flEEf|=5i80m05 100 IF8f=tffl»(13)THEN GfJ CN G0T0290,120,130,140,110
414. Ш L0CATE16,5+CNiPRINT (27}"б" $ ftS {CN):ЮСЙТЕ1655*CSs PRIST CHR$(27)"7°}A${CS):60T0 85
415. OH ERROR 6QT0245sRE« Вник в основное йекй115 6QSUB230: LOAD'A: HENUH0L$. BASB, R
416. OH ERROR S0T0245;fiEit Загрузка шейк.ди§.реое»г»
417. B0SU8230:L0A0"A:PI0DR2i.8ftSu,R
418. OH ERROR 60T0245;REfl Ззгруока двунерв.диэ.решетки '135 60БУ823СИLQftDBft:PICDR3#.BAS5,R
419. ON ERROR G0T0245sREH Загрузка о&.диЭ.ревет ' '
420. S0SUS230;LOAD"A:PI0DR4S,8AS",R1.O Efffi ;
421. CL=4 г B=, UJi£-03:L=4 sDL=4 . ЗЕ-07 гREK S/E ГРАФИК160 0RA,4*C78lill9,231Ull564E4F5o:L0CATE17,8,0sPRINT',I!,;PSET{136,120))7jG0Sl'B200
422. T=3J4159t8tSIH(-,02)/0LsIH=.4Ш8(Т)А2/ТА2;Р8ЕТ(-.0215000^119,481250^230),CL{F0RF=-.02T0.02STEPlE-i>4 170 T=3.14159*8*SI«(F)/QL:IF T=0 THEN fiESTF ELSE IN=.4?SbV{Tr2/T"2:LISE-(FI5000U19,-Ifil250+230)>CL:feTF: RETURN
423. L0CATEi7,8,0sPRiSTB °!LINE(18,100)-(220,231),0SBFIRETUS«
424. REH п/в индикации конр. кадра .
425. LIKE(495,233h(5S8,252)sO}BF!FPRCS=lT07iLI8E(494s233I-{508,252)5a}B
426. ORftlf C=ci5B«?244б5й5RmKLШF5^•F0SZMT015Э^NE!iTZX^C2^8EEP^Шt)ffi
427. LIfiE(493,233)-(503,252),isBF;RETURHtREf! стир.ввд.ков.кадра200 0RA8"C7B2F2R4E2H282f}6"!RETURi{sREt1
428. IF 00=590 THEN CL=4;60T0225sREfi п/в вкё.ДЕета йвив.волян
429. IF 0C>=570 AND 0C<590 THEN CL=6s60T0225
430. IF 00=495 AND 0C<570 TKEf! CL=2;60T0225
431. IF 00=435 AHO 0C<495 THEN CL=1 ELSE CL=5225 RETURN .230 REH йн|-а о sarpjsKe
432. FOSI7.=OT018:LINE{125-IZ,96-IX)-(350+I2,96^IZ),5,8}NEXTIX:LI?ff(107,77,)-(368,114),7,8240 иШШ,ШШв I.i 8 j t о "4 к у, "sL?l®TEi4,?'.PRtMTe »й« prpjsisa вротравш»,., Я$8ЕТМШ
433. REK а/в обработки овкбок ■
434. IF ERR=50 THEN Е$="0вшб1:а чтевия фаияа.=.а$60Т0265
435. IF ERR-53 THEM В=вФаЙ5 sa диске As ве найден.,аге§Т0263
436. I NKEYS:IFK$=0" THE54280ELSEI FflSC (K5)=13THEK RESOHE10ELSE2S0 285 END
437. CLS:LIiiE(2,2)4^,253)!3,BF:LlKE(25ii7)4485,187),0,8F:LHffi(i2t26)^475,i97),i,BF!LIKE(14,28)-H73,i95)l5,B • 295 lOCATE9,3:P8INTnBasHer!fiee практическое приневение в свектроскопвн^йЕЙ одна даь .
438. PRINT8 нйеет .шевв* дй|раквий света на ттеве т бйЛвого11 305 PRINT" одинаков® параяяеяьаах накошдаа на5
439. РйШ* равш рдототя друг да яруга, Тай устроена врас-в 315 PRINT" тейаая дн$раадшвая ревмва, ввервае «зтошввая* .
440. Ф 355 LtKftTEa,4?№MTa?a»e всего вротевнвт врозрачнне рфракцйввш"
441. PRIHT" ревеш, в 'даорвя параяяеаше веяв яеют в адно§в
442. PRINT" ваешс-тй, Лучение этого вркбвра ваш» с аваяваа"
443. PRINT" основного его заевта> т.е. сватала ра«<з»трйн° .
444. PRINT3 дн&ракщш света о? ОЛНОй |EM.Gs80SU8180
445. K^INKEY3-:IFK5="THEN380ELSE3FASC(K$}=130THEN385ELSEIFASC(K$)=136THEN290ELSE380
446. CLS:U?iE(2,2H509,253),l,BFiLIME{7,7)-C230,147),0,8F:UNE{8,8H229,146),7,8390
447. PRINTTA8(30)°bo все сторона вперед от цени,"
448. FDRMT022:FDRX=96T0145S.TEP15!PSET(5is50),5;CIRClE()i.l50),i,0!CIRClE(X,50),i,2sNEmiI
449. IGCATE34,11:PRINT°3th в7врчтв войНй ког-ерентнБа;Р81НТТА8(30)"й» интерферируя невду собой, cos-B
450. Р81КТТЙВ{30)ода©т- тшщп аартиву раепрейезе-а!РВ1ЙТТА8(30)"вая «нтгвсйввот освецевия после0sPRINTTABf435 «И?В=3.5:й=25Р0Ш»2ШЭТВ>2{ЕтаЕ{96>^),®,С2,й,В!С1Ш.Е{Ш,50)
451. CIRCLEC 126sS0) sCIRCLE^ 141,50) ,RasCX3ftsBsCK=C%«-Iг IFC%=&THEflGX=l5fJEXTR^ELSEflEXTRX
452. FORI=OTO7j0{I)=I:NEXTI:FuRI=8TO15:e(I)=15!NEni:8BSSjB18O52Z=iOO450 0(2)=2sLUTQ(O):S(4)=O:LyTG(O)!Q(3)=3:LUT8(O)jS{5)=OsLl!T2(O)
453. O(4)=4;LllT8(O):Q{2)=OsUr0(O);8(5)=5sL«TO(O):0(3)=OsLUTQ{O)58OSDB2O '
454. K$=INKEY$:IF«='"'THEN450ELSEIFASC(Ki)=130THEN465ELSEIFA8C(KJ)=136THEN15ELSE450
455. FQRI=8T015:6(I)=15:KE!!TI:F0RI=0T07iS{I)=I:NEXTI:LiiT8{0}
456. G0SU825:L0CATE32,2!PRINT"Упростин каргиву взаняойеиствиа" sPRI«TTA8(35) "световой валяя со *е,ш?.° 475 F0RC»lt00'3TEP-l S§Bii9 ^9R2i9D40LS2f9B73f!S7L2i90S7R7-3E9LS2u40'' sРАПЛС10410},С% s N5XTC% 480 РШМ47Ш47:11Щ7;Ш^
457. L0CATE32,2iPRINTB Расснотряк bosbh, распроетравя-°5Р8ШТАВ{30)яадйеся от точек плоскости яеаи ва ■ ■ 490 Р8ШШ(Зв)"навравявввй, довдодт нагота-*{РШШШ'рнв ym е веригаачаяьвйа," 495 PSET{312,70),7:60SU8200JLOCftTE31,2,l:FORY=50T0708TEP,5
458. PSET(146,Y-20),5;PSET(171-Y/2,Y},5;PSET(l46,Y),5sNEKTY;LINE{i46,64)-{140,63),5.'PSET(150,60),7:G08U8200
459. Z2=360Ci3 BSBUB20IFDRY-iiT0491F0RM=9T82I$STEPi7 JPSETi 17+JIчV),4;HEKTfisYsF0RX=23T0210STEP17sPSET(X,34
460. Ш!?°Е4?ЗЕ4я!НЕ:т!р0ВК=а9Т01508ТЕР6;Р8ЕТ!Х550),7гШ1ТХ
461. FBRY=30T090STEP.5:FBRi!=94T0145STEP17!PSET(R+25-Y/2«Y>,4:NEnN,Y
462. F0RX=80T8i3iST£Pi7;PSET(;(,73),4!LINE-STEP{0,6),4!LINE-STEP(5,-5b4!NE)iTX525 10ШЕЗЗ,6,0:РШЙТп8оставйа мщ, тт»ет-п1РШШ{30)Ч«&у»й1ие яуча еетш в вдву m-*'
463. ШйГШШРву « Ер08нгер|еркровая« друг с";РШШАБ(30} "яругой.йsL0CATE31,6,1 s sZZ=2SOO: sGQSUBSO
464. CIftCLE(118«130),l70,7,.7,2.45,5jCIRCLE(118,76)jl70«7,3,84,5.57,5sPfiINT(118,97),3,7
465. FGRV=?0TOlO2ST£f%5!fSfiN=94TO£4§'5TEPI7;P8ET|Ni-25-Y/2}Y), 4гЙЕШ, Y г Х1=6§! Х2=ХЩ7:XM2*l7sX4*XS+17545
466. Х4=Х4-.251НЕШ?18СвТЕ35»10,<)?Р818Г«8 fomwry» tamnm mum п§-а1РШШШ}пяести8 звран, на шор; ед буден"0 555 PRIKTTftB(SO)"яабя»дать -регузьтат BBTep$epeB-":PRINTTftB(30)"BHH да шн, расвростравякшсз"
467. PSET f 331 j 40)5 7 г PSET(3i2 5 3S)Л г SGSUB200 г 0ЙЯйаС7ЁНЗ?3 5 43R6"г LIME142?.34}-(430,ЗВ)5 7 5 ВiL1НЕ«310 s 31Н С 456,47)5 4,В
468. РЛШШ39)»Ш11Тввайвдавтс8 188И8У8Н ян1ев«*внос-"!РЙШШ{30)!РВШТ"?и, а оря Ь Sin = за 595 ШЛТТ®{3«|,ШСВЩВ яятвашвот."600 psETt347;72} ,ьтт№,ътш11Ж№,т-т,щ и.в
469. PRINTTA8(30)"Здесь Ь щнрка «ейй,а s PSET (296,117}, 7:80SU8200 г PR IНТТА8 {39 >e - yroa яя^ракцпи," МО PRimA8(37)BJt = 3, .ЧРВШШШГа = О, 1.43, 2,46, 615 ШТШ(37)"а - дайна световов в<ШМ.";1ЩЗ<й,ШН302,Ш),7,В
470. РН1гЯ1нВ{33?яГрй|пк распределения ивтевс1№-в;РКШТЙВ(30)ввос?и света по ваправаенмвн при-"
471. РЙШШДО) "веден на р^уние слева |1И>.11яв»0гР8ШШЗв)0я * 700 не .(красная))»аfL0CATE17sa?PRl^TaIп630 i1ЫЕ с 245г227{244,230 >}7tS FSLED^lTHENSBBOiisOsS8T0635ELSEB0SUB155160BUB180635 гIFK^^'1 "THEfiiSSElSEiTftSC^Ki)=i30TSi£M640ELSEIFASC(KS)-i36THE^^^^
472. SLEO=is60Sl)B25jL0CATE33,*liPRIMTnTaKiiH оёрагон, цгвтраяьвви ваг-0
473. K$=IH№Y$nFK$aftBTHEK490£LSEIFASC(K$.)=i30t}5£8S95£LSEIFASCtKS)=i36THEN575ELSE690
474. G0SUBI95sGQSU830sВЕЕРiLbCATE38? 1 iPRIHT"Бнкнааие, вопрос !osPRmT:L№E<290l15)-(44iJ15),4 ;;
475. РШШЗгИЕак дошню «а ૧рщвдвонп|РШТТАВ(30Гкар'Г!Ш (вабадаевой ва зкраввИ'
476. РЯШТШМ30)всневение чел» параллельно экрану?"
477. АШ)=а Снестится в сторову веяв ":А$(2)=а Е сротпвополохну» сторон? "
478. А0(3)=" Останется неподвтой 5iS0SUB725sS0TQ78Q
479. REH--------------------------------------------------
480. F0RT=lT03fLfleATP33f4^,0;PRI?iTAin);feTI:8QTfl770 750 B4=INKEY$iIFB$=""THEK750755 'IfB$aC«RJU3O)TieCS=0l!tH-aWsIFCH>3THBffiMi8ST077O 760 JFB$=CHR$ (1361 THENCS=C№ СШ-1: IFCN<1 THE«C«^3:5DT0770 765 IFB$=CHR${13)THEN RETURN
481. LGCATE33<6+CNiPRINT Ш*(27тАадлШЕЗЗ,Ш:РШ CHR$(27)°7tl;A$(CS):60T0 750775 ---------.---------------------------------—------
482. LINE(345,153H500,190) ,-ijBF
483. IF CH=3 ТЯЕИ10ШЕЗЗ,10;Рй1ЙТа 8 e p в о ! Картона аста-"!бОТОВОО 790 F0RY=7TQ9:L0CATE33»Y:PRIfiTSPCf27):8EEPsKEXTYJL0CATE40,8iPRIMTKУва, ошибка.я 795 L8CATE33,10:PRINT"Права*ьвнй «твет; картина оста-0 800 Рй1М7й6(30)*яекя кейойвшои, т.к. ss,mesne"
484. РК1ЙТТйВ{30)"йи|ракцййБнл!Е тх-шуят и вввк-в:РНШТЙВ(30)вяувов зярейеаяется .НАПРАВЛЕНИЙ," 010 PRINTTfi8(30)*no котороку идет ёомая часть" :ИНЕ(397?211М400,209) ,7 815 PRIHTTA8C30)аиевнтаваего. да$ра>:цн» света.*:60SU3180
485. S2s}KfeINKEY$sIFiCI=a!,raEN82uELSEIFftaCtKf)=130THE?l825ELSETFfiSC(^)=136THE?1640ELSEa25 ■
486. S25 Q0SUB25гООЗУВЗ1);ВЕЕР: ЮШЕЗЗ,I;РВПчТ"6 теперь подувайте!":LI«EC290,15)-{449S 15),4
487. РЙШТА8Ш)"Ках скажется ва яв|ракадввндив8РЯШШ(30)в8артавб (набвдаеной на звраве)"
488. IFQT$="THEHDC=430;80SHB2O5:8QTO950ELSEOC=VAL(OTf)jIF0C>=380A«0OC<=76OTHEK8QSUB2O5s8OTO95O 940 BEEP:L0CATE3i,4.0: PRI»shk войн от 380 до 760 нв, 3 945 I2=1500°.GQSU820,,LQCftTE31,4sPftI{lTSPC(35)i8EEP:SCT0930
489. L0C6TE31 ?45ttsPRlr4TSPCCfr) пРЙИШ31йевДанна веяв» ШЛ hbv55|DCj sPRIMTSpCtb) iRETURK 955 ЮШЕ37|5,0:Р8Ш,§шрина «ели" 10,0 нн.°
490. РФРЩ88 CBBTfl Hft ЯИНЕШЙ ЙИФРЩЙОННОЙ РЕВЕЛЕ (P10DR2&.8AS)
491. REH МтМм дягр.реяетва (PIDDR2I.BAS)10 £LEAR50:DEFINT OtOIH ,0{3I),X(i2):LQCftTEl,i,0
492. CLS;PCLSiLINE(0,0}-(511,255),7,BilI!'!E(2,2)-{50?,253),2lBF:80T035
493. F0RZ=0T0ZZ iNEXTZ sRETURNiREM Задатка speseas
494. L ШЕ (232,3H 509,253}, 1, BF;RE;. стир.прластзгРаБ
495. F0RY=1TQ15sL0CATE29,YsPRINTSPC(365 jNEXTY iRETURNsREH tT«p.ap,4aerasCLS Я-ОДМВШММОТДОа* e оймявве яя1ракщюявве ревши!"40 й$Ш=° Мракция <жга на одно» яеян. "sftl|2)«" Линейная дй$ракцшная. реата." 45 ё?Ш~' Двуяврая- дй|ракцйаааая ретива."
496. Щ4)=° 08ьеввая р$ращвяш ревет." sAH5)a*„ Ваш а основное веяв. 55 11Ж(25332)-|485}157),0,ВГ|ЦЩ12И1}'1475Д67}Д5ВР?1ШЕ(14543)-(473,ШЬ8>е51Щ
497. Bf=lHKE¥fiIFBf=° °THEHS5 "
498. IF8$=CHR*U30)THENCS=CN;£N=CRU:IFCN>5THENCN=1sG0T0105 95 IFB$=CHR* {136)THE'!CS=CN: CfKN-1 s IFCN<1THENCK=5:SOT0105 100 IF8$=CHR$U3)THEH ON CN 6010120,265,130,140,110
499. LOCATE»,5ЯШ1ЙТ CHF№(27)D6"j(СЮ:LDCATEI6,5^CS:PRINT CHRJ(27)°7";A$(CS):60T0 85
500. ON ERROR 00T022§5REb Ввил в осяоввое неяв
501. S0SUB205:LOAD"ft:HEKUHDLS,BftS0,R
502. ON ERROR 6GT0220:REI1 Загрузка диёр.света «а |6йй125 60SyB205sL0A0DAsPI0DRl?.BASn,R
503. ON ERROR G0T0220iREH Загрузка двуаерн,дй$,реае?ки135 80S0B2O5sLOftSDA:PIODR3°,3fiS",S
504. ON ERROR G0T0220sREf{ Загрузка о&>.аи$.реае?ки
505. B0SUB205:L0fiD°A:PI0DR4S,3AS%R150 END
506. REfi в/п индикаций ковца кадра
507. LINE(495,233}-(508,252i,0,8F:FQRCX=lT07:LINE(494,233)-(50S,252),C2,B
508. DR^nC=C>; |ВН5Л&,244S5H5Riti8U3LlOE5F5H з FGR2%-iT01501 NEXIZ%5 Сл гБЕЕРз
509. LINE(493,233}-(508,252},1,8F:RETURN»REM ияр.янд.хоя.Еадра
510. BRA8"C702F2R4E2H2G2D6aiR£TURtl:RES |й
511. IF 00=590 THEN CL-4:60T0200:REM д/п внб.цвета дав.волав
512. IF 00=570 Ю 0C<590 THEM CL=6;80T0200
513. IF 00=495 AND 00<570 THEN CL=2:60T0200
514. IF 00=435 AND 0C<495 THEfl CL=1 ELSE CL=5 ■ ' .200 RETURN205 REH ЙЯ|-Я о sarpfSKS
515. FCRI%=0M8iLIi€(125-I?|76-IX)-i350HiS96+17455,B^EXTri!LINE(107,77)-(3&8,1145,7,B
516. L0CftTE17,6!PRIflTr" S и *!ШШ4,7:РМНТ" идет догрузка програяяв.' . "ШИИТ220 REH я/а обработки овиёок
517. IF ERR=50 THEN Е!="0«иёка чтевия Файла,."I50T0240
518. IF Ш*53 THEN Е^Файя аа диске As яе яан*ев.я{80Т0240
519. КМШ$1Ш=В0ТШт§Е1РАШ$}=ШНЕЙ RE8UHE10ELSE255 260 END
520. PRINT" равнин расетаяшш друг о? друга. Так устроена прос-"
521. PR I ill" теёаая да§ранцвовная реатаа, впервве наготовленная11
522. PRINT" в Г/86 году астрононов Раттенгаузон в вкде патянутйн"
523. PRINT" us ранку параллельных шш проволок,"3Q5 РШТ" Начиная { й.Фраувгоёера ляФракционнве рвата"
524. PRINT" иагоашв»».' нанееевяев в?рш& на поверхность®
525. PRINT" стеЕнязной вей зеркальной нтяяичвшгё пяас?1ШЕН.в?нга1Ш55
526. КИШJIFK$=BBTHEN320ELSE!FftSC(K?)=130THE»325EL8EIFfi8G{KS)=I36THEN15ELSE320
527. CI,S;LI^E{232)-i{S0"j253) jSsBF5LIfiEf4&s&)-{435j62} J0s8F^LINEC3'23II}'-(47§?I?SF£LIflE\34tl-3)-C473sS7.}*5,B330 l8CATEli,2?PRINT!1feBs всего ярннеаявт йроарачвве, д^рамвоваве"
528. PRINT" решетка* в хоторан карательные зш яеаа? в одай"
529. PRINT3 3aocKoc?^s:UNEUO,76}-(240!176),0,BF;LINE(270,76H500,176),0,8F
530. LI8Etlll77)-(239li7Sb3»B!LHEWt,77}-(4W,175b3,8350 1ЩШ,125РШвПрову«теяШ8 (ароарачная) 0?рашевыня яй|ракцйоавая* ,
531. PRINT" дифракционная" реаеда" |ТAS{45)8ревегка51 ' .
532. PRINT;PRIMTTfiB(8)0(noEasasa ssae m вавраваевий хяфрахцвн света)";ИНЕ(67,239}-(430,239},6
533. ШМ"Ш!Ш=83ШШ1ЕР14!1Щ(Ш<-Х,1ГНШ«,?^1,7jUHE{430,8lb(430,172) ,ЗЛИШ27*Х,УН427*Х,¥+?7:NEXTY,X s .
534. LOCATES,85РШ1в0ваода!,?Р1аШй8{53Г«и6ра,,|1ШН374Ш-(431,87),2
535. YY=O;fffiX=427T0370BTEP-lsFi3R¥=90T0i6OSTEPi6;PSEl(X5Y+YY)s45NEXTYsYY=Y¥+.25;NEXTX
536. F0Fr/=98T0iQ2STEFl£;PSET{386Л') ?4;LINE-STEF4"35.3) 54?LINE-STEF44i2j
537. К$=1Ю$НРК1=вП1е405йШРШК$)-13еТ1Шт8Ете(К$НЗШВебШЖ405
538. CLS;tINE{2,2)-(509,253)I5,8F;UNE(80,53)-(430,94),0,8F!LINE(74,59)-(424J100),l>8F
539. LU3E{75,6O)-(423,i01),7,MOCftTE13!5;PJWNTeHepeSseH к рашатревве ди^акцнн света0
540. Ш РШТАВДОГна ян^раадшшяой риетае."Я0СЛЩ#43$РЙШТ'Всяв вуава ин$оркация ой ммпмеш"
541. РйШТШ(10)вдй|ракадввйи5 решав ваш»'шоду S •."sffiA8*e78H4M,210E2R10F2DlI82Li0H2U«l,j80Sl)il55430 fr^INKEY$!lFK?-n4THEN43&teEIFASC(K$5=l30TKI44OEtSEIFfiSGlKS}=136THEN325
542. IFASGfMs}=73BRASC(K$)slO5eRASC|KI)=2338Rfr3C(K$)=201THENBOT01285ELSE43O
543. CLSiLiHEC2j2)-CS09j253>, iJ6FsLI^Et7,7}-C230si47} }058FiLIfiE<§?3)-{22^?? 146) s7a8sSQSUB445s(I0T0455
544. DRA«°C7BH9,50R3584L31U4a:F0RX=64T0180STEP43sPSET(X,§0),7;DRAK"C7R23G4L15H4asNEXTX4S0 0КАГС7ВЙ193}50й35В4131Н4и5Р0Г\=30ТО2№ТЕР45;РА1йТ(Х?52Ь6,7|ЙЕПХ;ЖШ^455 10ШЁЗЗ}2$ РШТвйао$каяГ воява надает ва дв|рак'-'!РН1ШАВ(30)"чшаув решетку с вирдом was V
545. РИНТТАВ(30)'в постоянной реаетки d (d=a+U),!!iL0CATE31?2,l465 22=2OutH6DSyB2CfiC=25FORY-ilT043il,IHE{IC>3Y)-C227>¥) ,SsC=C^isIFC=6THEMC=2s!IESTiELSENEKTY
546. LINE(149S34)-(I?4,49) «O^SFlDRAU'TyBHiSO?40Р1!53й231111ВН2б011иiORAHcC7BH153,4402F2H2R4iH2F2S3t:
547. DRAi'J"C7Bi!170,44F283BN175j45BlF3u:L0CATE21;.3,0.,PRINT"a fe°
548. A=4,25!B=5.25£X4iFORRX=2TQ76STEP2sFgRXZ^8TG210STFp43;C.lRCLEfX7=350),R7I?CS5A?8 ;
549. CIRCLE( 50} jf??, Bl МЕЙТК%гС%=Г.%т1 slFC%=6THENG'i=I iflESTR!4ELSEKESTa%
550. F0RI=UT07:G<I)=I:NEXTl;F0RI=aT015sQ{I)=15sNEXTI:GGSU8I55s ZZ-100535 6l2)s2{LUTfi(0)t8H)=0!LUT8{0)!fi{3)s!3!UJT8(0):fi{5)=&:LUT8{0)
551. Q{4)=4!LUTQ(0)s8(2)=0:LLfTG{0):fU5)=5;UJTQ(0}!(H3)=0!LUTG(0) IG0SUB20
552. К1=!НК£¥$:М$з8МТКШЗ^$Е1Р1ШС(^)::ШТШ550^8Е1РА8С(К$)-136ШН15Е1^^5
553. FGRI=8T315:B(I)=15sNEXTl!FGRl4iTG7:QU)=I:feTIsLlITQ(0)555 €081)В^!1ЮЙТЕ32,2«01РВШвУя1»«йй картину вийваде8с?виявгШТЕ35,3!рйш"ш>овв8 mm с реавтквй," 560 PAIKT(i0,10),2,7:PAIHT(10,10),0,7j
554. BRfi»"E7SB15&,4«tt0BB23U118B2eBIiB{ll53,44S2F2H2R4iH2F2B5n !&RMJBC7Btii70,44F2B3BM7M56iF3" : .
555. FO^OTO26STEP42jFORNs4?TO^ra>7jPSET{S<,M43|73)J4iLllffi^IEP|0,3),4tLIME-S^(lVO}j4?U№-SirEP(2,-2)«4? HHTM,S615 1шш,м*рш*№«88ив аввер, чтевн costsst-" ;PR!MTTAB{30}aетвуввд^ лучи «иив«ь в едву пч~"
556. PRISTTA8(30)°Ky в йр&нн|гр^рароваяп яруг c3:PRIHTTA8(30)"apyroB,°;L0CATE31,6,l;ZZ=2500;80S(JB20
557. С1Ш.Е(Ш,Ш)|т,7м712.45|558таЕЦ18|74}|170,7»3,.84»5.57,5?РЙ1ШШ,97),3,7
558. F0RY=90TQi02:FQRS=0T0i26STEP42;F0RN=49T063STEP7:PSET(SfH^25-Y/2,Y),4iffiXTt!fS,Y
559. DATA 2-5, ЗО}37,65, 721?9}ffl,114}Щ,149,156,163
560. Ш FflRIMTfli2iREfiD XCIX)sfe(mjFffi¥l=103«S30sFflRIMiai2
561. X=<Y2-i02>t(50-Х(IX) >/I29+X(I2>tPSET{K,Yjc)
562. LQCA<E33,10,0:PR»JT°8 фокаяьку» плоскость яинзн no-°:PRIKTTAB(30)stiecTHtt зкраи, на которой буден"
563. PRIPJTAB(30)°ваёй»дать ".результат- тгр&ерея-";РРШТАВ(30)"цви ляя воян5 распроетраняаакяся0
564. PRIMTTA8(30)trOT $еяа wk врвйзвошннв углав»с1.'PRiNTTA3(32) °к первоначальнопу направлению."т LDCftTESl, 10.isPSET1240,7в6ИШШ75:ZZ»3000seDSHBZOBLIUEClO,232h(227I233)}7,gF?S0SUBi55
565. К$=1Ш«гШ»в!ШШ0аШРй®1К|)=ШТШ75Ё1ШЙШ«}4зШЕЙ440Е1,ЖЬ7Ф "
566. G0SU325:L0CATE33,210iРШРКзйлёя as sseaeii, взятая no одк-":PRMTAB{30)"вочке, даст на зкрав® картяву,"
567. PRMTA8( 30}"описнваену» белой криво! (p!!cy-asPRIHTTA8(30)cKOs слева вкне?>■0sL0CATE21,3sPRIRT0а Ь?68SUKE(i29iU7J-(mim)'^,BFsCL=7{ME-%!8=i?B=2IBsfiL=5.5E-07
568. BEEP :ШЙТШ,2,0sPR!ЙТбарита от gees вдлеД пркйутс8в:РКШТАВ(30)°на адао И то §е иесто зкрава0! LflCATE21j3:PRIBTfta bs ;
569. Ш^ПО}О!1ШйТЕ31Д4:РАШ8РСШ):№Ш5РС(й);И8Ш:Б0Ш.В20:10СЙТЕ31}14:№вР.(врй морим жрищпгра|ккап
570. РШШ301"интенсивность УШЬВШ в 16 sas>sгZZ-300г80SUB20iНЕХТРз
571. SftIFKi=D eTHEH765ELSEIFftSC(K«5=i30THEM770ELSEtFASC(Ktl=13STHEH440ELSE7b5
572. S0Sffi25;l0CATE34,ls0=PRIMT"C-3OTBOBeEKH тжщ углоа .^РйШЛВДОГдавной воввн й, аирквон дом Ь,п
573. PRINTTA8(30)°4HCSOH аеяёй N я постоянной pe-o?PRI«TTA8{30}oaeTKB it'7Ш>Ш(460,5)у7!ВШШ:ЙМЁ(349,»1-(350125)^,В
574. PRIHTTA8(32>iPRISFb 8Ь1 = * 2ke,. .
575. РШТТАВШ) sPRINF- уешве гш BISMIIOB."
576. Р81йТТЩ32)вй Sin = * «я , yarns»* t*mm ШШШ.'805 ^1247,103),7лШе29¥Л01Ь7|80Ш75:01^1. Ш)А»810 ?8ШТШ{30}^ Sin = .98Р11тШ(49)"крвйе
577. PSET{251jI35) ^зРЗЕТ{2831Ш}>7|Вб8ВВ1751ВЙАЙ*С78Н3135139Й6в!1и1Е(373гШИ{374,135),7|В{11ИЕ{2355128)-'494,143),4,8 ; ;
578. PRIfffTAB(32)B- давмввет-яыше ввввйувв."
579. S25 PRINTTAB? 30)"Н&жйу довоянитеяьвннн нининунави0 sPRINTTftB(30)"располагается еяабне вторйчвве" 830 №Ш7А8(30) "шенауяв U-аий шыш9 ае ёо-йгРШТТАВ{30)пш? К от блнза&т главного)^ 835 LQCATE21,3sPRM"a bn :L0CftTEi7,8iPRINTftIasSQSUBiSS
580. K$=If4KE\?f t IFKf=п "THEMBflOELSEIFASGifCf >=130THEMB45ELSElFftSCСKt)=13iTHEa440ELSE340845 80511825}ШТЕЗЗ,2}0:РРН.Г!!2оёавочяйе ттпцш шел8Пт-в}РШТШ(30)ося в результате asrepjepesa:!»3
581. PRMfftB(30)"mra, яроаедаго wpi ^эдч- в:РВШТВД30)ване адан. Вне» это-сказвватя"
582. РйШТШШ'в tee, что широк® поямн, яава-'ШШтЪЩ+ттг одвв§ чеяьв, шртяпск*ш ШЙЩИЩ'рвдаи вош- ?овкйй яоаое, «и^'гРШТАВОД'опг ин?«р§еревцией зучев, ««ю-"
583. FRINTTABf30)вдяаик от рааявчвни яевей; первой0:РЙ1йТТАВ(30)аи второй, первой и третьей в т.дЛ
584. L0CftTE2ij3sPR№"a b,!iL0CftTEl7s8sPRititfil,isl8CATE31s2!hn=4000s68Sl!B2fii60SUB155875 .К$=1йк£У111РК?=я®ТЯЕШ5йЗЕГРйЗС(К$}«13ШЕЯ88вЕ18Е1Рй8С{К1)=136ТНЕй77ОЕ10Е975
585. ШШ5$иШЕ3412*Ф}ЯШяе «рум8 сторона тжю»тв!РНШШ(Зад*ана в главвня вавснвував растет"885 дайШВШ'вровердвовадш явадрату • 4B?aa,,!LlME{37i}62|-{444J«},4
586. МО P8mtSB(30)"ftmS« С. ради чвсяа вдяей ре-*!РШМ(3»}я8еш bos энергия, врокодега*
587. ШШ^'Ш^ере» pesetxf «Beta mpesota4«-B5PRIHTffl8{30),,Baet«i в направлении главная»
588. PRItlTTA3{30}<1B6K€BByBQB|-so sees же о«ааышвв{рашш30}вваираиквй8в, вяашарй яоввя«-°
589. Р81ШАВ(30)"ний тът шюпвйшьвнх виввву-11:РйШТАВ(30)*аов, с&е? № проходит вовсе.8910 ®ffl»i bnJiO.CATE17l8iPRIfiT"I,,!LBCfiTE31}2?l!Z?!S30OO58BS!JB2O:8OBU8i55
590. К«"ШЕУ«UFK$="T«BSifeL3EIFjBC(Kf)sl3OTH0H2OELSEiFftSCt««=lMTHB!845ELSE9l5920 8BS®25sLQCATE34 ,2,0sPRIHTa йре=£б§дйт8 как вмшт* т'гШШЩЩ'кЛщвтхЛ карта врв взвеяв-'
591. PRIKTTA8(30)"bkn ттт napaaeTpoBSn{PRINT:PRi;iTTA8(32)5a;ipHHa щт Ь,°:Р8ШТА8{32) "число аеаей V
592. PRH!TTAB(32) "постоянная .решеда d,ntPRIMTTAB(32}"удапеаие экрана от реееткв L,"
593. PRI«TTAB{32)"длина светом вмяя л.";11Щ4371146)-{4388150)!7,В940 11шш}12»штш34)ьяершаэд»ше вараяе*рЯ!"МтвШ}"Ь = 5 ак, й " 4, Г= 0.01 вв,"
594. PRINTTAB(36)"L = 1 а, а * 550 нк.о{11КЕ(373,210)-{374.,214),7зе;11«Е{240,176)-(499,224),2,8!11№(238,174)501,226),2,В >
595. ЙЕН аьунерая решетка (PI0DR3S.BAS) 10 CLEARSOtOIif fi$(6):L0CATEl,l,0
596. IF8$=CHR$(130)THENCS=C»:CfKtHl:iFCN>5THEKCH=liG0T0105 95 IFB$=CHR$(136)THEHCS=CN5C^CH-isIFCN'<mEKC!i=5sG0T0iO5 100 IFW=CHR$(13)THEM Ш €H 6010140,120,280,130,110
597. GQSUB220:L0AQBft:PI0DRi#.efiS°,R .150 END
598. REH m надикацив конца кедра
599. LINE{495,233)-(508,252),0,BFjF0RC7.=lTQ7sLIKE(494,233)-(508,2521 ,СХ,Б
600. DRA»'ie=CX;BH506,244G5H5Ri0BLi3Li0E5F5fijF0RZ7.=iT0150jf{EXTZX,CX58EEP:RFjyR!l
601. LINE{493,233 H 508,252),1,BF'.RETURN;REH стяр.яял.ш.кадра
602. DRAN0C7ElRlFlD461LlHlU5';:RETURii:REH О180 0RAH,£7G1E2D7\'RETURN.'RE3 1
603. DRA(i!,C7ElRlF1018301R4":RETUR;}{REfi 2
604. OR AH" C7E1R IF 101G1F10 LS1L1H20 s RETURH; REH 3
605. SRAH"C7E2B .'RETURN sREH запятая
606. ORAH"C702F2R4E2H25206"iRETURN:REH $и
607. MfiS'C7DlS2Dl625>i6lLiHl02ElR2F4RiE2o:RETURR;R£t1 aai*a
608. DRAH"E7FiRlE2U3EiU3E2RlFlD182L 1R3F1D162L2H2" s RETURii: REt! ёетта
609. DRA«0C7EiF2D461D281D16iLlU2ElillE7RlFl*sRETURNsREH гаява220 REH цн|-я о загрузке
610. FORIS=OT018!LlHE(125-I2,96-n)-(350+12f96riX)}5sB:NEXTI2sLINE{107,77)-(368,il4),7,B
611. LOCATE17,6SPRINT" 5 и в у ? с. ч к у, a5LOffiTE14 57гРШТа идет догрузка прегради,,.235 REH в/и оёраёокн ошяёок
612. IF ERR=50 THEM Е1=вСвябг:а чтения JaSsa«,.":80T0255
613. IF ERR=53 THEN Е$=аФаия на дае As ве вандее.,,°:80Т0255
614. IF Ж-57 THEN Е*=с0вибка ввзда/бшяа диска As«.°*,60Т0255 ELSE Е?-°Яеопределеннай ошк&а.4
615. LINE(65,73)-(4l01ll4},4,8FsLI?iE(66,74)-(409,ll3},0,B.'L0CATEl9,6:PRINT EifL0CATE9,7>0jPRINTSPCi4O)
616. F0RIX=lT025s8EEPsNEXTI7.sL0CATE9,7sPRINT'i устранят* причиву овябкя в нажните0265 9RAIBOeH33(i,96IviOL9&3H5E5D3R5a6R4BH384,94D17L21!li7R21a
617. К$=INKEУ$:IFK$="сTHEH270ELSEIFASC(KJ)=1ЗТНEH RESUHE10ELSE270275 END
618. CLS:LINE(0,0)-(51l,255),5fB:LINE(2,2)-{509,2S3},l,BF
619. LQC АТЕ25 s 2 s PR ШТ0 До m пор на рассватрнвалн flB§paEpB°sPRINTTA6(2I)nc!seTa в случае параляеяьннх зеяей f завей-02?0 PRIU7TftB<21)°нав дк£ракцконяая решетка), Гораздо в»кре°:PRIMTT6B(21)0г.аспрострааен случая, а картава евачв тэль-"
620. PR IНТТ АВ {21)а во усяозшзтя, Шв одвой свете-0 }РВШТАВ(21)"ни п&яеи вгять две «жрешдане
621. PRINTTA8(21)"векаяие в одэон влошетн. 8 частности, °!РШГТЙВШ)°ря двр атйтя ршт} со вёйй вно"
622. PRI!iTTAB(7)"Pik\l яерпеядякулярввйя вдяязв {рвс.1).°
623. Р8ШТТйВ{21)а В os'iea щш яш (шя е?м>рш)• не-0sPRHfTTfiBKl}"r?t paawaarama на аяеекот севера1. НЗО"
624. PRINTTAB(2i)enpOHSBoaiBo. Пркверов тжт сяуквть ваас-°:РВШТАВ(21)0тивка беспорядочно запшшшг-о стекла йпн5
625. РВШТАВШГокво, покрытое ysspasti аорш (pi!C.2)su'.L0CATE8,15iPRl«T,,PfK:a2"sB0SUB325!60m50 325 ИНЕ(|4,6)-(146,Ш),0,8Р:ШЕ(15,7)-(145,143),7,8
626. SRAMBS3SH&5Д40ШОССЗОЭ100838L3mOORg-L?.E3SR5L51' г ВЯЙЙа СЗВЙ48 s i37ilWEi0S&Ct3fe&L5U6eR5L5E6SR5U^ 335 УХ=§58РШ2«ЙТаШЕР5!игеШЛХИП,У2*751340 верт.атрнх
627. F0RYX=65TQ110STEP58ШЕ(68<YX)~(92,YX-24} ,3:HEKTY7,;RETl!Rfi 350 LISE(14,i63)-(146,224),0,BFsLINE(15«164)-{145,223),7,B
628. FQRIZ=1T01300:XX=HIT{ 127$RN0(Ш+17)JYX=INT(56$RND( Ш+166) sPSET(XS,Y7.),3i{!EKT17.s60SU8155"
629. K$=If^EY$sIFK$=a4HEf»^tSElFASC4KI)=13&THE^5EiSEIFASC(Kf)=13aTHElU5EiSE360 365 LINE(i3,162)-(147,225),i,BF!G3SUBl70:CLS
630. L0CA7E25,2:PRlHTnPaccBdrpi!a ррерув решеткуf в?гдстав-,1;РНШТАВ(21)ий8вду» собой скрепевзые первенцу ррнне"
631. PRINTTfiB(21 >"гааи, аолнея дать совокупность йакс1!нуяов,;:Р8П{ТТАВ(21)п(вуяевой и более вксож ворядков) вдааьЕ
632. РЙШТАВШ)"Г0РИ308ШЬ305 лйвйв,":PRINT;PR1KTTAB(23)яСветовой врчек, соответствуй^» шлвву" 425 PRIf4TTAB(21)*HaKCH3y8y, проходя черев втерр реветку,'sPRINTTAB(21)"распадается ва аовув совекувяееть с вето-0 .
633. PRIHTfA8(21)DBBX пучков» давдге мквцвя вдоль ВЕРТБ-Ь:PRinTTftBC21}сКАЛЬВ0й аивва.":ZZ=1900>60St!320i6DSU8155
634. F0RYZ=40T8200STEP2;FQRX7.=20T0180STEP20:PSET(X?.,VK) ,3«НЕШ1,У1
635. CIRCLE(100,i20),6,4!PAI}ff(100,120),4;CIRCLE(120,120),4,4,,,l.D!pAIHT(120,120),4
636. FCR-a=il6TOll8sLINE(XXa03)-(XX+6,97),4!NEXTX7.sCIRCLE(100,100)J4,4,,).7iPAm(100.100),4505 jl«55РА1й1Ш0(120)j4
637. FQRXX=76T078:LIHE<X7-, 143)137S,4iMEXTX%:CIRCL£( 100,.7iPftIHT( 100,140),4
638. FflRK=116T011BiLIHEm,m)-(*X+6(143),ЫШП
639. LINE(136,133)-(142,i42),4jLI{E(137,13S)-(143,142),43CIRaE(140,120),3,4,,,i.8:PfiM(l40?120),4
640. LIKE(136,102)H142,?B),4sU{IE(137,102)^143,?8),4гШЕ(Ш,83)-(142,77),4iLIHE(137,83)-(143,77),4530 1Жа17,83)-(121,77),4$11ЙЕ(Ш,83)-(122,77),4£С1ЙС1Е(:00,80),3,4,,,.6гРМ«Г(100,80),4535 1Ж(77Д7)-81,83)54!11Щ7В^77)Ч82,83)54:1Ш58Л7)4ЙДЗ)!4?1ШС57,77Н63583),4
641. LIHE(58,98)^64,102)54ГаЩ57,98)-{63,102)54гШС1Е(60,120),3,4,,,1.85РШТ(60,120),4 •
642. LINE(57,142)"{63,138),45LItlE{58,142)-(64,138),4;LIME(57,i63)-(63,i57),4iLH!E(53,163)-(64,157),4
643. LINENS,163)^82,157),4;LINE(79,163)-(83,157),4:CIRCLE(100,160),3,4,,,.6;PftINT(100,160),4
644. LINE{li7,i57)-(i2iJife3)H;LIfiEai8a57>-{122s163)J4!LIHE(136J157)-tl42t163),4sLir^fl37,157)-(143s163),4
645. LI«E(158,178)-(163,183),4:lIRE(i58,159)-(163,16i),4sLIffiU57,139)-(163,l4i),4
646. CIRCLEU60)120),2(4t,,2.2;PAI}{T(160,120)34:LniE(i57,101)-(163,99),4;Ln5E(158,81)-U63,79),4
647. FORXX=102T0162STEP20jPSET{XX,65),7:803UB190:?SET{nt5,71),7:60SUB195
648. PS£T(X%,85),7:8QSUB185sP3ET(XX+5,9i),7;6QSU8195:PSET(X%+2,105),7iGQSUB180sPSET(XX+5,lil),7s6GSU8195 610 PSET(ri,i25),7:60SUB175;PSET(№5,131),7s60SUB1955fiEXn?;
649. F0RYX=65T0131STEP20:PSET{li0,Y?;),7;80S0B175!P3ET{i30,V7.),7:GQSyBl80:PSET(150,YX),7:SQSUB185
650. PSET.i 170,YZ) »7s 60SUB190:NEXTYX .
651. FORX%=42TO823TEP20iPSETs;t7;GBSHSi75;FSEI(X'4T43131 >57г@0BLШ9S;LI^;EГ^S+£^f527^-ь>■%^SJlS"7}?7^^^E>;¥S
652. PSET(51,125),7sG0SUB190JPSET(71,125),7:60S08185!PSET(93,125),7:GGSUB180:60SUBi55
653. K$=Ili^Y$dFK$="THEN635ELSEIFASC(P)=l30?«Sri640ELSEIFASCiK?)-136THEN400ELSE635
654. ШЗШ 70 гCLS s L8C&TE28,2 /PRINIп Гаавнне вакеинувн возноквв тадыов
655. PRiNTTA8(25)llB направлений, удовмтрйввдж ycao-"sPRI?!TTAB(25)DB!isBD
656. PRIMTTA8{33)sd Cos « a a,"«PRINTTA8{33)ud Sol = a a,B5PRINTTA8i33)"Cos * Cos * Cos =
657. PSET(274,73),7!80SUSi80s:PSET{346,73),7s60BUB180:LINE(357»66)-(358,70),7,В
658. PSET(273,89),7:80SUB185?;F'SET(345,39),7;6GSU8185;LINE(357,82)-(358,85),7,B
659. F0RX2=239TB4S0STEP64!PSET(XX,99),7s0RAK'C7ElRlFlD163S4°jHEXm
660. PSET{313,67),7!60SUB205г PSET(303,94> s 7 г80SU8210г PSET(303,100),7 s6QSU8205:PSET(357,110),7;8GSU8210
661. PSET(4255101)J7!80SL^2l5!MN°£7Bri25Bs65L2G43i584F4Bi5F4R3o5pRINT;PSIHT
662. PRl«TTftB(24)°rae з ,a цеаве числа (0,U,+2,.)J!,:PSET(242,154),7-.6GSyei80jPSET(265,l54),7s6G8UBi85 685 0RAM"C78S417,155R6BR18R6'J
663. PRINTTAB129)° , , yra»,. Ява шорш ваёй»-3sPRIIITISBf37)"лав^-й кюввве вакейнува,"
664. PSET(233,164),7§GQSUB205:PSET(246,174),7!SQSl{B210sPSET(264,165),7:G0SU8215
665. РЕШ)ТТА8(30)°я длвва световой sosBH.r,sLI«E(245,i93)-(2461199),7,B:Z2=1500:60SUB20:G0SUB155
666. K$=INKEYIiIFK'l="THEfi7()5ELSEIFA80{P)=130THEH710ElSEIFASe{k'l)=136THEN440ELSE705 710 LIHECi95>fiO)-(50Ss252)Ji9BFsSLB;LH^i4s341-iiM5206)s05BF;LIf3E|iS535S^Ci85,205)57s& 715 LOCATE29,3:PRINT°Ecii;i предположить, ч?о двукеряая0
667. K$=IHKEYf!lFK$=uoTHEN745ELSElFASC(KI)=130THEH755ELSElFA8C(KI)=136THEK640ELSE745 750 LINE(13,22)-(146,224),i?BFsLIKE(14,34)-{186,206),0,BF;UNE(15,35)-(i85!205),7,B* 755 Ш01ЭД(ШШ1ЗД,3|РШГ,ёт штрнхв ревет не вшиво"
668. PRINTTAB(25)"периодов d в d н вашной ориевтацння:РЙ1НТТАВ!25),ре»етой.й 785 PSET (282,169), 7: GQSUB180: PSET (312,169), 7 ;6GSUB185 5GGSIIB485 :G0SUB155
669. K$=Ifl®rSdFKS=nnlHEH79(€LSEIFASC(K$)=13!MEN80CtELSEIFASe{K?)=136THEN710ELSE7901. ШйРегаШ^ ' 4A• '^дометят
670. LINE(0,0)-(511,255),1,8:LINE(2,2H509,253),2,BF BOO LINEl2,2)-{508,253),l,BFiCLS
671. LOCATE25,2;PRINT"Ecmi пвверхноинан структура не верэ~аЖШАЩ21)эй,тша, те картина получается бзяеесааз-0 . .
672. PRIHTTAB(21)nhoii. В частности, есян структура состоят0:PRIHTTAB(21)"ks чашц Йаивквх во рз&керан й ^вр «," ■
673. РИтЮ(21)'во bcsbosbbsho ориентирован»®: (затаен-0 :PRIHTTAB(21) "аая изастийка, порогвае jsopis ва стзн
674. PRINTTAB{21)0to такая структура эквивалентна совохуп-п!РНШТТАВШ)"нос?к врастав реаеток всег вазвв
675. РШТТАВШ) "орвевтаровок, Мракадоввая вартвва ?PRIKTT6B(2i}алвдят как рад кавпев^рачеекяя кругев.-" .
676. Р!ШГПАВ{21}в9м-авши* тип мбтващ раша*риваяп|ШШЭД21)вве8мшя яркий аетотввв свка сез'55'b"
677. PRIHTTAB(5)вДВУ5БРЕ7Й реаетку, то пояучии вашвунв для ВСЕХ алии3 880 PRINTTAB(5)nBosH, располагавцаеея в определенной порядке в мэс-в 885 PRINTT88(5)"кости, парэлйсаьвой плоскости решетки (цветвне пятна)."
678. PR!!iTT£ffi(5}sI!a ШШйЩ в& решетке ар тен ве усжшаяв Езнушзтся" 895 ?Р1ЙТТАВ(5)"ййксинупа для КАЖДОЙ дяинн швн, которие расвояага-' 900 РШШ8(5)',к1тся вдоеь гпшай5 аераендикусярнон к щтринан реотв" 905 pRI!Rjffi{5}0f спектр).0;Z2=1S00sB9SUB20sSDSUB155
679. Kf=I«KEY$:IFK$=',oTHE{WML8EIFASC(K$)=130THEN15ELSEIFASC(K«)=136THEH795ELSE910- ' ' 3. ДИФРАКЦИЙ СВЕТА НА ТРВХ8ВРН0Й ДИФР&КЦП0ЯВ03 РЕШКЕ (PI0DR48.8A5)
680. RE!? Треннервав peaetsa ' 10 CLEARSO.'OIH AI(6}:L0CATEi,i,0
681. CLS:PCL5:Ll{E(0,0)-(51i,255),l,B;Uf!E(2,2)-(509,253}l2,BFsBOTO35 20 f0RI=0TQIl5HEXTl!RETURKiREH Задержка вренен» ' 25 UNE{203,3)-{509,253),i,BF:REii cr»p.np.4acKiiPCLS
682. Ъ0САТе8Д5,0:РЙ1{4ГпЗнёнрайте хвавманв , я накните
683. DRA«"C7Bf!225,230R5B5H5R5Bii2335228D10L16U10Rl60;PAn!T(225,232),7 70 9RAN"C78H261,236L5E5F5L5BH269s228Di0L16U10R16!IiPAIHT{261,234) ,7 * • 75 0RAHBC7BH3871225B10L9D3H5E5B3R5U6R4Bn391»223D17L21U17R21c ■ '
684. Ш FORI=lT05tLGCATE16,5^1,0:PRIMTA$(I 85 B$=IKKEYfiIF8f=00THENS5
685. Щ IF8$=CHR$(130)THENSS=CN;C^C«<-b-IFCN>5THEHC^iJ60T0105 95 !FB$=CHR$(136)THENCS=rasC№-isIFCfK17HE!№5!60T0105 i 100 IF8$=CHR${13)THEN № ffi SOTO 110,120,130.285,140
686. ON ERROR G0TQ240:REi1 Ввход в основное аевв1.145S0SU8225sL8A0:iAsfiEKUK0Lf,8AS%R1.O END :i 155 RES в/п ивдикащш конца кадра
687. LINE(495,233)-{508,252),0,BFsFORCX=iT07sLINE(494s233)-(508,252),C?,B Т 165 DRAH"C=CSiEri50&!s24485H5Ri0Bl!3LI0E5F5!I sFGRZS=iT0i50; 9 sRETURN
688. IF Е88=57 ТНЕЙ В-Озшбка ввода/ввв&аа двт Аг.,:SBTQ2f»0 ELSE Е$='Неопредеяенная овибка.0
689. LIfiE(65,73}-(4l0,il4),4,8F;LIi{c(66,74)-(409,113),0,8!LBCATE19,6;PRIHT E*sL0CATE9,7,0sPRIIITSPC(40)
690. F0RIMT025гBEEP;NEXTlX;LOCATE?f 7 sPRM" устраните причин? овтбкн и наште"
691. BRAV5BC7BH3e0J96Bi0L9D3H5E5B3R5U6R4BH3a4,94Bi7L21U17R21a
692. K$=IfJKEV$:IFKI=*пTHEH275ELSEIFASC(K$)=13THEIi RESUMEI0ELSE275280 END
693. CLS:LINE(0,0H51i,255),5fB.'LIHE(2,2H509,253),2,8F
694. LI«E(27,37}-(500,188),058F:LI«EU6,44)-H9i(197)si,BF;lM(i7s45)-(490,19b),5,8
695. LOCATE?, 4 !РЙШеМракцня ®й ваяе? яртодвп as тояш на адяяя0
696. PRINTTA8(4}"mh отверепш в злоскик преградах, но й на естественен?."
697. РЙ1НТТАЗ(4)пия(з искустеняях ргаеткак тре« язиереани.0 .
698. РЙШТАВдеРМ'ракциа на таш аространственввх веодпородностях0
699. PR ШТАВ (4)0аревставляет ванёоаьшнй интерес й практическое зваченяе."
700. PRINTTAB{4)"Такого рода яззшш вабя&давтся в йаящоа васзтйёе ив"
701. FRINTTAB? 4} "природе, напрннер дикция света на веякяя чашцах,"
702. PRINTTAB!4)0BSBeBeBB8>; в воадущ внзнвает появлевие spyros я коад"
703. РйШТТАВНРвокруг Солнца в Йуяв {так назшеное рало и венцы).пsZZ=i500s80SUS20:GOSU8155 .
704. К$=Ш?$Нт=вПНЕШаШР1ШС{К$ИШШ34ШЕ1РЖ(К«)в1ШШЦ5Е15Е340
705. Ь1ЙЕ{252)~л50??253>s298FiCLSsLINE(2?s-37)-?495?iS8} ,0sSF3LISEC l^j44J-i48ajii97J Jlst8FsLIHE< 17,
706. LQCATE9,4!РРШ°Расснотревке дв|равдна света aa иростравствонвкх"
707. PRINTTAB(4J"HeogH<}pofiEOCTH2 вроизшшй $орвн представляет собой0
708. PRlH'TTAB{4)°04eBb «гояяув задачу. Огравичизся поэтову простейш8вп
709. PRINTTAS(4}" щ чаенs дада неоднородное?!} иней? врШыщи:верйор-в
710. PRINTTAB(4)°4ecK!i« характер, т. представляет собой то, что та
711. PRIHTTAB(4)"нашаен pesefEO». двдоййнвв структураян является fice"
712. NKEV? г IFKf=аГ0THEN400ELSE IFfiSC |К$ J=130THEN405ELBEIFSSCfKf)
713. LINE{252)-f509s253> ,2.,BFiCLSsL№E{27s35}-C495s 144) 505BF5OllEC16,4Z)-C40Sei5-^ s5j,8
714. PRESET(lOfe,2?);60808180; PRESET С106,69}s аОЗУВ£85?PRESET(186 510? > 5 S0SUBI905 \iS&,149)5G08USI95 485 LIKEi 30?3SJ 50jBFШШГС7ВЩ135?Е2Р2К2В51Е2В2НЗИ iLSC^TE3,sFRE3ET«25,73^ШЕШШ
715. IFYX-37THENSQSUB520;ELSEIFYX>=37THENPSET(104<-X1 ,Y%)
716. IFV:M7THENB8S№520ElSEIFV7;>=77THEKP3ETfM!4tK2,ns)s4sX2=X2*.45 505 IF¥S=117THENS0SOB52OELaEIFY?;>=117THENPSETflO4^X3>Y?b4sn=X3f.45 510 IFVX=157THEKG0SUB520ELSEIFYX>=157THENPSET(104+)!4,YZ),4:X4=X4+.45 515 NEXTY2:60T0525
717. FGRl=lT015iCIRCLEf 105,YS+3) ld3fY%-s-3) ,0,4sCIRCLE(i05,Y"i+3) ^SsPAIflTdOSjYS-i-Si,0»5il*EKTI iSETURii
718. BSAH"C48»lQ05i9F4R2E5nsOR3HnC48HiCw}s22€5F4R2E5n!FSRX%s129TQ200STEP18!p^ f4jLi!IE-S1. TEP(l,-4),4sfem
719. FRES£TUi3y 155 ;6BSUS175iPRESET (107,232} j SDSUBi755PRESET{ 232) ;00SUBi95sPRESETf 153,232) гB8SUB170535 fRESeTU71,232)sG0SUBi85sPRESET|189,232)sGaSII6l80sSGS0ei55
720. Kf=I}lEyst5FP-BDTKEN54Ci£LSElFfi8SiK$l=130THEN545ELSEIFASC{l(l}=136TfiE?!405ELSE540
721. GGSI!825!L0CA!E3O,2;PRIhT'1Bc;m шднй сяай реаеткк достаточ-"sPRINTTAB(26)'ao арозрачеа, то часть света яе пята-' ,
722. РИМТШ(26}"вав? ди§ракциа на вервая слое, а"1РИШ®С2Ь)»чаеть лрзяяяает до шдаадт «яоя яя
723. В55 PRINTTA8I26)'частично ведаввает дя§равдй вз"£№ШТШ(26)вз?в8 зтороа «мое, веток проникнет"
724. РШШ8(26)"дальсе н г.яЛ'ШИТТАВДОГТмм образов по направлена» диИ
725. PRMTAB(26)0 рагироваввего света ( , , ) будетD s PRESET f 382,146}: 60SU8210: PRESET (3?i, i56) i80SU8215! PRESET (411,147)iGQSUB220
726. PRmTTflB(26)Bpacnpoc?paH8TbC8 ведаяыя когэревт-Е i PR ШТА8 (26) "ввх вмз s невесткой рашк-ткй so да." 575 ШЙШВШРЙвя омнчатеяышго результата bbo6-°!PRINTTAB{26) "ходи» учет «х иятерферевций/ 580 L0CATE355iPRINTBdasZZ=2000iB0SUS2D:0D3U8155 .
727. К1-1Ю$$1Ш^вТЙЕМ^ВЛЕ1Р<ШС(К$}*ШТИЕНЗтШРАЩК1)=136ТНШ«5а.8Е585590 ■ 603и&25г10ШР3032?Рй1Мг'Йакеидузн й=ета тучтш мш«*595 ?RIM7AB(26)"b вавравяевйян, удовлет-Борявдзк черв-":PRIHTTA8(26}врен усяовиянг"
728. PRIHTTAB(32}!"d Cos = в У'.1ШТЕЗ,8|Р1!1НТ"йв:Р8Е8ЕТ(264»73}5БЙВ1»18&!Р№§ЕТ(305,-67){ШШ«
729. PRESET(338,73):GQ5U6180;LINE(349,66M350,73),7,8
730. PRIMTTAB(32)Bd Cos = a jitt^PRESET(2ё55)sSOSUBiSSsPRESET13 94)
731. PRESET(337,(89)s88S0B185;LINE(349J2)-(350589)?7?B
732. PRI«TTA8{32)"d Cos = fl acsPRESET{265»i06}:BQSUBi90sPRESET(298,
733. PRESET(337,105 b6GSlffit90;UHE(349,98H350,105h7,B
734. PRimAB(32)"Co5 *Cds * Cos = i,e:F0RXX=281T0470STEP&4:PRESET(X%, ii4} iSQSUBi85:NEXTX% 635 PRESET(294415)sG0SUB2i0;PRESET(348)126)i60SUB215»PRESET{4i6Jli7):60S(iB220
735. ORASTOB^S,6511б2В2682Р2026?2Р2о .
736. PRISTrrRINTTAB(26)Drss s ,г ,й целне mm- (ОДвм^яДОВДОДимиК* 650 PRESET(250,154);GQSUB180?PRESET(273.154)i60SUB1853PRESET(297,154):GGSU8190 655 PR!fiTTAB(30)5d ,d ,d - яериодн реееток,"
737. PRESET«250,170}sGQS0Sia&:PRESET{273?170)г6QSU8iS5sPRESET{ s170):S0SUB190
738. РЙШШ39}" s , рая воя sawpsBH яабда-"?ШШЩ49),,айв«!8 штт шп'
739. PRESET(252,179)s GQSUB210 s PRESET{266,189)s80SU8215 s PRESET(289,180):SBSU8220
740. ШЙТОЩЗОГа дяш ешо⻧ Шни.вЛ1Щ245,210Н246,2Ш,7,ВШ=2О00!6Ш20!ШШ55
741. K$=INK£¥fslFK$=noT.HEM80Ei®IFASC(KI)=i30IHEH6a5ELSEIFftSC(KI)-i3kHEN545ElSEa80 685 LiaE(204,142)-(508,226)sO,BF!LlKE(205,143)-(507}225)s5,B
742. U3CATE26,l£nPSOTn Условия.язкдаунов воказввавт, чет "«гатОДЗД'нео*», в'ооёце говоря, для я а &о я" ' "
743. РШтаВШ0дшш вош». лбаучить вавргвяевнё ( , °!PRMTAB(26)E , К лая которого вивмвяотся 700 Р8ШШ8(26)азтн рсяевна!GiSPCC25tзPRESET(490э} s8QSM2t0sPRESETC2Q5s205) s69aSjOZ15iPRESEHSS?4i94H6QSUB 220 ' 705 Z2=150vi80SUB20iB0SUB155
744. КМЙКШsIFK$=D8THEK710ELSEIFASC(K$)=l30THE«715ELSE!FASC{^)=136Tfe590ELSE710715 80ЯЮ25'.иШАТШ,28РйЩ'?аш обраш, * ШВ05 «рув?уре05РЙШШ|26)влря ЗЦШМ ябрвояача&шя ааарвяе-в
745. РК1НТТАВ(26)явий расярострэвевня «ве?а образует":РВ18ТШ26)в«че?Ш№ яйракцввняне яакшувв"' 725 ттщ&гю ш SCSI ШЯ, а яшм я«яв?ШЙТШ(2й),,удавве*ворввднй ринк шейвуве»!" 730 10САТЕЗ,5:РйШЧ"
746. L0CATE29} 11 iPRIUT3 (5запонаня? что при ди&равди света"
747. PBIHTTAB(26) вна ливейво» и воверкностной реветкакв!ШИТАВ(26)"яамнувв волучаится дня 8СБХ япияс 745 РМНТТАВДОГюеммк волз. )o}ZZ=2000s80SU820:6DSU8155
748. KS=lHKEVI;IFK$-ueTHEfl75C€L3EIFASC(K?)=130THEII755EL8EiFftSC(K§)=i36THE?l590ELSE750
749. LGEATE32,2 siH PRШТгу сть йззеетсн свстеаа лоБерв-в1РМ8ШВ{23)ввойек часдаво отраваадиз й ш-гв
750. РШТМН28) "тнчно проаушкш свет (трехнер-"!Р81Г1ТТАВ(28)внаа roaorpa8Ka).*;LGCATE29,2,i
751. FORI=lT035;FGRVX=61T0101STEP20!:L!NE{24,li7,)-(204,VZ),0:ЖХТ¥Х
752. FGRV?.=61TQi01STEP20:LIHt(24sY7,)-(204fYX)13sNEXm,I •815 t82ATE4}6?0iPRIflTBdu;8RfiSBC7BH32s84E2F2H2Sl8E2B2H3B
753. LQCftTE32|£,0;PRlKT*tseBa вея угяов мв® 0':LIHE{480,B7)-{484,87)I7IB
754. РШТТЙ8(28)"падает плоская световая волна,";PRIMTTAB(28)"Вторичные волна, отрамешще отя
755. PRINTTAB(2)"pasuax слоев- когерентны и будут интерферировать мзду собой" 835 PRINTTfi3(2!"n0fl06H0 волнан, пбснааеввв в данной направлении разяичанаи"
756. PRINTTfiB{2)"чсгяии ди§ракциовнон реветки. При этой, как и в случае ре-° 845 ШШЙ8(2Рвеш, вторнчнне ввавн будут ярашчесйа гать друг яруга"
757. РВ1г1ТТй8(2)чво ш вапрвяевняя, кроне тех, для ивгорнв разность jepejW,e7WB3,203E5F5Li0° 855 PRINTTA8(2)°HeiEfiy соседннш! шнааи является кратной ддине волн» a.H;L0CATE29,6,i:LIHE{445,210H446,215), 7,В
758. F0HX=2?T0ii5STEP,5:V=((X-29>«36>/90+25:РВЕТ(X,Y} ,4iPSETtf4Y+20),4:ШТХ
759. F0RX=Ii6TflI99STEP.5f/=(frii4)-«-36)}/90t6isF^£T(^Y),4s^ET(XJY^),4sHEHX
760. FORY=3n05iSTEP20:PSET(5i,Y),4:LINE-STEP(2,3),4{UKE-STEP(-4,2),4!HE)iTY
761. FORY=32T052STEP20;PSET(179,Y)s41LINE-STEPMsi1,4sLINE-3T£P(-2,4),4iHEXTV .880 10СЩ5И.«»РЙ111Г0^11ЩМ|55)-(38^5},7аЩТЕ29,«)1!С11Ш{52,Ы>),?Л12.35|ЗЛ4:81йШ^ '
762. K4=INKEY$dFKI-0"THE«885ELSEIFASC(Ks}=i3OTHEM89OaSEIFASE(K«)=136Tffiff§klSE885
763. LIKt(216,3>-(509,253),l,3F:60SU830:FORY^9TOi5!lOCATElsYX,0!PRISTSPC|63)!HEXTYX
764. L0CATE33,2,0 5 PRINTc Нз рисунка видно что0900 8S6l!aC7BH3i)0,42E5F5L10'1 SlOSATE41 <31РЙШТР- 2d SIftS,D:PSETC355,401s7;BRA5f'C7RlBR29BLiiR5e
765. L0CATE5,5:PRINT"d SiR0»;TAB(20);"d SinOi':FCRX=43T0180STEP128;PSET(X,72),750RA;fC/R18R29BUiR5°;f!EXTX
766. F0RY=74TO62STEP-2;X={(Y-74)llO)/(-12)HO7.:PSET(X-ljY),6iKEXTY
767. F0RY=80TQ62STEP-25PSET{117,Y),61NEXTY
768. FQRY=74T062STEP-2: X=(1Y-74)*10)/12+127:PSET(X+l,Y),6;NEXTY
769. LINE(226,i09)-(475,i29)»0,8F;LIfiE(227,110)-(474,123),5,B
770. PSET(259,120),7:DRAt!nC7RlBR29BUlR5!!sLiNE(333,li4)-(334,120),7,B;BRAS',C78'(385,123R6BRi8R6,!
771. LOCАТЕ32, 10 s PR ШТa Это соотношение нашштея^10ШЕ32,1ШШаФорауяо« ВША-ВРБГГОВ.*
772. L0CATE5,i3:PRnJT°8 опять для шавввв значений 4 н 0 ваксваувн поаучавтсяа!1!КЕ(304,199)-(310,199),7
773. PRINT! йбШ'ТОМО Дйа дана ш>, удовлетворяв условий ЗУЯЬФЙ-БРБГГ0В.ЕsZZ=i500sS0SUB202G0SUB155
774. Ki=IKKEY$jIFK$="r'THE«980ELSE!FASCti<*)=13STHE«985ELSEIFASC(K5)=136THt«785ELSE980
775. LIi1E(21aj3i-(509s253)} i.jBFiGGSUBBOsFORVX^TOISsLOChTEIjVK^H^F'F^tllSPCfQS)
776. ФИЗИЧЕСКОЕ ОСНОВУ ГОЛОГРАФИЯ (F0S8.8AS)46
777. REM Физические основы голографии (F083.BAS) iO CLEAR51CLS:PCLS i LOCATE!? i,0:6QT020 15 ОДНШгШТ№1ШЯ20 дамШИШ&иШХМНЭ^ХМЙМгЩТтГО^
778. LINE(0,0)-(5l25256),7,8iLOCAm9,8:PRINTa033H4BCKnE ОСНОВЫ Г0Я0ГРМГгШЕ(135,тН373,128),7,В ' 30 F0SP=ITQ3;FORC=0TO7:LiKE{136,Hl}-{372,127),C,BFi2=200!6DSUB15;'EnCjSEXTP 35 CLSiPCLSsREH Кедр 1
779. PRiNTTAB(13)i"За^нксарованну» на Фоэдшдавке «втгр&ерев-" У 75 PRINTTA8{8)$°ционнуб мртину доввш* Ш0ГРШ08.В!РМ«Т:РМЙТ
780. LlNE(l5U-(5111130))7,8FjLniEl85J7)-(475,55)sOJ8F!LIt{E(i05,72)-(439,i07),0,BF125 lIHE{70,17)-(460,65)si,8F;LIKE(90,77)-{430jli2),l,8F,.LIHE{l,135)-(510}225)sl,8F130 18CATE14,2:PRIHT°B гояограбкн исаольэуйтся йсточвйкн све?а{°
781. PRINTTAB(10)j"которые обладав? ввсокой степевьв вространс?-0
782. РВШТАВЦО^венной к врекевноа KorspeBTaocTii.":PRiHT
783. PRINTTA8(13J j"8 вастоя&ее вреня для этого испотувт'
784. PRIHTTAB(27};"2 й 3 Б Р U.°rt.OCATE4,iO
785. PRERT" Голография принципиально отличается о? оёвчяои §отогра§киг' Щ PRIST0 ?ens что ва |отопдастйййе $шнруе«я, а &а?ев восстававяш-* Т7 165 PRINT® ется не ташсо аввдауда (чергш-бэгше и шв?раяыга1"
786. L8CATE15,21PRIMT °Основная идея гояогра§ичеекого нетеда!C;LCCATE8,4
787. РШНРНа фотопластинку вавравлявтся две когеревтвкг 8Шй}в
788. PRIHT4 прчеа одна т ник надает яа шопласшку непосредственно"
789. PRINT" (0П0РЯ6Я/, а другая яосяе отрзшшя от об'екта9
790. PRIHT" ( й Р Е Д 8 В Т Н ft Я ). В области вошлапшя эти"
791. PRIHT3 воявн интерферируют, обрасук стоячки катгр^еревпионвии"
792. PRINT? рисунок^ ве вавасяд&и о? вревеяв в, с-лшватеяьна, регяст-®
793. PRIST5 рвруевай ^отопаастивкой. В этой рисунке { гояограаве }, в"
794. PRIHT" закодированной ёорне, содержится ВСЕ ошчесш инкарнация"
795. PRINT" об «б'ет,'тодо 8 «ибо» шея? врвневв веяно меть"
796. PRINT0 «няветстввяао аркевТйрб&ашшк потока вонвкроватетввввго'
797. PRIST® (илн белого) света, которн» ан§рагйруя на гологравзе соз-9
798. PRINT" даст азяме трекерное шбрашвге об'екта.'S80SUB2165
799. K$=INKEY$} IFK$=n "ТНЕЙ265
800. IFASC(K$)=130THEN275ELStIF6SC(K$)=i36THEilll5ELSE265 m CLS;PCLSsREf! Кадр 4 ■ „ 280 LIKE(l,i)-(510,255),7,B:LlKE(2,2)-(509,254),l,8F:PRimAB(i7);8noBCBHa сказанное ва прикере:"
801. LOCATES ,3 гР8ШаЗе LOCATES, Ш РЯШТя0бмк?и 310 10СЙТЕ175ШРШаФотэшвдкЕкг"^^
802. Al^isft2^ift3=m!M465tF0RIl=lTe7$L0CATEt2,4sPRIllTe«Bftpm вша"?2«199-.6ШШ5 320 L0CftTE12,4:PRIHTSPCU3)s2=100:60SBBi5sfiEXTIX
803. LSCATE3,14iFRINF(оперная и предае?ва« шнас;Р1ШТц |арвнрувтсз вз одного аука)»
804. F0RiX=lT020:L0CATE12,5:PRI«TSPC(17):Z=100i BBSUB15
805. LOCATE!2,эsPRIIIT0вай йвд' sMWsSBSffilSslffiim
806. Y=65:F0RX=100TB45STEP-1:Y=Y+1
807. LINE С a , 55 'j (Xt-i ), 3 В; FnRV-54T0Y3STEP5 s ? К s ¥} - O: -4 s V-t4 HEXTV s КЕТУШ1
808. FQRI=iT07:LOCATEX,4sPRINTSPC(13)sZ=iOO:80S!i8i5
809. LOCATE!,4sР8ШТв0ворная M-iHa":Z=iOOs6BSUB15:KEXTI:RETUR«
810. Y=33iF8RX=AlT0A23TEP-l;Y=YH:PSET(X,Y),4sPSET(X,Y+7b45PSET(X,YU4b4
811. PSET(X,Y+21},4:PSET(X,Y+28MrPSET(X,Y+35),4iHEXTX
812. Y=58:f0RX=A2T0A3:Y=Y+1 ;PSET(X,Y),4:P8ET(X,Y*7),4»Р8ЕШ,УИ4),4
813. PSET(X,Ym),4!P3ET(X,Y+28),4tPStT(X,Y+35}f4s«EXTX5RETUR;}485 K$=INKEY$:IFKf=°"THEfj485
814. IFASC(K$}=130THEN495EL3EIFASC(K$)=136THffil90ELSE485 495 CLSsPCLSjREH Кадр 5
815. IFASC(S^)=I30THEN53taSEIFASC(KS}-136THE?G75ELSE520 530 CLStPELSiREfJ Кадр 6
816. IFAS^tH3C>TeEN620ELSEIFflSCi£i5*136TfiEN275ELSE6i0 620 C1S;PCIS?REH Еэдр 7
817. L0CATE12,2:PR5HTBCXBB& ЬЖШВОВЯБШ Ш0ГРАШШ ШОРА"
818. LIMEt7Ss13)~tч00532),i»BFsLXNE(30577)-(300,173)?4,BsLIME{Ayа120)1205130)32t8F 1
819. LlHE(i20,125)-(150,i25),2sPSET(130,123)52;DRA3sC2{!135,125!11303i27n
820. LINE1150,125?-{230^ 35)g2 sLIЙЕ(150
821. PSET(i92,i02))2sBRASaC2S200,100!ii94,i05":PSET(192,i49),2sDRAIioC2H200,150SU95,i45D650 11Щ225,85)4232465) ,да1НШЗЗ,85Н238,Ш,5,BF
822. LIKE(226,85)-(226,165),0:LI.'€(228,85)4228,165),0iCIRCLE(115,125),40,3,5.81,.47
823. CIRCLE(185?125),40,3,2.67,3<6i:PAINT(152,125),3
824. S'EST0RE570;FBRIX=n05sREaBX%sYX!CIRCLE^YS}
825. DATA 270,125,264.122,266,129,265,117,268,135
826. RESTORE67O:F0RIMTO5;READXy.,VK!CIRCLE(XX,YX)s2,7s«xXTI2
827. L0CATE40,48PRIHTD1- йс-точжп; излучения0 »РР1МТТА8(39)},!2- расешритеяь вучка*
828. PRIHTTAB(39)5°3- таграш^РЕШТАВ^?!^- ввше й80врш»й«"
829. PRINTTAB(39);a5- дейетвитедьвое0:PRIRTTAB(42)jеИСЕБДОСКОпйЧБСКОЕе
830. PRINTTAB(42)\"шбракенне (ваяук-°;1^1ШАВ(42>;0ане участки обката"
831. Р81ЙТ" В результате ;ди§рагда на 'вайявдав?м как вор-®
832. Ш PRINT" гоаограиае 3 образуются т ву?»е й ваоборот)/
833. PRINT" кзобракевая: нише 4 в дев- 6- наблюдатель11
834. PRINT0 ствктельвое 5.' sL0CATE12, iOs PRINF1': L0CATE19, lOsPRINT^0
835. LQCATE31,6:PRINTa3"sLQCATE26,95PRIHTt:4'!sL0CAT£33,9;PRIMTn5"5CIRCLE(290,i22)«4,5
836. PAlRT!290,122!,5:LOCATE37,9iPRINT,!6,,:CIRCLE(290,122),2,0:603U82165730 K$=INKEY$:IFKI="THEH730
837. IFASC(K$)=130TNEN740ELSEIFASC(K$)=i36THEN530ELSE730
838. CLS:LDCftTElS,2iPRINTe Недостатка этого аетодаг"
839. PSET(290,i22),0sF0RR=lT04;CIRCLE(290,i22),R50;ieTR
840. LOCATES,12sPRINTc- нспользувтся только прозрачные плоские объекта}"
841. PRINT"' вкша рээреаащаа способности"
842. PRINT3 действительное, авнное изображения к недн§рагироЕаняое°
843. PRINT" шучевве накладввзвтся й sesaajsT набявденяв.0i60SUB21S5770 K?=INK£Y$sIFK$="aTHEN770.
844. IFASC(K$)-130THEN780ELSE'IFASC(P)-136THE№2DELSE770780 CLS;PCL8sREii Кадр 8
845. LINE(1,1)-(511,255),7,ВраЖ(80,20)-(450,120),0,8FjLIKE(80,133)4450,205),0,8F 790 LINE(70,25)4 440,127),1,BF5LINE(70,138)4440,210),1,3F 795 10СШ5,3«РйШ"1тйь4вавйе тааым ваа«т «йьтов в*
846. IFASC(KI)=130THEN355ELSEIFASC(K$)=I36THEN620EL8E845
847. CLSгPCLS?LOCATES,2sREH Кадр 9 .
848. PRINFCXEHA З.ШТА и Й.УПЙШЕКСА (звуяяучевая cxesa)"
849. РЯШТШт^предлоаена в 1962 ro:LIt!E(30,72)-{334J204)!i,3 870 LINE(235,SiH284,109),7iLINE(124,167)-{152,183),7;!(=229;Y=77875
850. S8d FDRP=iTfi5:X=)ci-7iY=V+4!Li;iE(X,Y)-(X+5,V),7:KEXTP3PSET{84,116),4
851. Ш8аС4Ш8,ШШЗЗ, 17ЯЙ87.175,1314,159?Ш4,19Ш87,175"
852. Р5ЕТ(41>117),4:ЭРйГС4Ш!ИШ4,12Щ4,127И41,1170;РА1КТ(78|115),4
853. PSET( 133,97J 53jORAUaC3rii57,11Ш151,115Н127,
854. PAlNTdSSJOD.SfPSEKlSa.mj^JDRAK^^^S^j^S0
855. Р8ЕТ(230,117),4!ШГ'С4Щ43585ЙШЛ03й274,Шй265,Ше
856. CIRCLE(io5s103),3§}3,5,86,,45iCIRCLE(219,103).30,3,2.7,3.6915 circle(162,175),30,3,5,86,e45:circle(216,175),30,3,2.7,3.6
857. PAIOT(192,i03)J3:PAIHT(189,175),3;LIf{e(314,155)-j323,195)!3,8f
858. PSET{106Jll),4:0RAii"C4Hli4,li3fil06,il5°;PSET(135,139)J4!0RA'i!'C4Hi38,145H14i,i39o
859. F®(249!16S},4iDRArC4ft257J167H25i,169l'sPSET(249,i85),45DRfirC4H257s185H251513r
860. PSET(230ail),4iDRA!<PC4K230,il7t1235,ii3n:PSET(246,119),4:0RA^C4K246,125R251,121<' 4
861. PSET(265,123),4iDRArC4f!265,131!1270,125I!5LINE(254s135)-(276,i39),4
862. LISE(254,145)-{276,151),4:Ll?jE{249,15i)-(265,i63),4
863. PSETC268sI4iK4s6RKiHC4H27e5i39^703i3§n3PSETC2^8si5ii,^t0RA«nC4H27^<i51i1268(I47'!
864. PSETf 2a0,161}, 4 sORS^ЕС4;)2е55163fi262,159" ?LIME(227,141) f2
865. LSKE(236,i41)-(238,m),0:LnJE{246,i4i)-{247,141)50
866. Ш(2441тЬ250ЙйГШ27,14Ш38,127й252,ШЙ244|14Ш58гШа970 L0EATE44,5sPRIST" 1 aawp"
867. PRINTTA8(43)}"2 полупрозрачная* iPRlflTTAB(47)j"властина" 980 PR*NTTAB|43) j"3
868. PRI8TTftB{45h"4 8epEasa'sPRIHTTfl8(?3)f85 - ofiww"990 PRINTTAB(43}f 6 й<шшшккй°
869. LOCATE?,14:PRINTany?b опорного пучка: 1-2-4-3-6.°
870. Ш5 Uffii225,m)-(25S,i26),OjtIII{268jm)"f^l,16&),4sUHE(246,l38b{354lWMf4
871. Ш ШтШ8)}'вшдаго-в одной $а», а 8йвй-в!Р81ШЙВ{28)$'йувв в apomoiase/iPRIflT •
872. REN----ШШЙ----Вариант 1—(вовроев видош с 1 но 15)----(KIOAS)
873. REN —Вакод в SB® пот сообдеяяя оценки по кяавиве 30 CLEAR;80TQi40
874. AMNKEY'?;1FAI=""THEN40ELSEfi=A3C(A$)
875. IFA=26DRA=130THEH fflf N S0T0880,940,1000,1060,1120,1180,1240,1300,1360^420,1480,1540,1600,1650,171060 IFA0260RA<Я30ТНЕИ40 70 RETURN .
876. FOR 1=0 TO 8гК*Ш*в^ЩТШШ 90 FOfi IM TO ZlNEST ZZiRElM
877. Щ Z=s30?LIf«{45246}-H88524)l7}S-EfiDSDg90sLIflE{452)16)»(48S,24),4JB;80SUB90
878. A$=IfJKEY$!lFA5="THEN100 ELSE A=ASC(A$)
879. IF Ш ® A-130 THEN Rf tURN ELSE 100
880. FOR I=lTO10;L0CftTE3,ljPRINTSPC(55):NEXTI;RETURN
881. F0RI=0T37{L0CAT£10,6+I:P3IN7SPC{55)jiNEXTI:RETURN150 t IKE f 25,190) -{135, 2C>7}, 1, SF i; FORI=0T06;P0KEsHF716 f 11 BEEP i KEST;
882. LINE(25,i90)-U35,207),4.,BF{LINEi360(190)-(475,207),4,BF:RETURH
883. LINE(360,190)-(475,207),l,8FiF0RI=6T80STEP-liP0KE&HF716fIsBEEPsNEXTiRETURN
884. K4(0)=!i 1#МВД1Её напвается,.0
885. K$fl)=el. вдавще ваяв, вряв&мее к ушвввяеввй BBsJC$l2)«» какдеи точке пространства постаяпшй авв
886. ВДЗ)=Я- шебавйй|'$К${4)«°2. sr-вЁавве воаваав вревятствв!, яр&враде к ш-а 210 К$(5)=" лояеки» от аряшинейвого распространения света,*0
887. K§(4K3. гавншот шжаэатезя вреловлевйя света от «ро"}Щ7)»* цвета, обусловливайте рагяокенне беязи СБе?®" .
888. Kf(S)=5 на составляйте.9iRETURN
889. ШОК' № Ш0ГШШВ ПРОЕСХОДНТ 0ГШ8Р.Е БРЕДШАЯ (1)=" ВОЛНАБй? (ВЫВЕРИТЕ ЦРА8ИШШ; I HfeiiBOS
890. Ш,«Я°:Ш)=' ДОНШШЕ ШШ ШЧШСй Ш
891. К?(4)=°1, увеличении расстояния L некду экранов й°5Щ5)='> врепятствигв;"г К$(6)="2. увевьаевки L;":i'$(7) ="3. при любой L.'sBETIIMt
892. Ж КЯ0)=" ТЕНЬ ВТ ЗРЕРЩ СТШВНЩ ШЕЕ ОТЧЕТЛИВОЙ,":Ш1)=П ШШ ВШВДОЕЯЬ.'.11
893. Ш3)=в1. увеличивает двину воанн света, в которой pac-"sK$H)=" снатривается преднет;0
894. Ш5)*"2. увевьвает дянну волна света{°5К$(6)=»3. оставляет Ses ибаеневия.".'RETURN
895. ЭД0)=а ПРИ ШЕРМИЩШ ДОХ. ШШ (ШЕЙ) ОСВЕЩЕННОСТЬ* :Щ1)=Е МШШША, ЕСМ Ш РАЗНОСТЬ X05fi.«.°
896. Ш Kf(3)=°i. равна аелону чаеау йлвн волв;!,$К$(4)="2. равна вецеявау числу щт воав|"
897. K$(5)="3, равна нечетнону числу дяин полуволн."гЯЕТШ
898. Ще)=° УШВМЕ 8йШ8Ш 8 ЯЕЮЩШШ ШХЖЛЩ!)^ ПМУЧЕВВ&В С вОВДЫ РЕЗЕШ: dSin и = *.
899. К${2)=" В ЭТОЙ ФОРМУЛЕ к ДОШО Бт.п 360 Щ4)=° 1. чеши чксйов:" 1^(5)=" 2. пелав чисаон;33, паяуделвв число».":RETURN37?) тт-а в шон wm угол двфвдш be завей вглтк дав вош ? (для днграгщаашз решет1. Кй}°
900. К?(2)="СВЕ?А ?пгК?(4)="1. S рй&анчвдз в частоте мебаний.и1К$(5)="2. С разлйчвен в скорости рсвространев433 '.ЙШ—!: С разятаея в интенсивности света/',*RETURN
901. К*{0)=" ЛВСпЕРСнЕй 1Шн&аетез,,.!':К$(2)="1. 8й&вшос?Ь'вока&ателз преловяенкя света от^ШЗИ" его5bst-3.11
902. КЦЗ)'4 1. крашй евет5!г|Ш4)=,! 2= зелена* <®е».в:К${5}=° 3. #rnmomn ise"=B;RETURNт mm*1 ш штт ипт ямшннй свбкш^кшк ври imsm зкрш о? ямцнпк рей ня?"
903. Расстояние яеяау нашвувавв Дй§ркцжщ)оиа!К${4)=,! картин» уаевызате8.Е|К}{5)=°2, Рас-стзШ-srкеЕДу ааксйкунана дя^айдвоявой" (6)-я картина увеличатся гс 510 Щ7}="3. Карта ойаает ё§з шев«яв8."5ЙЕ|®1!520 щои" mm ж сэдт тт,%щ ВРАШ I втмючкшк вошма ЯРЕГРШ"
904. Щ2)=в агЩЗ)=<Ъ &ншв.в5&*Ш*в2. 1ейьзя.Е;Щ5)=аЗ, В одння щчш поте, в друт втва.^йЕТШК!
905. Kf(oj=" ш вптагъюш анмтпнш ввинг^кк!)»» в -овей ввга, mm вне® .тою свт
906. LINE-(440,50),7:LINE-(495,50),7sLI«E(20,178)-(20f 15)!0?LINE-{435,15),0зШЕ-{435,55),0sLUiE-{490,55),0:Ш
907. CATE47,13:PRIKFB l В S f И 0" 740 L0CATE59,6:FRiNTaBD!LQCfilE5?j5PRIWVi^^ E59,lhPRlNTV
908. ЮШЕ7,ЗгРпМмВан предстоят ответить sa лредлошнне яте bob-":PR1HT* роен, вкёрав однв (прзвкльвк й на Баш smnsi не"
909. РВШ" весшыж вредев8ШМи0}1ОШЕ7,7$Р11ШР'8 езуча* вргвивдаго ответа шер зтегэ-вояраеа® 770 PRINT" внизу экрана выделяется чернна цветок, б bpothbhoh'sPRINT" с-лучае? нонер вопроса не вадеяяет-с в, а.верннй ответ" • .
910. РШТв оделяется сведав враноуг-овьнакш,« iL0CbT£23Sl3sPHIflTM— BAFfiSBf 1 —1"sBDSOBiOOfGOSlffil30790 REH—le--------------800810 1вШЕ5?,5»Р8т"1"?даШ80.'В88Ш62011ШТЕ8,111РВ111Т"ВШРЯЙ БРйВВЯЬйНй ОТВЕТ, ВЙ1&В ffi'IUFB Щ5ФРУ Iй 320
911. A$=IKKEYf:lFA$=""THEKB30 ,
912. IFA$=!i2nTHEKPR=PR+h508L!8150:LI№(20,224)-(45,236),l,BFs60SUB100:8G3UB50850 fiV=ftSC{A$)
913. IF AV>51 OR AV<49 THEM 830 ELSE G08UBi70sLINE(30,80)-(443,lI2),4,BF:60Sl!3100:80SD'850870 REH----2b-—-*-—-—-----—880 ?J~2i6QSUB8O!LIME(3O,8O)-(443,li2)}2sBF;L0CATE5?,5!PRI!lT"2B:60SUB13O;60S0B16Oi80SUB240iB0SUB620
914. А1-1йШ$:!РАЬпиТНЕШ90Е13Ей-й8С{А?}
915. IFftl-31! HEKPR=PR-:-2; SQSUB1 SOs LIKE(S3,224) {109 ,236)11,Br!G0SUB100!68SUB5S 970 AV=ASC(AI)
916. ЙЕН —Выход в 8EBS5 .после сообщения оценки во кгавнше 40 €L£ftR:6flT0650
917. А$=ЖЕ¥$: IFft?s"*ТН£Н50ЕЦзЕА=Й5С-Ш) .
918. IFfi=26QRft=130TSB? OS U SQT0890,950,1010,1070,1130,1190,1250,1310,1370,1430,1490,1550,ШО,1660, 1720 70 IFA<>26QRA<>130TKEH50 SO RETURN
919. FOR 1=0 TO 9:K$(i)=0GtHEni:RETURH 100 FOR ZZ=i TO I{NEXT ZZ.-REHM110 2=30".LIME(452,16)-(48B,24),7,8;BI)SUBi0O;LlKE(452,i6)-(488,24),4,B;60SUBi00 .
920. А$=1Ш'$:1РА$="СТНЕЙ110- ELSE A=ASC(A5)
921. IF A=26 8R A=130 THEH RETURN ELSE 110
922. FOR I=lTQiOiLOCATE3,IjPRlKTSPC(55)?HEXTIiRET®8
923. F8RI=0T87:L0CATE10,6+IiPRI?JTSPC(55);sKEXTI;RETliRf{
924. LINE(25,i9Oj-(i35,2O7}afBFlF®MIO6?P0KE?(HF7isJisBEEPs?jEXTsiETl!R?l
925. LM(25,190}-(1355207},4,BF:LI!JE(360,190)-(475,207)J4s8F:RETURri
926. LIK£(360,i90)-(475,2i}7),i,8F;FQRI=6TGOSTEP~l:POKESHF716,I}8EEPsSEXT;R£TURS
927. K$(0)=° ЯВФРЩВЕ& называется.,°
928. K${1}='1, наложение вояк, приводите к установлений вп;К$(2И' шдо» точке пространства постоянной авпжудн3. •
929. Щ3)=в шебанн«|°|Щ4}=02, огибание вояааан препятствии, приводящее к otu-s: 220 Щ5)=" ягнению от прякоЬнейного распространения света;"
930. Щ6)="3= еавнсивость показателя преяоввейкя света от егопгК$(7)=а цвета, обусвоьпнвав^се рашаевие .беаого света* 240 Ш8)=а на составляйте, "-.RETIM
931. Ш0)=в ПРИ Ш08 УСЛОВИЙ ПРОВСХОЛКТ 0Г8ВШБ ПРБДНЕХ6J 1 >=Q 3ОЩШ? {ВЩРН1В НРШПЫШ& I НЙВБОЛ EE"iK${2)=" ПОЛВЙЙ ОТВЕТ)."
932. К${0)=« УСЛОВИЕ ЙЙКСН8Ш В ДИФРАКЦИОННОЙ Ш>ШЕ,':!($Ш=" ЙШЕШОё С ДОЩМ РЕЙЕШг ffiin а = U,
933. В ЭТ08 ФОРМУЛЕ к Я0Ш0 ВВ!Ь." 370 Ш4)=" 1. четннн чнсйэиг^К$(5)=я 2. цегшн числоа;":К*(6}=" 3, пелуцеяык чисш,*;ШШ
934. К${0)=в В МОК СЛУЧАЕ УШ ДИ^РАКЦИЕ BE ЗАВЗСВТ 0!азЩ1}=° ДШН ВОБВН 1 {длв ди§?зкщшшй реват пГ
935. К$(2)=аСВБТЙ ?в:К$(4)=п1. С раэличиеи в частоте колебании.":К${5)="2. С ргвичиеа в скорости распространен1. Нй,в
936. К$(6)="3. С раш:чкен в интенсивности света.0sRETURN
937. Kf(0)=° ЯйСПЕРСВЕй называется.*!К$(2)=01, еависиность вошатеяя презоияения света от"гК$(3}=" его цвета."
938. К?{4)-°2. "гавйсиность вовазатеаж арбяавяевия света g?e:Kt(5}"" длнвв велвв (вяя' частота) световой .воавн." 470 KS(6)=B35 завйсйюкть вешателя пршвяеввв света от"«Щ7)=° угла падения светового пучка на экран."I RETURN
939. Щ'ОК йРБ ПРБЛОШБНйй БЕЛОГО ЖП СТЕШаШк;К$Ш=0 ЗРИЗШ ЯЙЯБОЛЬЕББ 01КЯ0ВЕНЕБ ВДНХШЕТ.,0 490 Щ3)=" I, красвв» свет^ИС^И* 2. ггяекки свет.0!К1{5)=" 3. §cb£t.°iRETURR500 к$(0)=° ш тттт wim доредношго сдЕЕТРй°гк$(1>=в прв уяйлбввй ашнд от ямршвонню m ВДВ?"
940. КНЗ)=(,1. Расстояние вегду ваксиаувам ди|ракцконвон0£К$(4)=в жартвйй увеаьаатсз.а;!(${5)=°2. Расстояниевещ ааксйвунаав лй§ракаввш8°!Щ&.Ив картава увеличатся,0 520 КЦ7)=аЗ, Картина останется бег «задавн*.*-.RETURN
941. Щ0)=п НОШ ,18 еводаь ДОРАВДВ ПРОСТО К 0ГЩтИв:»Ш*в ВОГШАйЕ ПРБГРЙД?"
942. К№" Я-МЩ-Ч> H8»m."jKf(5)^3. В йдйшг случаях вехво, в других вешвЛШШ
943. K$(0)=u Ш НЗЙЕИЙТСЯ ШТШ ЙНТЕРФЕРЕНМШ B0IS0C:K$(1}=" В 0HBSE МГй5 ЕСЯН В88СТ0 КРАСНОГО СВЕТА"
944. МО Ш2)='! ВОСПОЛЬЗОВАТЬСЯ ФЯОЯЕ1Г0ВН8?иiК$Н)1. Расстоавие вещ ваксивувани уветатся," '
945. К$С5|="2» Расстояние веад ваксивунааа Ивтер§еревцшгавне пояасв о? красного в*
946. Щ7)=° §йбаетово№ света штжмсл друг- на друга."iRETURH
947. Щ0)=" ПРИ ПНТЕРФЕРЕНЦай ШРЕНШХ СВЕТОВЫХ ВОЙН."
948. REK------------врограава----------------------------------
949. LBCATE.nJieLStf^LSsBII®;!!^^^^ *A(0):XX{12)=0:LUmfO):PAIf}T(0,0),4:DIH^(16)
950. LIRE(1,1)-{510,254),0,В:иКЕ(6,6)Н504}250),0,В5РАШ{2,2),5,0:L1NE(3,3)^507,253),7,BsLI«E(15,ll)-{440,li0!LINE-{440,50),0sLHjE-(495,50),0,B^IKE-(495,i83)s0,8tLIKE-{15,183),0,8:Ll«E-(15,ll),0 670 PAINT{100,12),2,0jl.l№(15,i83i-(15,il),7;LIHE-{440,il)s7
951. LINE-(440,50>,7:LIHE-C495,50),7;LINE(205i73)-(20,15),0;L1«E-(435,15),0:LIKE-(435,55),0sLINE-<4?0,55),0iLI?l
952. CATE47,13jPRIBT°H S В E P H 0° 750 L0CATE59,&:PRINTrb°!L0CATE59,7!PRINTV:L0CATE59,8sPRINTV:LCCATE59595PRI»T0p" :L8CATE59,i0:PRmV:l0CAT E59,il:PRINTec°
953. LBCATE7,3;PRINTeBaB аредетовт ответить на вредложеввне шж Bon-":PRIKTD роев, вкёрав одвв (врзвильнн й на Ваш взгляд) us*
954. FRIST" яесшшх вредшеннш:. " sLBCATE7,7iPRM"B случае правильного ответа кокер этого шзроеа" . 780 PRINT1 внизу экрана вндеяяется чернив цветов, в вротиввон"sPRINT" случае, вовер вопроса ве ввдеяяетс з» а вервий ответ0 ,
955. IFfi$=e i UTHENPR=PR^1:60SU8160:LINE(20,224)-(45,236 i,1,8F!S0SU8i10:G0SU860 860 AV=A3C(AI)
956. IFft$=э2!iTHEKPR=PR+2:SOSIi&l60:LIliE(52,224) -{77,236}, i,BFiG0SUB110s60SUB60920 АУ=Й86(А$) . :■
957. IFAV>5iORAV<49THES900ELSE60SUB180tLINE(27,95)-(384}ill),4,BF560SUB110s60SUB60 940 REH----3в-(13)---------------
958. H=3i60SUB90: LIHE (27,95} f 384, 111), 2, BF i LQC6TE5?, 5 г PRINTS": 80SUB140:60SU8170:80SUB530 s 60SUB630
959. A»=IRKEY$;IFA$=°°THEN960ELSEA=ASC(A$)
960. IFft§=®2"THEMFR=PRs-2^ BOSUBIAO; LIME (63,22ч)-110?j236) ? 15 BF980 AV=ASC(A$)
961. КОНТРОЛЬ ЗВАНИЙ. ШЕСТВЕШЕ ЗАДАЧИ. (8Ш.8АЗ)
962. ЙЕН Блок контроля ттй (BKZ8.BAS)10 LOCATE,,0:tt£AR8500
963. OIK А$(4),ОТ$(260);Ш=О;Ш0 120
964. FGRYMTDI5;LOCATE!?Y%sPR'M" Равливовка зол stsst
965. PRINTS<BK> ":«EXTYS$L0CATE2,7!pRIf!Ta0tBEI: °:RETURf{ 55 RE» g/П ВВОДА 01ВЕТЙ С ШВБМУРЬ! 60 IF MZ%<=12 THEN PPX=0 ELSE PP7.=12
966. R=0;F0RSS2=((Ш-РР2)М)-9Т0<{NZX-PPZ)«10+9)-10:REri 9 строк ответов70 ft=R* 1; IFR<2THERL0CATE9,7, i sLIKEISPUT 0Т$Ш)'.Ш080
967. PRINTTABd)|iLI>4EINPUT QT$(SS?)
968. IF RIGHTKOWSSXhD-T THEN85 ELSE MEXT SS%85 RETURH90 80SU625:BEEP:REH Ватте <Ю
969. LINE(385,225M491,237),4,BF:LIHE(384,224)-(492,238),0,B
970. L0CHTE49, i5sPRIflISPC(i51; Z2=700tS0SHS25:LDCATE50? 15sF'RIfITcHasaKTS <Ш>П;П=70Й;808Ш?25 105 A$=IHKEY$iIFA$=uoTHER100ELSEIFASC(A$)=13TKEM RETUR'1 ELSE100
971. MZ%=N2X+liCLS:L0CATE2,1 iPRIWTB3asa4a°H2%iDRA«nC2BHS, 14R45"5RETURNiREH ГШ-новер задачи 1-12.
972. KIS=NZ?:-H:€LSiLQCATE251 sPRIMTp3aaa4aB55Z%iDRSSBC2BMS, 14873°iRETlSRKsREfi ШНкшер задачи 13-24 120 LOCATE,.OiCLSsPCLS4125 1ШЕи,1>-1510,255>|7,8|&ВА9иС7ВЙ20,2Ш255.Ш1490?20й^70а25»
973. DRA3,C7H490,235i1244,215fl20,235ti40,125H20,20"sPAI«T(2,2},2,7
974. PRINT Ш1(27};0З^ШЖ25,ШШ8ББ M W Ц"
975. L0CATE17,8sPRINT°KS 00 SH 11 PP 00 SI ЯЯ"
976. L0CATE2i,10:PRHIT"33 HR M SH BB }lfiss8BSUB30
977. CLS:L3CATE9,7:PRIHTeSK Ш ЧЧ EE Й -IT 88 EE SH ЙН Щ EE6 '
978. LGCATE21,9sFRlNT°33 M I M ЧЧ B8"!2X=4000:S0SUB25sCLSf:PRIM7CHR5(27"2"
979. CLSsREti эту строку поток стереть!
980. LINE(2,2H509,254},l,BFiL0CATE8,l:PRI<)riekcs, ваписгнвнй ввже прочтите ОЧЕНЬ ВНВШЕЙЬНО." 170 LIfJE{50,14)-(458,14)?4:PRIHT
981. PRIST" чаш экрана taw ввгяада? так?), Набор шяоЗ стро-°235 г'ЗШР ки Е:а£зачйва»те'йажатйеи клавиш ВВОН (енввея <B£> sD
982. DRA8*C78«347,193D10L9Q3H5E5D3R5L<6R48H355,191017L29U17R29"
983. PRINT3 конце строки ваповивает её зтон). Цосл«рин «иввояон в ков-"
984. PRINT* -t>s ответа НЕ ЗШДТЕ поставят* знак *,0;Zy,=4000:8Q3U890
985. CLSsB0SUS40:LIUE(2,2)-(509,254),ljBF3REfi ВТОРОЙ Ш ■
986. L0CATE26,l!PRINTaB Р 8 $ В P':LINE(192,13)-(293,13),4sL0CATE2.3
987. PRINFBOnPOC; Что такое 0№?"'.GQSUB45:Z'M000t6BSIJB25
988. А1Ц)=а0*ВЕ?г Оптика это раедея Ihskeb, б квЩ'Ж иеучет-ся оя-1°
989. А1(2)="тическое излучен (свет), яроцесгн его распрвегравенвв!*
990. А*(3)=°и явленна, наблвдзенве при вгаинояействии света и ве*ест-Г;А$(4)=*ваЛ1'
991. FQRI7.=lT04sFQR8X=lTQ60:^$=HI0$(ft5{I%)JeX^>:IFK«$=utaAHDI7.=4THEN295ELSEIFKH$=u«,,THeH NEXTIX 290 L0CATE2,6*IX:PRINT LEFT?(А$Ш) ,B7.)sZX=120s60SU825!IIEXTBX> HEXTII
992. BEEP s FOR I ?i=1TQ9 iLOCATE5,10 s PRI NT" ":ZZ=500:8Q3UB25;L8CATE5,10:PRKJTor :ZX=500s60SU825:f!EXTI7.
993. ШАТЕ2,11 iPRIST"! S! He «ав«?ь шш ? , призвак окоетаивя отвега. 0305 иШЕЙ,1Ш1НТвВавй ответа ааанка замает на явсх,"
994. ШАТЕ13,13sPftliJFa у^ктэйь проверит hi: правильность.8sZX=5000s60BU890
995. CLSiS0SUB40.iREfi СЛЕД. gfifiP
996. L0CATE20 j 3,11 PR I fiTп В рг д ставьте ct пояглуйста,'11325 LOCATES,5sPRINTSPC(50) !
997. L0CATE545iLINEIMPUTHBaisa ";FA$iIF FAS=80THEN Ffi«=!i 0
998. L$=LEFT$(FAI,l):IFA8C(L4)>191ANi)ASC(L?)<256THEN355
999. ИЭДЖЯВДМитЧа&мн se нм» начинайся с '"l*"'* яерё!»»е sa русский»"
1000. Р8ШТАВ{4) "алфавит а повторите ввод."
1001. Z2=3000г 80SUB25: BEEP: LOCATES,6 sPRIHTSPC(50):PRINTSPC(60): 68T8325
1002. IFASC{L$!=2340RASE(lf)=255GRA8C{LI)=2490RA8C{Lt)=248THEN365
1003. IFASC(L$)=2020RASCfL*)=2230RASC(L$)=2i78RASC{L$)=216Tlffi$365EL8E370 ,365'BEEPiLOCATES}бгРЙТЙГФайМаий ее saset начинаться с- буква '*Ue<, яовторите вводге1б9Т0350
1004. IFASC(Li)>223ANDASC(iJ)<256THEfl385375 8EEPsL0CATE5,6:PRIflTcEsB!mHTe, т §авшпш принято аншь с бозыэой буква." 380 PR1NTTAB(4)"Повторите ввод.п£80Т035& 385 L8CATE5,6:PRIKTSPC{50)
1005. LOCATES,6:LI«ElNPUT»Ras г- °;MsIF 1Н«=ааТНЕЙ 1И*=" П
1006. L$=LEFT${IHf,l)5lFASC(L$)>19iA!iOASC(L$)<256THEN415
1007. BEEP;L0CATE5s7!PRII5Ts8ss ве шяет начинайся с яеревдвте на русский"
1008. РВШТТАВНГапбавйт и повторите ввод.0410 2%=30001G0SU825 г ВЕЕРiLOCATES,7 s PRINTSPC(50)»PRIHTSPC С 60)i
1009. IFASC(L$)=2340RASC{L$ )=2558RASC(L$)=2490RASC(L$)=248THEN425
1010. IFABC(L$)=2020RASC(Lf)=2230RASC(L$)=2170RASC(L4)=216THEfJ425ELSE430425 8EEFiLflCATE5,7:PRIMrSsH не mm? начинаться с буква 'W, повторите вад^гбОШО
1011. IF ASC (L$) >223ftflD ASC {L$) <256THEf!445
1012. BEEP г LOCATES, 71 PR IHT" Извин ? но иая принято писать с ёояызой букве/0 440 РЙШТЙВИГвовторкте ввод.л:60Т04Н» 445 LOCATES,7:PRI8TSPC(50) : '
1013. LOCATES,7:LI«ElNPUTaKaKaa сегодня дата (05.04.95) C;DA$;IF 0А$="иТНЕЙ 0А$=" "
1014. IF VAL(dID$(0A$U,2))>0 AND VAL(HI0HDA$,i,2))<32 ТНЕЙ 460 EL8E480
1015. IF Ж{ЙШ(САМ,2))>0 AND VAL(HID$(0A«S4,2))<13 THEM 465 EL8E480
1016. IFLEfU OA*)=7THEN0ft$=" 8+0A$ ■
1017. IF VAL(HID$(DA$,7,2))>=(» A® VAL(HID$(0A$,7,3))<=9? THEK475 ELSE480
1018. IF {timf(f)Ats3,lHV) fifSD (HID$(BA$,6,1)=V) THEM 495 ELSE480
1019. BEEP: L0CATE5 ? S: PR I »}T" Вк 'вепраьвльво ввели дату ~
1020. PRINTTA8(4)"ilOBTopaTe ввод."5
1021. ZX=2000:80SUB25 г ВЕЕР: LOCATES,8:PRINTSPC{50); PRIflTSPC (60); 80T8445
1022. CLS:L0CATE5,2;PRIf«T !eгР«1КТй Вашв ответа на качественные гадания будут шисанн на 500 PRINT" диск, возтоку Bas необходим ввести У8ВШЫГОЕ ивя |аияа,я 505 РйЭДГ в который произойдет' завись.0
1023. PRINT" йня №а ЯоШв бить НЕ БОЛЕЕ 6 букв ЗАТЕВСЕОГО"
1024. FRJRF аа|авнта, наарннер, 4 буква |анилий н'2 ввенв ( Иванов®
1025. PRINT" Петр ння §айааг IVAKPE )."525 LOCATES.11:PRIRTSPC(
1026. LOCATES,И, 1 гШЕЮТРёня |зГша ?U;FF$535 IFL0I(FWK=MH01555 .;.
1027. BEEPsl8EftTE3,12sPRi»T"B дан» faSaa мшь &Ш Ш БОШ а свнвоавв." 545 PRINT" Повторите ввод."
1028. Z%=5000:B0SUB25:ВЕЕР г L0CATE3,12,0s PRIMTSPC < 60):PRINTSPC С 60 >:60Т0525555 FGR87,=1T0LEH(FF$) " ' .
1029. IF ASC(WD$(FF?,ВХ11))>64 &Ш ASCffiID$(FF$,BM)K91 THE« ЯЕПВХ:60Т0570
1030. BEEPsLOCATES, 12:PRINTвВ ияенй йайла должна бнть ШШ ЗШШНЕ ЙАХННСКЙВ БУШ."JGQTQ545
1031. CLS:L0CATE7,3,0:PRINT°8m:, fiIK$°, сегодня ».а
1032. LOCATES ? 5:PRINT"Ваши ответа буду? записаны в fiBft Файла
1033. LQCATE10,7:PRINT FF§a$i,OAT яервав часть ответов,":L0CATE10,8:PSIHT FF$°$2.0AT - вторая часть ответов,' 585 L0CAT£26,I3;PRINTeXeaa» успеха !J:Z/S=1000i60S0B90590 8DSUB40:60SUBA10:LOCATE 131iiPRIЙТЯВа рисунке скшавдески изображены воанн краевого,"
1034. PRINTT68{ 12) "Фиолетового a штзго света, Кйшу цвету еоответ-0
1035. PR1HTTABU2) "ствует издан война?кайСАТЕ355;РйШ!!а)ПАВ{гЗ)мё)вШН5)пв)!!
1036. FORX^-jiTOISOSTEPaSlPSETCX,70i-SIM<X/S)ti0),7?PSETCKi-ioSjTO-s-SII'ii^I72pSETCX^342,70:!-8№(0.}75ЙЕШ 610 8Q8UB45!BQSUB55;80SUB40{8QSUB110
1037. LQCATE13,2:PRINT°Kose6aBB8 какого вектора Б мш В в световой волне" 620 OPilf С7Б1Ш4; 15RiOH2F2B3i' 50RA9BC78H342,i5RiOH2F203n 625 РВШШ(Щ8деиствуш- ва сетчатку raasa v.<m ва фотознуйшш?0 630 8QSUB45:S0SU855 *, 60SU840:60SUB110
1038. L0CAI£l3?i?PnTHTaBory? т яве &тщи на небе когерш-ншн0 640 PRIUTTftB(12)"всточавкавй света?" 645 B0SUB45:BDSUB55:6DSLIB110
1039. LQCATtl3,l!PRIKTe06i,HCHHTe, почену неметея цвет атичьйх перш11
1040. РЙЩШ8(12)в(напривер, ветушшого), нерпаяутра, Еевчуга, хйтя-" 865 PaiHT" нового покрова йноги* васемавк арв повороте на ра&вне у™„° 870 S0SUB45;60SUB55: 10875 10ЩЁ12,1,0|Рй1йГ8с?очанв тщ was на&вдатезя в вевроврачвое тево"
1041. LQC6TE2S, 2? PR ЩТ"расяоаойенн т, как показано на ри-а«ШЙТТА8(27)«сувве (расстояние от иша на&вда-6 885 РВШШ27)Чш до вставш Ш?а .йвшв ;
1042. LQCAT£13,l5PRINTf'fl04eKy s йеатраяьйО:1 частя спектра, волучеяаого яас '
1043. PRINTTASj 12) "экране при освеаеннн й^ракцйонноя ревеш*. белив" 990 PRIUTTАВ(12)0светой, всегда: нЬщмся Йеяая пойоска?вг8ШВ45!8081Ш55.*Ш!ВШ г 995 UCftTE13,lsP8JRIBKas мэненяется картина дв^ракцковного спектра*
Обратите внимание, представленные выше научные тексты размещены для ознакомления и получены посредством распознавания оригинальных текстов диссертаций (OCR). В связи с чем, в них могут содержаться ошибки, связанные с несовершенством алгоритмов распознавания. В PDF файлах диссертаций и авторефератов, которые мы доставляем, подобных ошибок нет.