|
|
|
Под выводом массива
понимается вывод на экран монитора (в диалоговое окно) значений элементов массива.
Если в программе необходимо
вывести значения всех элементов массива, то для этого удобно использовать инструкцию
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.
|
|
|
Релятивисты и позитивисты утверждают, что "мысленный эксперимент" весьма полезный интрумент для проверки теорий (также возникающих в нашем уме) на непротиворечивость. В этом они обманывают людей, так как любая проверка может осуществляться только независимым от объекта проверки источником. Сам заявитель гипотезы не может быть проверкой своего же заявления, так как причина самого этого заявления есть отсутствие видимых для заявителя противоречий в заявлении.
Это мы видим на примере СТО и ОТО, превратившихся в своеобразный вид религии, управляющей наукой и общественным мнением. Никакое количество фактов, противоречащих им, не может преодолеть формулу Эйнштейна: "Если факт не соответствует теории - измените факт" (В другом варианте " - Факт не соответствует теории? - Тем хуже для факта").
Максимально, на что может претендовать "мысленный эксперимент" - это только на внутреннюю непротиворечивость гипотезы в рамках собственной, часто отнюдь не истинной логики заявителя. Соответсвие практике это не проверяет. Настоящая проверка может состояться только в действительном физическом эксперименте.
Эксперимент на то и эксперимент, что он есть не изощрение мысли, а проверка мысли. Непротиворечивая внутри себя мысль не может сама себя проверить. Это доказано Куртом Гёделем.
Понятие "мысленный эксперимент" придумано специально спекулянтами - релятивистами для шулерской подмены реальной проверки мысли на практике (эксперимента) своим "честным словом". Подробнее читайте в FAQ по эфирной физике.
|
|
 |
