какое количество цветов в палитре , если информационный объём 512*512 равен 224 килобайта с решением

110

335

Посмотреть ответы 1

Ответы на вопрос:

пдсеьаомео

Информатика

4,4(59 оценок)

Program magicsquares; {построение магических квадратов} uses crt; type a_type=array [1..50,1..50] of integer ; var i,j,n: integer; a: a_type; t: boolean; {логическая переменная true (правда) или false (ложь)} x,y: integer; label 1; {метка} procedure print(n: integer; a: a_type); {процедура вывода} var i,j: integer; begin for i: =1 to n do begin for j: =1 to n do write(a[i,j]: 4); writeln('' ); end; end; procedure winsh(x1,y1,x2,y2,col1,col2: word); {процедура вывода окна} begin textbackground(black); window (x1+1,y1+1,x2+1,y2+1); {тень - черный прямоугольник} clrscr; textbackground(col1); window(x1,y1,x2,y2); clrscr; textcolor(col2); {рисование рамки} gotoxy(2, 1); write('г' ); for i: =1 to x2-x1-2 do write('=' ); gotoxy(x2-x1,1); write('=' ); gotoxy(2,y2-y1+1); write('l' ); for i: =1 to x2-x1-2 do write('=' ); gotoxy(x2-x1,y2-y1+1); write('-' ); for j: =2 to y2-y1 do begin gotoxy(2,j); write('¦' ); gotoxy(x2-x1,j); write('¦' ); end ; end; procedure oddmagic(n: integer; var a: a_type); {процедура формирования магического квадрата при нечетном n. описание алгоритма в сопроводительной записке } var i,j,k: integer; p,l: integer; begin for i: =1 to n do for j: =1 to n do a[i,j]: =0; j: =n div 2 +1; p: =sqr(n); i: =1; a[i,j]: =1; for l: =2 to p do begin i: =i-1; j: =j+1; if (i=0) and (j< > n+1) then i: =n; if (j=n+1) and (i< > 0) then j: =1; if ((i=0) and (j=n+1)) or (a[i,j]< > 0) then {важен порядок условий! } begin i: =i+2; j: =j-1; end ; a[i,j]: =l; end; end; procedure two (n: integer; var a: a_type); {процедура построения квадрата при n обычной четности: n=6,10,14,} var u,i,j,k,m,z: integer; b: a_type; begin u: = n div 2; m: =(u-1) div 2; oddmagic(u,b); {вызов процедуры построения квадрата при нечет-ном u} k: =u*u; for i: =1 to n do for j: =1 to n do begin if (i> =1) and (i< =u) and (j> =1) and (j< =u) then a[i,j]: =b[i,j]; if (i> =u+1) and (i< =n) and (j> =u+1) and (j< =n) then a[i,j]: =b[i-u,j-u]+k; if (i> =1) and (i< =u) and (j> =u+1) and (j< =n) then a[i,j]: =b[i,j-u]+2*k; if (i> =u+1) and (i< =n) and (j> =1) and (j< =u) then a[i,j]: =b[i-u,j]+3*k; end; for i: =1 to u do if i=u div 2+1 then begin j: = u div 2+1; for k: =1 to m do begin z: =a[i,j]; {обмен данными} a[i,j]: =a[i+u,j]; a[i+u,j]: =z; j: =j-1 end; end

Реши свою проблему, спроси otvet5GPT

Быстро
Мгновенный ответ на твой вопрос
Точно
Бот обладает знаниями во всех сферах
Бесплатно
Задай вопрос и получи ответ бесплатно

Задай свой вопрос

Популярно: Информатика

Есть вопросы?

Как otvet5GPT работает?

otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса.
Сколько это стоит?

Проект находиться на стадии тестирования и все услуги бесплатны.
Могу ли я использовать otvet5GPT в школе?

Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое!
В чем отличия от ChatGPT?

otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.