Источники аналоговой информации(непрерывной): 1. Скрипка. Может создавать звук любой высоты. Переход от тона к тону происходит плавно и непрерывно. 2. телевизор. Луч кинескопа плавно и непрерывно перемещается по экрану, и яркость отдельных участков меняется плавно. 3. Телефон, Громкость звука меняется плавно и непрерывно. 4. Картина, нарисованная художником с использованием большого количества оттенков красок. 5. Графики функций.
Источники цифровой (дискретной) информации. 1. Фортепьяно . Нельзя исполнить звуки между нотами «ми» и «фа». Переход от ноты к ноте осуществляется скачком. 2. Монитор. Яркость луча изменяется скачком – есть луч )яркая белая или цветная точка), нет луча (черная точка). 3. Музыкальный проигрыватель компакт дисков. 4. Компьютер 5. Мобильные телефоны.
Аналоговую информацию можно превратить в цифровую (для этого достаточно, например, разным цветам присвоить номер или музыку записать нотами) и наоборот.
Вирусная программа-червь (Worm-virus) - паразитическая программа, обладающая механизмом саморазмножения. Программа размножать свои копии, но не поражать другие компьютерные программы. Проникает на компьютер из сети (чаще всего как вложение в сообщениях электронной почты или через сеть Интернет) и рассылает свои функциональные копии на другие компьютерные сети.
Скрипт-вирусы (Script virus) - вирусы, написанные на языках Visual Basic, Basic Script, Java Script. На компьютер пользователя такие вирусы, чаще всего, проникают в виде почтовых сообщений, содержащих во вложениях файлы-сценарии. Программы на языках Visual Basic и Java Script могут располагаться как в отдельных файлах, так и встраиваться в HTML-документ и в таком случае интерпретироваться браузером, причем не только с удаленного сервера, но и с локального диска.
PascalABC.NET
uses GraphABC;
procedure Figure(x,y:integer);
begin
setpenwidth(2);
setbrushcolor(clwhite);
rectangle(x, y, x + 50, y + 50);
setbrushcolor(clrandom);
circle(x, y, 10);
setbrushcolor(clrandom);
circle(x + 50, y + 50, 10)
end;
begin
var x := 0;
for var i := 1 to ReadInteger('N =') do begin
figure(15 + x, 50);
x += 100;
end;
end.