logo
Вход Регистрация Спроси Mozg AI
М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
Света1011111
Света1011111
29.08.2021 19:46 •  Информатика

1. рассчитать размер файла для сотового телефона размером 100*100 пикселей и количеством цветов в палитре - 16 2. рассчитать количество бит, необходимых для кодирования 16 цветов в изображении. 3. рассчитать размер файла изображения для сотового телефона размером 125 на 125 пикселей. для кодирования цвета используется 4 бита.

👇
Увидеть ответ
Ответ:
Карина9653
Карина9653
29.08.2021
1. Определяем глубину цвета 4
  2^4=16
Определяем размер файл ширина*высота*глубина
  100*100*4=40 000 бит
2. Рассчитать количество бит, необходимых для кодирования 16 цветов в изображении. 16= 2^4, -> то есть 4 бита для кодирования 16цветов
3.Рассчитать размер файла изображения для сотового телефона размером 125 на 125 пикселей. Для кодирования цвета используется 4 бита.
  глубина цвета=2, так 2^2=4
  125*125*2=15626*2=31259 бит
4,5(24 оценок)
Открыть все ответы
Ответ:
Unikorn111
Unikorn111
29.08.2021
PascalABC.NET 3.4.0, сборка 1672 от 10.06.2018
Внимание! Если программа не работает, обновите версию!

Самое глупое, что можно было придумать - использовать цикл с предусловием while ... do там, где имеется заданное число повторений:

begin
  var n:=ReadInteger('n=');
  var (s,i):=(0.0,1);
  while i<=n do begin
    s+=1/Sqr(2*i+1);
    i+=1
    end;
  Writeln('S=',s)
end.

Пример
n= 10
S=0.210988884817533

Гораздо естественнее тут выглядит цикл со счетчиком:

begin
  var n:=ReadInteger('n=');
  var s:=0.0;
  for var i:=1 to n do
    s+=1/Sqr(2*i+1);
  Writeln('S=',s)
end.

А если использовать современные возможности программирования в PascalABC.NET, решение вообще в одну строчку:

begin
  Writeln('S=',SeqGen(ReadInteger('n='),t->1/Sqr(2*t+1),1).Sum)
end.
4,6(67 оценок)
Ответ:
velvis2050
velvis2050
29.08.2021
PascalABC.NET 3.4.0, сборка 1672 от 10.06.2018
Внимание! Если программа не работает, обновите версию!

Самое глупое, что можно было придумать - использовать цикл с предусловием while ... do там, где имеется заданное число повторений:

begin
  var n:=ReadInteger('n=');
  var (s,i):=(0.0,1);
  while i<=n do begin
    s+=1/Sqr(2*i+1);
    i+=1
    end;
  Writeln('S=',s)
end.

Пример
n= 10
S=0.210988884817533

Гораздо естественнее тут выглядит цикл со счетчиком:

begin
  var n:=ReadInteger('n=');
  var s:=0.0;
  for var i:=1 to n do
    s+=1/Sqr(2*i+1);
  Writeln('S=',s)
end.

А если использовать современные возможности программирования в PascalABC.NET, решение вообще в одну строчку:

begin
  Writeln('S=',SeqGen(ReadInteger('n='),t->1/Sqr(2*t+1),1).Sum)
end.
4,5(91 оценок)
Это интересно:
С
Как отчистить сандалии Rainbow...
С
Как завивать волосы в кудри: простые шаги и полезные советы...
Д
Дом-и-сад
08.06.2022
Как почистить LEGO: простые способы, которые помогут сохранить блестящую внешность игрушек...
Т
Транспорт
18.02.2022
Как диагностировать автомобильную помпу...
Х
Как использовать объективы с байонетом M42 на цифровых фотоаппаратах Canon EOS...
П
Как завоевать доверие собаки: советы для новичков...
К
Как приготовить тыкву: от супа до печенья...
К
Как исправить проблемы с завершением работы Windows...
Х
Как выбрать апертуру объектива: все, что вам нужно знать...
О
Как убедить человека рассказать свой секрет? Открываем профессиональные секреты психологии...
Новые ответы от MOGZ: Информатика
ULYA1111111
ULYA1111111
08.01.2022
Программа которая переводит десятичное число в восьмеричное паскаль...
facss
facss
07.12.2020
Известно, что скорость передачи информации по имеющемуся каналу подключения к сети интернет составляет 128килобит/сек. скачивание из сети по этому каналу текстового файла...
великан007
великан007
12.02.2021
Народ , 20 каково значение функции length ( с днем рождения )? а) 0; в) 15; с) 2; d) 14. какой из операторов присваивания верен? a) name: = москва; c) name$: = москва...
krll333
krll333
08.09.2020
Открыть в паскале текстовый файл,в котором прописаны цифры от 0 до 9 и буквы, напечатать да если в запись строки входят все числа от 0 до 9 в противном случае напечатать...
olenapolova4
olenapolova4
11.07.2022
Pascal! дана последовательность целых чисел признак окончаний которой 0.найдите сумму всех элементов последовательности....
русляккисляк
Сколько бит информации содержится в сообщении объёмом 512 байт?...
KrasotkaSofia195
KrasotkaSofia195
14.02.2020
Дан двумерный массив размерностью 5x7, заполненный случайным образом. найти наименьший и наибольший элементы двумерного массива, поменять их местами. (в паскале)...
Асат11
Асат11
23.12.2022
Штирлицу удалось похитить пароль от сейфа с секретными материалами — группенфюрер мюллер неосторожно написал его на бумаге и, порвав на несколько частей, выбросил в урну....
ваня1340
ваня1340
04.11.2020
Дано слово состоящее из четного числа букв вывести на экран буквы стоящие на чётных местах...
derek56
derek56
04.11.2020
Найти количество элементов массива, лежащих в диапазоне от -10 до 20...

MOGZ ответил

Полный доступ к MOGZ
Живи умнее Безлимитный доступ к MOGZ Оформи подписку
О НАС
ПОМОЩЬ
App
.
.
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ