Срешением определить информационный объем графического файла в мбайтах, полученного в результате сканирования фотографии 12,7х10,16 см с разрешающей и глубиной цвета 16 бит.
Для расчёта информационного объёма растрового графического изображения (V) используем формулу: V = i * k, где i – глубина цвета - количество битов, требуемое для кодирования цвета пикселя; k – это количество этих пикселей (точек) в изображении, определяющееся разрешающей соответствующего устройства компьютера, в данном случае – сканера.
Разрешающая сканера – 256 (28) точек на дюйм. 1 дюйм = 2,54 см.
Переведём см в дюймы: 12,7/2,54 = 5 д.; 10,16/2,54 = 4 д.
Находим количество пикселей (k), умножая и горизонталь, и вертикаль на разрешающую сканера: 5 * 256 * 4 * 256
Чтобы не пользоваться калькулятором, представим все возможные множители в степенях числа 2: 5 * 2⁸ * 2² * 2⁸ = 5 * 2¹⁸ (пикселей)
{ Запись 5 строк в файл } procedure TForm1.Button1Click(Sender: TObject); var outfile: TextFile; begin AssignFile(outfile, 'outfile.txt') ;Rewrite(outfile); writeln(outfile, 'Привет из Delphi'); writeln(outfile, 'Моя программа работает, и выводит ' +'данный текст, чтобы доказать это...'); writeln(outfile, '3. Треться строка'); writeln(outfile, '234 четвертая'); writeln(outfile, 'Пятая строка'); CloseFile(outfile); end;
// вывод на экран точнее в мемо или лист бокс
procedure TForm1.Button2Click(Sender: TObject); begin // выводим в мемо Memo1.Lines.LoadFromFile('outfile.txt'); // либо в лист бокс как тебе лучше ListBox1.Items.LoadFromFile('outfile.txt'); end;
// кнопка для закрытия
procedure TForm1.Button3Click(Sender: TObject); begin Close; end;
// событие onClose
procedure TForm1.FormClose(Sender: TObject; var CloseAction: TCloseAction); begin if MessageDlg('Вы точно хотите выйти?', mtConfirmation, mbOkCancel,0)= mrOk then begin CloseAction:= caFree; end else begin CloseAction:= caNone; end; end;
ЗДЕСЬ! outfile.txt - это ваш файл(может создаваться автоматически
ЧТО НУЖНО СДЕЛАТЬ? 1. Закинуть на форму 3 кнопки 2. Закинуть ListBox или Memo 3. В событиях формы в инспекторе объектов (Инспетор Объектов/ События/ onClose) в onClose выбрать процедуру FormClose
E - это 14 (Алфавит этой системы счисления — (0, 1, 2, 3, 4, 5, 6, 7, 8, 9, A, B, C, D, E, F). Иными словами, используются цифры от 0 до 9 и латинские буквы от A до F для обозначения цифр от 10 до 15.)
Для расчёта информационного объёма растрового графического изображения (V) используем формулу: V = i * k, где i – глубина цвета - количество битов, требуемое для кодирования цвета пикселя; k – это количество этих пикселей (точек) в изображении, определяющееся разрешающей соответствующего устройства компьютера, в данном случае – сканера.
Разрешающая сканера – 256 (28) точек на дюйм. 1 дюйм = 2,54 см.
Переведём см в дюймы: 12,7/2,54 = 5 д.; 10,16/2,54 = 4 д.
Находим количество пикселей (k), умножая и горизонталь, и вертикаль на разрешающую сканера: 5 * 256 * 4 * 256
Чтобы не пользоваться калькулятором, представим все возможные множители в степенях числа 2: 5 * 2⁸ * 2² * 2⁸ = 5 * 2¹⁸ (пикселей)
i = 16 = 2⁴ бит (глубина цвета)
Помним, что 1 байт = 8 бит = 2³ бит; 1 Кбайт = 1024 байта = 2¹⁰ байт = 2¹³ бит; 1 Мбайт = 1024 Кбайта = 2¹⁰ Кбайт = 2²⁰ байт = 2²³ бит
Считаем V или I, кто как пишет:
V = 2⁴ * 5 * 2¹⁸ = 5 *2²² бит/2²³ = 5 * 2⁻¹ Мбайт = 5 * 0,5 = 2,5 Мбайт (ответ)