Источники аналоговой информации(непрерывной): 1. Скрипка. Может создавать звук любой высоты. Переход от тона к тону происходит плавно и непрерывно. 2. телевизор. Луч кинескопа плавно и непрерывно перемещается по экрану, и яркость отдельных участков меняется плавно. 3. Телефон, Громкость звука меняется плавно и непрерывно. 4. Картина, нарисованная художником с использованием большого количества оттенков красок. 5. Графики функций.
Источники цифровой (дискретной) информации. 1. Фортепьяно . Нельзя исполнить звуки между нотами «ми» и «фа». Переход от ноты к ноте осуществляется скачком. 2. Монитор. Яркость луча изменяется скачком – есть луч )яркая белая или цветная точка), нет луча (черная точка). 3. Музыкальный проигрыватель компакт дисков. 4. Компьютер 5. Мобильные телефоны.
Аналоговую информацию можно превратить в цифровую (для этого достаточно, например, разным цветам присвоить номер или музыку записать нотами) и наоборот.
// PascalABC.NET 3.2, сборка 1478 от 10.06.2017 // Внимание! Если программа не работает, обновите версию!
begin var s:=ReadlnString('Введите текст, завершив его точкой:'); var p:=Pos('.',s); if (p>0) and (p<s.Length) then s:=s[:p+1]; Writeln('Количество предложений равно ',s.ToWords('!').Count) end.
Пример Введите текст, завершив его точкой: Тест 1!тестовое №2!Тест3.Тест4! Количество предложений равно 3
Если считать, что текст гарантированно завершается точкой, то можно упростить код программы до одного оператора:
begin Writeln('Количество предложений равно ', ReadlnString('Введите текст, завершив его точкой:').ToWords('!').Count) end.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
uses GraphABC;
type point=record
x,y:integer;
end;
procedure plitk(x,y,r:integer);
var p:array[1..9]of point;
a,da:real;
i:byte;
begin
a:=pi/2;
da:=pi/4;
for i:=1 to 9 do
begin
p[i].x:=x+round(r*cos(a));
p[i].y:=y-round(r*sin(a));
a:=a+da;
end;
polygon(p,9);
end;
var r,i,j,x,y,d:integer;
begin
r:=20;
y:=r;
while y<=windowheight do
begin
x:=r;
while x<=windowwidth do
begin
plitk(x,y,r);
x:=x+2*r;
end;
y:=y+2*r
end;
end