uses crt; var a:array [1..100]of integer; n,i,j,k,x:integer; begin clrscr; randomize; write('n=');readln(n); writeln('Ishodnyj massiv:'); for i:=1 to n do begin a[i]:=random(200);; write(a[i],' '); end; writeln; for i:=2 to n do begin x:=a[i]; j:=1; while x>a[j] do inc(j); for k:=i-1 downto j do a[k+1]:= a[k]; a[j]:=x; end; writeln('Otsortirovannyj massiv:'); for i:=1 to n do write(a[i],' '); readln end.
Дискретные сигналы (они же цифровые) - принимают конечное число значений функции: примеры дискр: - энергетические уровни атома, - сигналы светофора - символы, слова... и т.д. и т.п. непрерывный (он же аналоговый) - принимает бесконечное количество значений функции, амлитуда и время которого меняются непрерывно. примеры непрерывных: - звуковая волна, - диаграмма изменения влажности, напряжения, и других некоторых физических величин
для преобразования непрерывного сигнала в дискретные производят дискретизацию. Процесс дискретизации сопровождается потерей информации если частота дискретизации в 2 раза меньше максимальной частоты непрерывного сигнала по теореме Найквиста... В России эту теорему называют Котельникова.
Если удалить из костюма элемент брюки, то он уже не будет костюмом. Если удалить из автомобиля элемент колёса, то без колёс автомобиль не поедит. Если удалить из компьютера элемент процессор, то он не будет больше компьютером. Если удалить из городской телефонной сети элемент электричество в городе, то сеть не будет ловить. Если удалить из школы элемент учитель, то это не будет школой. Если удалить из государства Президента, то кто будет править государством? Сущ.:Костюм, автомобиль, компьютер,школа. Несущ.:Городск. телеф. связь, государство.
uses crt;
var a:array [1..100]of integer;
n,i,j,k,x:integer;
begin
clrscr;
randomize;
write('n=');readln(n);
writeln('Ishodnyj massiv:');
for i:=1 to n do
begin
a[i]:=random(200);;
write(a[i],' ');
end;
writeln;
for i:=2 to n do
begin
x:=a[i];
j:=1;
while x>a[j] do inc(j);
for k:=i-1 downto j do a[k+1]:= a[k];
a[j]:=x;
end;
writeln('Otsortirovannyj massiv:');
for i:=1 to n do
write(a[i],' ');
readln
end.