Он точно будет меньше. Мы и так видим, что раньше компьютер был больше похож на комнату, заполненную коробками. И при этом делал совсем небольшую работу! Сейчас у всех уже телефон – почти компьютер. Достаточно мощные компьютеры можно переносить в чемоданчике… Даже сравнить если записи информации – раньше огромные штуки с пленкой были, а теперь малюсенькие флешки. И вообще, никакие почти хранилища информации не будут нужны – твой компьютер сразу станет подключаться к Сети, где всё есть. И сейчас уже существуют «облачные» хранилища. Раньше всякие драйвера для установки нужно было искать на дисках, а теперь их можно просто скачать из Интернета. Ничего не надо будет хранить на самом компе, всё даже своё можно будет забрать из сети.
У него точно будет меньше пластиковых и, вообще, реальных частей. То есть, например, уже сейчас появились компьютеры, для которых клавиатура есть, но она не сделана из пластика или ещё чего-нибудь реального. Просто включаешь лучи света, получается такая световая «матрица». И ты печатаешь по ней, задеваешь световые лучи, а они уже передают информацию, как будто ты нажал на клавишу с буквой. Экран тоже не понадобится, всё будет показано или на ровной белой поверхности (лист бумаги поставил и всё) или дальше в голограмме. Ты сможешь, как в виртуальной реальности, касаться частей этой голограммы, а они будут раскрываться, как «иконка» на компе сейчас. То есть компьютер уменьшится до просто кнопки, которая будет запускать – раскрывать всю систему.
Объяснение:
program z1;
uses GraphABC;
var t:integer;
begin
SetWindowWidth(400);
SetWindowHeight(400);
SetFontSize(15);
write('Введите показания температуры: ');
read(t);
write(t);
SetPenWidth(2);
if t<=0 then
begin
SetPenColor(clBlue);
Line (150,200,200,150);
Line (200,150,250,200);
Line (250,200,200,250);
Line (200,250,150,200);
FloodFill(200,200,clLightBlue);
Line (100,200,300,200);
Line (200,100,200,300);
Line (100,100,300,300);
Line (100,300,300,100)
end
else
begin
SetPenColor(clYellow);
Line (100,200,300,200);
Line (200,100,200,300);
Line (100,100,300,300);
Line (100,300,300,100);
SetBrushColor(clYellow);
FillCircle(200,200,50)
end
end.
Объяснение:
картинки