2) procedure TForm1.Button1Click(Sender: TObject);
var a: array[1..8] of integer; i:integer;
begin
for i := 1 to 8 do
a[i] := StrToInt(Memo1.Lines[i-1]);
Shape1.Height:=a[1];
Shape2.Height:=a[2];
Shape3.Height:=a[3];
Shape4.Height:=a[4];
Shape5.Height:=a[5];
Shape6.Height:=a[6];
Shape7.Height:=a[7];
Shape8.Height:=a[8];
end;
3) procedure TForm1.Button1Click(Sender: TObject);
var a: array [1..8] of real; b: array [1..8] of TShape; i: integer; min: real;
begin
for i := 1 to 8 do
a[i] := StrToInt(Memo1.Lines[i-1]);
min := a[1];
for i := 1 to 8 do
If a[i] < min Then min := a[i];
b[1] := Shape1; b[2] := Shape2; b[3] := Shape3; b[4] := Shape4;
b[5] := Shape5; b[6] := Shape6; b[7] := Shape7; b[8] := Shape8;
for i := 1 to 8 do
If a[i] = min Then b[i].Brush.Color:= clgreen else b[i].Brush.Color:= clgray;
end;
Появление гаджетов и рождение всемирной сети изменили жизнь человечества раз и навсегда. Что же такое Интернет и какую роль он играет в нашей жизни?
В толковых словарях приводится такое значение термина "интернет" – система компьютерных сетей, предназначенных для хранения и передачи информации. Но по сути, Интернет – это целый мир, существующий параллельно с нашей реальностью.
Миллионы сайтов позволяют человеку, не отходя от компьютера, совершать сотни действий. Уже давно стало привычкой узнавать последние новости и прогноз погоды в Интернете. Электронная почта давно потеснила почту привычную, да и платежные системы в сети становятся все более популярными. Благодаря интернету, человек может свободно совершать покупки в различных магазинах мира, заказать билеты на самолет, в театр или на выставку, спланировать путешествие, не выходя из дома, делать ставки на аукционах и даже управлять отдельными гаджетами в своем доме.
Говоря о преимуществах Всемирной сети, невозможно обойти ее ценность, как источника информации. Теперь достаточно иметь под рукой компьютер и подключение к Интернету, и можно свободно посетить самые знаменитые библиотеки, архивы, музеи, получить консультацию у специалистов в любой области на профессиональных форумах.
Глобальная сеть подарила человечеству и миллионы рабочих мест. Уже никого не удивишь такими видами деятельности, как интернет-маркетинг, онлайн-бизнес, фриланс. Возможность удаленного доступа сделала возможным и обучение на дому. Достаточно лишь записаться на онлайн курсы и можно стать слушателем МГУ, Гарварда или Оксфорда.
Но большая часть сайтов посвящена, конечно, развлечениям: это кинофильмы, музыка, игры, форумы и социальные сети. Вот здесь и кроется источник недостатков, в которых часто обвиняют Интернет. Да, человек зачастую становится зависимым от Сети, невольно подменяя реальный мир виртуальным. В психологии даже появилось специальное понятие "интернет-зависимость
Объяснение:
