Окно ввода — это стандартное
диалоговое окно, которое появляется на экране в результате вызова функции inputBox.
Значение функции inputBox — строка, которую ввел пользователь.
В общем виде инструкция
ввода данных с использованием функции inputBox выглядит так:
Переменная — переменная строкового
типа, значение которой должно быть получено от пользователя;
Заголовок — текст заголовка окна
ввода; П подсказка — текст поясняющего сообщения;
Значение — текст, который будет
находиться в поле ввода, когда окно ввода появится на экране.
Ниже в качестве примера
приведена инструкция, используя которую можно получить исходные данные для программы
пересчета веса из фунтов в килограммы. Окно ввода, соответствующее этой инструкции,
приведено на рис. 1.5.
s:=InputBox('Фунты-килограммы','Введите
вес в фунтах','0');
Рис. 1.5.
Пример окна ввода
Если во время работы
программы пользователь введет строку и щелкнет на кнопке ОК, то значением
функции inputBox будет введенная строка. Если будет сделан щелчок на кнопке
Cancel, то значением функции будет строка, переданная функции в качестве
параметра значение.
Следует еще раз обратить
внимание на то, что значение функции inputBox строкового (string) типа. Поэтому
если программе надо получить число, то введенная строка должна быть преобразована
в число при помощи соответствующей функции преобразования. Например, фрагмент
программы пересчета веса из фунтов в килограммы, обеспечивающий ввод исходных
данных из окна ввода, может выглядеть так:
s
:= InputBox('Фунты-килограммы1,'Введите вес в фунтах',''); funt :=
StrToFloat(s);
Знаете ли Вы, что cогласно релятивистской мифологии "гравитационное линзирование - это физическое явление, связанное с отклонением лучей света в поле тяжести. Гравитационные линзы обясняют образование кратных изображений одного и того же астрономического объекта (квазаров, галактик), когда на луч зрения от источника к наблюдателю попадает другая галактика или скопление галактик (собственно линза). В некоторых изображениях происходит усиление яркости оригинального источника." (Релятивисты приводят примеры искажения изображений галактик в качестве подтверждения ОТО - воздействия гравитации на свет) При этом они забывают, что поле действия эффекта ОТО - это малые углы вблизи поверхности звезд, где на самом деле этот эффект не наблюдается (затменные двойные). Разница в шкалах явлений реального искажения изображений галактик и мифического отклонения вблизи звезд - 1011 раз. Приведу аналогию. Можно говорить о воздействии поверхностного натяжения на форму капель, но нельзя серьезно говорить о силе поверхностного натяжения, как о причине океанских приливов. Эфирная физика находит ответ на наблюдаемое явление искажения изображений галактик. Это результат нагрева эфира вблизи галактик, изменения его плотности и, следовательно, изменения скорости света на галактических расстояниях вследствие преломления света в эфире различной плотности. Подтверждением термической природы искажения изображений галактик является прямая связь этого искажения с радиоизлучением пространства, то есть эфира в этом месте, смещение спектра CMB (космическое микроволновое излучение) в данном направлении в высокочастотную область. Подробнее читайте в FAQ по эфирной физике.
