М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
даша2336
даша2336
15.12.2021 15:39 •  Информатика

Решить : 1. определить требуемый объем видеопамяти для экрана монитора с разрешающей точек, если глубина цвета на одну точку составляет 16 бит. 2. определить объем растрового изображения размером 600 х 800 при глубине цвета 24 бита. 3. для хранения растрового изображения размером 1024 х 512 пикселей отвели 256 кбайт памяти. каково максимально возможное число цветов в палитре изображения?

👇
Ответ:
Igorkhvan
Igorkhvan
15.12.2021
1)640*480=307200 (всего пикселей).Т.к. на один пиксель 16 бит,то
307200*16=4915200 бит/8=614400 байт/1024=600 Кбайт.
2)600*800=480000 (всего пикселей).Глубина цвета=24,значит
480000*24=11520000/8=1440000 байт/1024=1406,25 Кбайт/1024=1,4 Мбайт
3)V=k*i, где k-количество пикселей ; i-глубина цвета.
i=V/k
256*1024*8=2097152 (Объем в битах)
i=2097152/1024/512=4 бита -глубина цвета
N=2^i; 
N=2^4=16 цветов.
ответ:16
4,5(57 оценок)
Открыть все ответы
Ответ:
Radmula
Radmula
15.12.2021
// PascalABC.NET 3.2, сборка 1437 от 03.05.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var s:=ReadlnString;
  if s<>s.MatchValue('[01]+') then Write('не ');
  Writeln('двоичное число')
end.

Пример
010101111011
двоичное число

begin
  var s:=ReadlnString;
  if s<>s.MatchValue('[\+-]?\d+.\d+') then Write('не ');
  Writeln('дробное число')
end.

Пример
12.54
дробное число

begin
  var s:=ReadlnString;
  s.Matches('\s([\+-]?\d{2})\s').Select(t->Trim(t.Value)).Println;
end.

Пример
123.3 15 -11.7 +21 23.2 51 9 182
15 +21 51
4,6(65 оценок)
Ответ:
Alimmmmm
Alimmmmm
15.12.2021
Не понравилась реализация, переделал, специально сохранив основу предыдущего решения.

const
  legal = ['0'..'9', 'A'..'F', 'a'..'f'];

var
  s: string;
  i: integer;
  IsHex: Boolean;

begin
  writeln('Введите строку: ');
  readln(s);
  i := 1;
  IsHex := True;
  while (i <= length(s)) and IsHex do
  begin
    if not (s[i] in legal) then IsHex := False;
    i := i + 1
  end;
  if isHex then
    writeln('Введенная строка является шестнадцатиричным числом.')
  else
    writeln('Введенная строка не является шестнадцатиричным числом.');
end.

Тестовое решение:

Введите строку:
58bfa
Введенная строка является шестнадцатиричным числом.
Введите строку:
1054Acg
Введенная строка не является шестнадцатиричным числом.
4,5(68 оценок)
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ