2b. One image loses 23% of volume after filtration and compression. The initial resolution of images is around 1024x1086. Count the free volume which you need if you have to store visual information about 750000 patients
Если панель инструментов "рисование" или "текстовые эффекты" не видна, перейдите в меню по пути вид – панели инструментов для активации панели инструментов. на панели инструментов рисование или текстовые эффекты щёлкните значок галерея текстовых эффектов. значокв диалоговом окне галерея текстовых эффектов выберите стиль текстового эффекта и нажмите кнопку "ок". объект текстового эффекта вставляется в документ. объекты текстовых эффектов являются пользовательскими фигурами. с панели инструментов "параметры трёхмерного изображения" можно в любой момент перейти от двумерного просмотра к трёхмерному и обратно. дважды щёлкните объект, чтобы перейти в режим редактирования текста. замените стандартный текст эффекта своим. чтобы выйти из режима редактирования текста, нажмите клавишу esc.
program sorting;
const
N = 10;
var
v: array[1..N] of integer;
d: integer;
i, t: integer;
k: boolean;
begin
randomize;
write('ДО сортировки: ');
for i := 1 to N do
begin
readln(v[i])
write(v[i]:6);
end;
}
d := N div 2;
while(d > 0) do
begin
k := true;
while k do
begin
k := false;
i := 1;
for i := 1 to N - d do
begin
if(v[i] > v[i + d]) then
begin
t := v[i];
v[i] := v[i + d];
v[i + d] := t;
k := true;
end;
end;
end;
d := d div 2;
end;
writeln;
write('ПОСЛЕ сортировки: ');
for i := 1 to N do
write(v[i]:6);
writeln;
end.