|
|
|
Под выводом массива
понимается вывод на экран монитора (в диалоговое окно) значений элементов массива.
Если в программе необходимо
вывести значения всех элементов массива, то для этого удобно использовать инструкцию
for, при этом переменная-счетчик инструкции for может быть использована в качестве
индекса элемента массива.
В качестве примера
на рис. 5.1 приведено диалоговое окно приложения, которое демонстрирует инициализацию
и процесс вывода значений элементов массива в поле метки. Программа выводит
пронумерованный список футбольных команд. Следует обратить внимание, что для
того чтобы список команд выглядел действительно как список, свойству Label1.AutoSize
нужно присвоить значение False (присвойте свойству Label1.AutoSize значение
True и посмотрите, как будет работать программа). Текст программы приведен в
листинге 5.1.
Рис. 5.1. Форма
и диалоговое окно приложения Вывод массива
Листинг 5.1.
Инициализация и вывод массива
unit
outar_;
interface
uses
Windows, Messages, SysUtils, Variants,
Classes,
Graphics, Controls, Forms,
Dialogs,
StdCtrls;
type
TForm1
= class(TForm)
Button1:
TButton;
Label1:
TLabel;
procedure ButtonlClick(Sender: TObject);
private
{ Private declarations } public
{ Public declarations } end;
var
Form1:
TForm1;
implementation
($R
*.dfm}
const
NT
= 5;
var
team:
array[1..NT] of string[10] =
('Зенит','Динамо','Ротор','Спартак','СКА'
procedure TForml.ButtonlClick(Sender: TObject);
var
st:string;
// список команд
i:integer; // индекс, номер элемента массива
begin
//
формирование списка для отображения в форме
for i:=l to NT do st := st + IntToStr(i)+ ' '
+ team[i] + #13; // вывод списка Label1.Caption := st;
end;
end.
|
|
|
Понятие же "физического вакуума" в релятивистской квантовой теории поля подразумевает, что во-первых, он не имеет физической природы, в нем лишь виртуальные частицы у которых нет физической системы отсчета, это "фантомы", во-вторых, "физический вакуум" - это наинизшее состояние поля, "нуль-точка", что противоречит реальным фактам, так как, на самом деле, вся энергия материи содержится в эфире и нет иной энергии и иного носителя полей и вещества кроме самого эфира.
В отличие от лукавого понятия "физический вакуум", как бы совместимого с релятивизмом, понятие "эфир" подразумевает наличие базового уровня всей физической материи, имеющего как собственную систему отсчета (обнаруживаемую экспериментально, например, через фоновое космичекое излучение, - тепловое излучение самого эфира), так и являющимся носителем 100% энергии вселенной, а не "нуль-точкой" или "остаточными", "нулевыми колебаниями пространства". Подробнее читайте в FAQ по эфирной физике.
|
|
 |
