1. Находим общее количество пикселей n = 1024×768 = 786432 2. Находим количество бит, необходимое для отображения цвета одного пикселя k=㏒₂64 = 6 (или просто вспоминаем, что 64=2⁶) 3. Определяем объем информации в битах I = n×k = 786432×6 = 4718592 бит 4. Переводим в более крупные единицы - в байты: 1 байт=8 бит; 4718592 бит/8 = 589824 байт - в Кбайты: 1 Кбайт=1024 байта; 589824 байт/1024 = 576 Кбайт - в Мбайты: 1 Мбайт=1024 Кбайта; 576 Кбайт/1024 = 0.5625 Мбайт.
Б. Решение "в степенях двойки"
1. Находим общее количество пикселей n = 1024×768 = 2¹⁰×2⁹×1.5 = 2¹⁹×1.5 2. Находим количество бит, необходимое для отображения цвета одного пикселя k=㏒₂64 = 6 (или просто вспоминаем, что 64=2⁶) 3. Определяем объем информации в битах I = n×k = 2¹⁹×1.5×6 = 2¹⁹×9 бит 4. Переводим в более крупные единицы - в байты: 1 байт=2³ бит; 2¹⁹×9 бит/2³ = 2¹⁶×9 байт - в Кбайты: 1 Кбайт=2¹⁰ байт; 2¹⁶×9 байт/2¹⁰ = 2⁶×9 Кбайт = 64×9 = 576 Кбайт - в Мбайты: 1 Мбайт=2¹⁰ Кбайт; 2⁶×9 Кбайт/2¹⁰ = 2⁻⁴×9 Мбайт = 9/16 Мбайт = 0.5625 Мбайт.
Var InFile, OutFile: text; // Вводной и выводной файлы Var a,b,c, D, Result : Integer; Assign(InFile, "C:\kvur.txt"); Assign(OutFile, "C:\korni.txt") Reset(InFile) Read(InFile,a) Read(InFile,b) Read(InFile, c) D = sqr(b) + 4*a*c if D = 0 then Write("Уравнение не имеет корней") Else Append(OutFile) Result:=(-b + sqrt(D)) / 2 * a Write(OutFile,Result) Write("Корень уравнения") WriteLn(Result) if (D>0) then Result:=(-b - sqrt(D)) / 2 * a Write(OutFile, Result) Write("Второй корень уравнения") Write(Result) End; End.
Возрастание:
const n=10;
var a:array [1..n] of integer;
i,j,v:integer;
begin
write(' Исходный массив: ');
for i:=1 to n do
begin
a[i]:=random(90)+10;
write(a[i],' ')
end;
writeln;
for i:=1 to n do
for j:=1 to n-i do
if a[j]>a[j+1] then
begin
v:=a[j];
a[j]:=a[j+1];
a[j+1]:=v
end;
write('Отсортированный массив: ');
for i:=1 to n do write(a[i],' ');
end.
Убывание:
const n=10;
var a:array [1..n] of integer;
i,j,v:integer;
begin
write(' Исходный массив: ');
for i:=1 to n do
begin
a[i]:=random(90)+10;
write(a[i],' ')
end;
writeln;
for i:=1 to n do
for j:=1 to n-i do
if a[j]<a[j+1] then
begin
v:=a[j];
a[j]:=a[j+1];
a[j+1]:=v
end;
write('Отсортированный массив: ');
for i:=1 to n do write(a[i],' ');
end.