|
|
|
Под выводом массива
понимается вывод на экран монитора (в диалоговое окно) значений элементов массива.
Если в программе необходимо
вывести значения всех элементов массива, то для этого удобно использовать инструкцию
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.
|
|
|
Дело в том, что в его постановке и выводах произведена подмена, аналогичная подмене в школьной шуточной задачке на сообразительность, в которой спрашивается:
- Cколько яблок на березе, если на одной ветке их 5, на другой ветке - 10 и так далее
При этом внимание учеников намеренно отвлекается от того основополагающего факта, что на березе яблоки не растут, в принципе.
В эксперименте Майкельсона ставится вопрос о движении эфира относительно покоящегося в лабораторной системе интерферометра. Однако, если мы ищем эфир, как базовую материю, из которой состоит всё вещество интерферометра, лаборатории, да и Земли в целом, то, естественно, эфир тоже будет неподвижен, так как земное вещество есть всего навсего определенным образом структурированный эфир, и никак не может двигаться относительно самого себя.
Удивительно, что этот цирковой трюк овладел на 120 лет умами физиков на полном серьезе, хотя его прототипы есть в сказках-небылицах всех народов всех времен, включая барона Мюнхаузена, вытащившего себя за волосы из болота, и призванных показать детям возможные жульничества и тем защитить их во взрослой жизни. Подробнее читайте в FAQ по эфирной физике.
|
|
 |
