Окно ввода — это стандартное
диалоговое окно, которое появляется на экране в результате вызова функции inputBox.
Значение функции inputBox — строка, которую ввел пользователь.
В общем виде инструкция
ввода данных с использованием функции inputBox выглядит так:
Переменная — переменная строкового
типа, значение которой должно быть получено от пользователя;
Заголовок — текст заголовка окна
ввода; П подсказка — текст поясняющего сообщения;
Значение — текст, который будет
находиться в поле ввода, когда окно ввода появится на экране.
Ниже в качестве примера
приведена инструкция, используя которую можно получить исходные данные для программы
пересчета веса из фунтов в килограммы. Окно ввода, соответствующее этой инструкции,
приведено на рис. 1.5.
s:=InputBox('Фунты-килограммы','Введите
вес в фунтах','0');
Рис. 1.5.
Пример окна ввода
Если во время работы
программы пользователь введет строку и щелкнет на кнопке ОК, то значением
функции inputBox будет введенная строка. Если будет сделан щелчок на кнопке
Cancel, то значением функции будет строка, переданная функции в качестве
параметра значение.
Следует еще раз обратить
внимание на то, что значение функции inputBox строкового (string) типа. Поэтому
если программе надо получить число, то введенная строка должна быть преобразована
в число при помощи соответствующей функции преобразования. Например, фрагмент
программы пересчета веса из фунтов в килограммы, обеспечивающий ввод исходных
данных из окна ввода, может выглядеть так:
s
:= InputBox('Фунты-килограммы1,'Введите вес в фунтах',''); funt :=
StrToFloat(s);
Знаете ли Вы, почему "черные дыры" - фикция? Согласно релятивистской мифологии, "чёрная дыра - это область в пространстве-времени, гравитационное притяжение которой настолько велико, что покинуть её не могут даже объекты, движущиеся со скоростью света (в том числе и кванты самого света). Граница этой области называется горизонтом событий, а её характерный размер - гравитационным радиусом. В простейшем случае сферически симметричной чёрной дыры он равен радиусу Шварцшильда". На самом деле миф о черных дырах есть порождение мифа о фотоне - пушечном ядре. Этот миф родился еще в античные времена. Математическое развитие он получил в трудах Исаака Ньютона в виде корпускулярной теории света. Корпускуле света приписывалась масса. Из этого следовало, что при высоких ускорениях свободного падения возможен поворот траектории луча света вспять, по параболе, как это происходит с пушечным ядром в гравитационном поле Земли. Отсюда родились сказки о "радиусе Шварцшильда", "черных дырах Хокинга" и прочих безудержных фантазиях пропагандистов релятивизма. Впрочем, эти сказки несколько древнее. В 1795 году математик Пьер Симон Лаплас писал: "Если бы диаметр светящейся звезды с той же плотностью, что и Земля, в 250 раз превосходил бы диаметр Солнца, то вследствие притяжения звезды ни один из испущенных ею лучей не смог бы дойти до нас; следовательно, не исключено, что самые большие из светящихся тел по этой причине являются невидимыми." [цитата по Брагинский В.Б., Полнарёв А. Г. Удивительная гравитация. - М., Наука, 1985] Однако, как выяснилось в 20-м веке, фотон не обладает массой и не может взаимодействовать с гравитационным полем как весомое вещество. Фотон - это квантованная электромагнитная волна, то есть даже не объект, а процесс. А процессы не могут иметь веса, так как они не являются вещественными объектами. Это всего-лишь движение некоторой среды. (сравните с аналогами: движение воды, движение воздуха, колебания почвы). Подробнее читайте в FAQ по эфирной физике.
