6.вывести на экран таблицу перевода температуры из градусов по шкале цельсия (с) в градусы по шкале фаренгейта (f) для значений от 0ос до 30oс с шагом 2ос (перевод осуществляется по формуле f = 1, 8∙c + 32 ( конструкція while)
for i: =0 to 15 do beginb[i]: =1.8*a[i]+32; writeln(a[i],' градуса(ов)','=',b[i],' по фаренгейту'); end;
end.
вот еще через while
vara,b: array [0..15] of real;
i: integer; begin
for i: =0 to 15 doa[i]: =i*2;
i: =0; while i< =15 do beginb[i]: =1.8*a[i]+32; i: =i+1; end; for i: =0 to 15 dowriteln(a[i],' градуса(ов)','=',b[i],'по фаренгейту'); end.
Акоповна
05.01.2022
Const n=10; var a: array[1..n+1] of integer; k,i: integer; b: boolean; begin randomize; for i: =1 to n do begin a[i]: =random(21)-10; write(a[i]: 4); end; writeln; write('введите число: '); readln(k); b: =false; for i: =1 to n do if a[i]=k then b: =true; if not b then begin for i: =n+1 downto n div 2 + 1 do a[i]: =a[i-1]; a[n div 2]: =k; for i: =1 to n+1 do write(a[i]: 4); writeln; end else writeln('массив не изменился'); end. пример: 6 10 -5 -3 -9 -8 -3 3 -9 7 введите число: 4 6 10 -5 -3 4 -9 -8 -3 3 -9 7
stachevay-lera
05.01.2022
Все однотипные, нужно знать понятия глубины цвета и как расчитывается объём для растрового изображения. 1.всего пикселей 128*128= 2^14(2 в 14-ой степени) так как 32 цвет, то один символ кодируется 5 битами (log2(32), если бы было 33 цвета то уже бы потребовалось 6 бит, так как 5 бы не хватило). нам нужно в килобайтах значит нужно разделить на 2^13 (т.к. в 1 кбайте 2^13 бит) (2^14*5)/2^13=10 кбайт 2) (64*128*7)/2^13=(2^13*7)/2^13=7 кбайт 3)(64*256*8)/2^13= 2^17/2^13=2^4=16 кбайт 4)(32*1024*7)/2^13=(2^15*7)/2^13=4*7=28 кбайт 5)(1024*512*6)/2^13=(2^19*6)/2^13=64*6=384 кбайт 6)(512*256*5)/2^13=(2^17*5)/2^13=16*5=80 кбайт 7)(512*128*4)/2^13=2^18/2^13=2^5=32 кбайт 8)(256*128*3)/2^13=(2^15*3)/2^13=4*3=12 кбайт 9)(128*128*8)/2^13=2^17/2^13=2^4=16 кбайт 10)(24*2^13)/(128*256)=2^16*6/2^15=2*3=6 бит, значит 64 цвета 11)(10*2^13)/(128*128)=2^14*5/2^14=5 бит, значит 32 цвета 12)(7*2^13)/(64*128)=(7*2^13)/2^13=7 бит, значит 128 цветов 13)(16*2^13)/(64*256)=2^17/2^14=2^3=8 бит, значит 256 цветов 14)(28*2^13)/(32*1024)=7*2^15/2^15=7 бит, значит 128 цветов 15)(384*2^13)/(1024*512)=(3*2^20)/2^19=3*2=6 бит, значит 64 цвета 16)(80*2^13)/(512*256)=(5*2^17)/2^17=5 бит, значит 32 цвета 17)(32*2^13)/(512*128)=2^18/2^16=2^2=4 бита, значит 16 цветов 18)(12*2^13)/(256*128)=(3*2^15)/2^15=3 бита, значит 9 цветов 19)(16*2^13)/(128*128)=2^17/2^14=2^3=8 бит, значит 256 цветов (каждый раз возводим в квадрат кол-во бит)
на паскале
vara,b: array [0..15] of real;
i: integer; begin
for i: =0 to 15 doa[i]: =i*2;
for i: =0 to 15 do beginb[i]: =1.8*a[i]+32; writeln(a[i],' градуса(ов)','=',b[i],' по фаренгейту'); end;
end.
вот еще через while
vara,b: array [0..15] of real;
i: integer; begin
for i: =0 to 15 doa[i]: =i*2;
i: =0; while i< =15 do beginb[i]: =1.8*a[i]+32; i: =i+1; end; for i: =0 to 15 dowriteln(a[i],' градуса(ов)','=',b[i],'по фаренгейту'); end.