Тема: Вычисление объема видео памяти. 1. Создайте таблицу в текстовом процессоре Word и заполните ее вычислив: количество пикселей, глубину цвета (i), или количество цветов (N), объем видеопамяти (1). Количество пикселей в изображении =MN Глубина цвета- і (2=N) Количество цветов-N (2=N) Объем Видеопамяти-І. I= М'Nei Размер изображения (М*N) 10*10 1024*256 320*160 128*1024 512*128 262144 51200 256 4 65536 524288 3 16 32 8000 160*160 6 2. Сохраните таблицу в своей папке на диске D:\Ученики\7 класс в имени укажите ФИ. а информация о вот такого тиіс- Глубина цвета, а значит, солисrесrолсон Әто электронное энергозаписимое като ми отера, зависит от размера видеопамяти. Видео- содержимое видеопамяти и передаёт его на монитор, который сдеопроцессор несколько десятков раз в секунду считывает ревращает полученные данные экрана в секунду) измеряется в герцах (Гц). Комфортная работа оражение. Частота обновления экрана (количество обновлений хохиожжна при частоте обновления экрана 60-75 Гц. менных компьютеров составляет несколько 36 MORT соа ми ги и видеоро- систему персоналького сова емы персонального компьюте- заносится для 4 от хра е риси як пользователя, хранения при которой OH не замечает видео в видимое человеком мерцания хико- экрана,
Program N70231806_1; var a:array[ 1 .. 10 ] of shortint; i:byte; t:shortint; begin randomize; writeln('Исходный массив: '); for i := 1 to 10 do begin a[ i ] := random(21) - 10; write(a[ i ]:4) end; writeln; t := a[ 10 ]; for i := 10 downto 2 do a[ i ] := a[ i - 1 ]; a[ 1 ] := t; writeln('Результат: '); for i := 1 to 10 do write(a[ i ]:4); readln end.
2) program N70231806_2; var a:array[ 1 .. 12 ] of shortint; i, j:byte; t:shortint; begin randomize; writeln('Исходный массив: '); for i := 1 to 12 do begin a[ i ] := random(25) - 10; write(a[ i ]:4) end; writeln; for j := 1 to 4 do begin t := a[ 12 ]; for i := 12 downto 2 do a[ i ] := a[ i - 1 ]; a[ 1 ] := t end; writeln('Результат: '); for i := 1 to 12 do write(a[ i ]:4); readln end.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 uses crt; var n: longint; k: byte; procedure KRZ (c: longint; var kz: byte); var m: set of byte; z: byte; begin if c<0 then c:=c*(-1); if c=0 then kz:=1 else begin m:=[]; kz:=0; while c>=1 do begin if not (c mod 10 in m) then begin inc(kz); m:=m+[c mod 10]; end; c:=c div 10; end; end; end; begin write('n='); readln(n); KRZ (n,k); writeln(k,' различных цифр'); readln; end.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
