Дано Разрешающая сканера 600 х 600 dpi. Размер 10см х 15см. Глубина Цвета 3 байта. Найти: Каков информационный объем этого файла? Решение Вначале переводим глубину цвета из байт в биты 3 байта 8биТв байте 24 бит вычисляем разрешение сканера в 1 дюйме квадрат 600600 360 000 пикселей в 1 дюйм Переводим размер картинки из квадратов Сантиметров в Квадратные дюймы 10см 3.937дюйма 15см 5,906 дюйма 1015-150 смл2-3,937 5 906 23,25 дюйм Вычисляем в разрезе 23,25 дюймл2 360 000 пикселей в 1 дюйм 2E 8 370 000 пикселей Информационный объем вычисляем по формуле КОЛИЧЕСТВО ПИКСелей глубину цвета 8 370 000 пикселей 24 биTE 200 880 000 бит. lереводим в бай Ты делением На 8 25 110 000 байт или же делим на 10241024 чтобы получить количество мегабайт 23,95 мегабайт ответ: Информационный объем отсканированного изображения или 23,95 Мегабайт
Program Number; var x: integer; { введенное число } n: byte := 0; { количество цифр в числе } i, j: byte; { счетчики } xi: array[1..5] of integer;{массив цифр, из которых состоит число} begin { Ввод исходного числа } readln(x); writeln; x := abs(x); // рассматриваем модуль числа { Разбиение числа на цифры } while (x > 0) do begin n := n + 1; // увеличиваем количество цифр xi[n] := x mod 10; // вычисляем цифру (остаток от деления на 10) if xi[n] = 8 then // если встретилась 8, begin writeln('да'); // то число "бесконечное" readln; exit; // выход из программы end; x := x div 10; // изменяем число (целое от деления на 10) end; { Поиск цифр, встречающихся больше одного раза} for i := 1 to n - 1 do for j := i + 1 to n do if xi[i] = xi[j] then // если числа begin writeln('да'); // то число "бесконечное" readln; exit; // выход из программы end; { Число не явлется "бесконечным" } writeln('нет');end.
В программе буквы добавляются по алфавиту без повторений. var s1,s2:string; function F(var a,b:string):boolean; var m:set of char; i:integer; c:char; begin m:=[]; for i:=1 to length(a) do if pos(a[i],b)=0 then m:=m+[a[i]]; for c:=chr(32) to chr(255) do if c in m then a:=a+c; if m=[] then f:=false else f:=true; end; begin writeln('Введите строку 1:'); readln(s1); writeln('Введите строку 2:'); readln(s2); if f(s1,s2) then writeln('Новая строка: ',s1) else writeln('Строка не изменилась ');end.
Пример: Введите строку 1: program Введите строку 2: procedure Новая строка: programagm
