Const dlin = 100; var b:array[1..dlin,1..2] of integer; i,j,x:integer; begin writeln('Исходный массив:'); for i:=1 to dlin do begin b[i,1]:=random(800)+100; write(b[i,1],' '); b[i,2]:=b[i,1] mod 10 + b[i,1] div 100 + b[i,1] div 10 mod 10; end; writeln;
for i:=1 to dlin-1 do for j:=dlin-1 downto i do if b[j,2]>b[j+1,2] then begin x:=b[j,2]; b[j,2]:=b[j+1,2]; b[j+1,2]:=x; x:=b[j,1]; b[j,1]:=b[j+1,1]; b[j+1,1]:=x; end;
writeln('Отсортированный массив:'); for i:=1 to dlin do write(b[i,1],' ');
Мультимедиа сейчас - это полноценное объединение компьютерных и других информационных технологий: видео, аудио, фото, кино, телекоммуникаций (телефон, телевидение, радиосвязь), не говоря уже о тексте и графике, как статической, так и динамической (анимационной). с приложений мультимедиа текст, графика, аудио- и видеоинформация объединяются в единое информационное поле, подобно тому как в кинофильме объединяются звук и движущееся изображение. однако в отличие от кинофильма мультимедиа представляет собой интерактивную среду, т. е. пользователь может процессом представления мультимедиа с различных средств ввода, таких как клавиатура и манипулятор мышь.
Линейный (последовательный) алгоритм — описание действий, которые выполняются однократно в заданном порядке. линейными являются алгоритмы отпирания дверей, заваривания чая, приготовления одного бутерброда. линейный алгоритм применяется при вычислении арифметического выражения, если в нем используются только действия сложения и вычитания.
например алгоритм заварки чая:
вскипятить воду ополоснуть кипятком заварной чайник засыпать в чайник заварку залить кипятком заварной чайник накрыть чайник специальной грелкой подождать до полного заваривания 5 минут
var b:array[1..dlin,1..2] of integer;
i,j,x:integer;
begin
writeln('Исходный массив:');
for i:=1 to dlin do
begin
b[i,1]:=random(800)+100;
write(b[i,1],' ');
b[i,2]:=b[i,1] mod 10 + b[i,1] div 100 + b[i,1] div 10 mod 10;
end;
writeln;
for i:=1 to dlin-1 do
for j:=dlin-1 downto i do
if b[j,2]>b[j+1,2] then
begin
x:=b[j,2]; b[j,2]:=b[j+1,2]; b[j+1,2]:=x;
x:=b[j,1]; b[j,1]:=b[j+1,1]; b[j+1,1]:=x;
end;
writeln('Отсортированный массив:');
for i:=1 to dlin do
write(b[i,1],' ');
end.