program n1; uses crt; const n=15; var a: array[1..n] of integer; b: array[1..n] of integer; i,k,max: integer; beginrandomize; clrscr; writeln('ishodny massiv'); for i: =1 to n do begin a[i]: =random(100); a[i]: =a[i]-50; write(a[i]: 4); end; writeln; writeln('polychenny massiv'); max: =0; for i: =1 to n do begin b[i]: =-a[i]; write(b[i]: 4); if a[i]=b[i] then k: =k+1; if (b[i]> 0)and(b[i]> max) then max: =b[i]; if (b[i]< 0)and(-b[i]> max) then max: =-b[i]; end; writeln; writeln('kolychestvo neizmenyvshihsa elementov=',k,', samyi bolshoy po modyly element raven =',max); writeln end.
uses crt; vara: array [1..9] of integer; i,c,m,n: integer; b: real; beginclrscr; randomize(); c: =1; for i: =1 to 9 dobeginif i=c thenbegina[i]: =i+3; c: =c+3; endelsebeginif i mod 3=0 then a[i]: =a[i-1]+a[i-2] else a[i]: =sqr(i-1); end; write(a[i],' '); end; readln(); end.
uses crt; var x,y,s,i,j: integer; a: array [1..15] of integer; beginclrscr; randomize(); writeln('vvedite chislo'); readln(x); writeln('ishodniy'); for i: =1 to 15 dobegina[i]: =random(100); write(a[i],' '); end; writeln; writeln; writeln('ispravlenniy'); for i: =1 to 15 dobeginif a[i]+i< x thenbegina[i]: =(a[i]+i)*2; s: =s+a[i]; textcolor(red); write(a[i],' '); end elsebegintextcolor(white); a[i]: =(a[i]+i); write(a[i],' ')end; end; writeln; textcolor(green); writeln('summa =',s); readln; end.
Поделитесь своими знаниями, ответьте на вопрос:
1.видеопамять имеет объем, в котором может храниться 8-цветное изображение размеров 640x480 точек. какого размера изображение можно хранить в том же объеме видеопамяти, если использовать 512-цветную палитру? 2.какой объем видеопамяти необходим для хранения двух страниц изображения при условии, что разрешающая способность дисплея равна 640x480 точек, а глубина цвета равна 24?
1. 8 цветов - 1 пиксель log2 8 = 3 бит.
640 * 480 = 307200 пикс.
307200 * 3 = 921600 бит.
512 цветов - 1 пиксель log2 512 = 9 бит
921600/9 = 102400 пикс.
2. глубина цвета 24, значит 1 пиксель = 24 бит = 3 байт
640 * 480 = 307200 пикс.
307200 * 3 = 921600 байт. = 900 кбайт