Вопросы к тесту составила Купянская Анастасия – ученица 9 класса МОУ СОШ №1 ст. Курской.
Кому принадлежит идея создания магнитной записи?
Вальдемару Паульсену
Оберлину Смиту
Гульельмо Маркони
Томасу Альва Эдисону
Кто подал первую заявку на патентование аппарата для магнитной записи звука голоса?
Вальдемар Паульсен
Оберлин Смит
Гульельмо Маркони
Томас Альва Эдисон
Что Паульсен употребил в своём изобретении вместо воскового цилиндра?
Диск с дорожками
Куб с ячейками
Цилиндр с проволокой
Бумажную перфоленту
На каком физическом явлении основан принцип работы телеграфона?
Механическая запись
Оптическая запись
Магнитная запись
Химическая запись
Чём Паульсен позже заменил стальную проволоку?
Шелковой нитью
Стальной лентой
Бумажной лентой
Пластмассовой лентой
Что означает метод интеграции в теории изобретения?
комплексное объединение устройств
инверсия величин
изменение размеров
удвоение рабочих органов
Для чего Паульсен применял метод дублирования, устанавливая 2-3 ленты или проволоки в телеграфоне?
для считывания и записи
для увеличения громкости
быстрой замены испорченной
Почему магнитофон фирмы "Маркони" (1934 год) имел двойной набор головок?
для считывания и записи
для красоты
быстрой замены испорченной
Как называется аппарат для магнитной записи голоса на стальной проволоке?
Магнитофон
Фонограф
Телефон
Телеграфон
Он придумал аналитическую машину и считал, что в вычислительной машине можно использовать разные системы счисления с основанием 2,3,4,5,10 и 100.
Чарльз Бэббидж
Конрад Цузе
Блез Паскаль
Их использовали для ввода информации в шарманке, ткацком станке, компьютере.
Перфокарты
Микросхемы
Провода
Программный код на языке Visual BASIC написал Переверзев Дмитрий – ученик 11 класса МОУ СОШ №1 ст. Курской.
Dim q, ans$(30, 3), qest$(30), t(30)
Private Sub Form_Load()
'Вопросы
qest$(1) = "Кому принадлежит идея создания магнитной записи?"
ans$(1, 0) = "Вальдемару Паульсену"
ans$(1, 1) = "Оберлину Смиту"
ans$(1, 2) = "Томасу Эдисону"
t(1) = 1
qest$(2) = "Кто подал первую заявку на патентование аппарата для магнитной записи звука голоса?"
ans$(2, 0) = "Томас Альва Эдисон"
ans$(2, 1) = "Оберлин Смит"
ans$(2, 2) = "Вальдемар Паульсен"
t(2) = 2
qest$(3) = "Их использовали для ввода информации в шарманке, ткацком станке, компьютере"
ans$(3, 0) = "Перфокарты"
ans$(3, 1) = "Микросхемы"
ans$(3, 2) = "Провода"
t(3) = 0
qest$(4) = "На каком физическом явлении основан принцип работы телеграфона?"
ans$(4, 0) = "Магнитная запись"
ans$(4, 1) = "Оптическая запись"
ans$(4, 2) = "Механическая запись"
t(4) = 0
qest$(5) = "Чём Паульсен позже заменил стальную проволоку в телеграфоне?"
ans$(5, 0) = "Пластмассовой лентой"
ans$(5, 1) = "Стальной лентой"
ans$(5, 2) = "Шелковой нитью"
t(5) = 1
qest$(6) = "Почему магнитофон фирмы Маркони (1934 год) имел двойной набор головок?"
ans$(6, 0) = "Быстрой замены испорченной"
ans$(6, 1) = "Для красоты"
ans$(6, 2) = "Для считывания и записи"
t(6) = 0
qest$(7) = "Что означает метод интеграции в теории изобретения?"
ans$(7, 0) = "Инверсия величин"
ans$(7, 1) = "Удвоение рабочих органов"
ans$(7, 2) = "Комплексное объединение устройств"
t(7) = 2
qest$(8) = "Как называется аппарат для магнитной записи голоса на стальной проволоке?"
ans$(8, 0) = "Фонограф"
ans$(8, 1) = "Телеграфон"
ans$(8, 2) = "Магнитофон"
t(8) = 1
qest$(9) = "Для чего Паульсен применял метод дублирования, устанавливая 2-3 ленты или проволоки в телеграфоне?"
ans$(9, 0) = "Для увеличения громкости"
ans$(9, 1) = "Для считывания и записи"
ans$(9, 2) = "Быстрой замены испорченной"
t(9) = 0
qest$(10) = "Он придумал аналитическую машину и считал, что в вычислительной машине можно использовать разные системы счисления с основанием 2,3,4,5,10 и 100."
ans$(10, 0) = "Конрад Цузе"
ans$(10, 1) = "Чарльз Бэббидж"
ans$(10, 2) = "Блез Паскаль"
t(10) = 1
qest$(11) = "Что Паульсен употребил в своём изобретении вместо воскового цилиндра?"
ans$(11, 0) = "Бумажную перфоленту"
ans$(11, 1) = "Диск с дорожками"
ans$(11, 2) = "Цилиндр с проволокой"
t(11) = 2
'Код
ProgressBar1.Value = 100
ProgressBar2.Value = 100
Image1.Picture = LoadPicture("fer.jpg")
Image2.Picture = LoadPicture("ric.jpg")
Image1.Refresh
Image2.Refresh
End Sub
Private Sub Command1_Click()
fdam
tdam
If ProgressBar1.Value > 10 Then ProgressBar1.Value = ProgressBar1.Value - 10
End Sub
Private Sub Command2_Click(Index As Integer)
If Index = t(q) Then GoTo ok
fdam
If ProgressBar1.Value > 10 Then ProgressBar1.Value = ProgressBar1.Value - 10 Else MsgBox ("Игра окончена! Ваши знания неудовлетворительны и оценены в 2 балла!"): End
Exit Sub
ok:
tdam
If ProgressBar2.Value > 10 Then ProgressBar2.Value = ProgressBar2.Value - 10 Else MsgBox ("Ну все! Вы мне надоели! Вот ваша пятерка, идите отсюдова."): End
setq
End Sub
Private Sub Command3_Click()
ProgressBar1.Value = 100
ProgressBar2.Value = 100
Image1.Picture = LoadPicture("fer.jpg")
Image2.Picture = LoadPicture("ric.jpg")
Image1.Refresh
Image2.Refresh
q = 0
setq
End Sub
Private Sub setq()
q = q + 1
Label6.Caption = qest$(q)
For x = 0 To 2
Command2(x).Caption = ans$(q, x)
Next x
End Sub
Private Sub fdam()
Image1.Picture = LoadPicture("er.jpg")
Image1.Refresh
For x = 1 To 10000
For y = 1 To 10000
Next y
Next x
Image1.Picture = LoadPicture("fer.jpg")
Image1.Refresh
End Sub
Private Sub tdam()
Image2.Picture = LoadPicture("ic.jpg")
Image2.Refresh
For x = 1 To 10000
For y = 1 To 10000
Next y
Next x
Image2.Picture = LoadPicture("ric.jpg")
Image2.Refresh
End Sub
|