Сколько цветов будет содержать палитра, если на один пиксель отводится 4 бита памяти?
198
413
Ответы на вопрос:
// pascalabc.net 3.3.5, сборка 1644 от 23.03.2018// внимание! если программа не работает, обновите версию! function atodec(n: string; k: integer): string; // перевод из системы по основанию k в десятичнуюbegin var s: ='0123456789abcdef'; result: =''; var pointpos: =pos('.',n); if pointpos> 0 then begin // есть дробная часть var sfracpart: =n[pointpos+1: ]; var r: =0.0; var p: =k; foreach var c in sfracpart do begin r+=(pos(c,s)-1)/p; p*=k; end; result: =r.tostring[2: ] end else pointpos: =n.length+1; var pa: =1; n: =n[: pointpos]; var p: =0; foreach var c in n.reverse do begin p+=pa*(pos(c,s)-1); pa*=k end; result: =p.tostring+resultend; function dectoa(n: string; k: integer): string; // перевод из десятичной системы в систему по основанию kbegin var s: ='0123456789abcdef'; result: =''; var pointpos: =pos('.',n); var intpart: integer; if pointpos> 0 then begin // есть дробная часть var fracpart: =frac(n.toreal); var m: =0; while true do begin var r: =fracpart*k; result+=s[trunc(r)+1]; fracpart: =frac(r); m+=1; if (m=15) or (fracpart=0) then break end; intpart: =n[: pointpos].tointeger; end else intpart: =n.tointeger; if result< > '' then result: ='.'+result; while intpart> 0 do begin result: =s[intpart mod k+1]+result; intpart: =intpart div k end; if result='' then result: ='0'; if result[1]='.' then result: ='0'+resultend; function atob(s: string; a,b: integer): string; // перевод из системы по основанию a в систему по основанию bbegin if a=10 then result: =dectoa(s,b) else if b=10 then result: =atodec(s,a) else result: =dectoa(atodec(s,a),b)end; begin var n: =readlnstring('какое число перевести? '); var (a,b): =readinteger2('исходное и результирующее основания: '); writeln(n,'(',a,') = ',atob(n,a,b),'(',b,')'); end. пример какое число перевести? 345.653 исходное и результирующее основания: 8 16 345.653(8) = e5.d58(16)
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
nicoguy226.04.2020 09:58
-
mrgebil14.04.2021 11:55
-
arte676709.03.2021 23:55
-
Zxcvbnm90023.03.2021 17:42
-
Julai123426.03.2020 22:14
-
joi705.11.2021 18:45
-
dsgsdfgasdasd26.10.2020 14:42
-
kolyakolomiets19.12.2021 16:33
-
Olesyalesya5529.08.2020 09:38
-
Romays12.04.2023 05:21
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.