Рассчитать объем видеопамяти .необходимой для хранкния графическогоизображения занимающего вемь экран монитора с разрешкникм 1280×1024 и палитрой из 65536 цветов
65536 цветов = 2^16, то есть для одного пикселя требуется 16 бит или 2 байта. 1280=5*256 Найдем количество байт 5*256*1024*2 = 5*2^8*2^10*2^1 = 5*2^19 байт. Переведём в килобайты (5*2^19)/1024 = (5*2^19)/2^10 = 5*2^9 = 5*512 = 2560 Кбайт.
Это цикл. Переменная i меняется от a до b (с шагом 1) и для каждого значения переменной i выполняется тело цикла. Например, если a=2, b=5, то переменная i будет последовательно принимать значения 2, 3, 4, 5.
Общий вид цикла для (этот цикл ещё называют цикл с переменной) нц для i от i1 до i2 | тело цикла (последовательность команд) кц Здесь i – имя величины целого типа, i1, i2 – произвольные целые числа или выражения с целыми значениями. Тело цикла последовательно выполняется для i = i1, i = i1 + 1, i1 + 2, …i = i2. Правила алгоритмического языка допускают задание любых целых i1, i2. в частности, i2 может быть меньше i1. этот случай не считается ошибочным – просто тело цикла не будет выполнено ни разу, а компьютер сразу перейдет к выполнению команд, записанных после кц.
uses GraphABC; Var a,h,x,y:integer; c:char; begin writeln('Read or random? n/r'); repeat readln(c); until (c='n') or (c='r'); if c='r' then begin a:=random(200); writeln('Длина ребра=',a,', Объём=',power(a,3)); end else begin readln(a); writeln('Объём=',power(a,3)); end; x:=windowwidth div 2; y:=round(windowheight*1/3); line(x,y,x,y+a); line(x+a,y,x+a,y+a); line(x,y+a,x+a,y+a); line(x+a div 2,y+a div 2,x+a div 2+a,y+a div 2); line(x,y,x+a,y); line(x+a div 2,y+a div 2,x+a div 2,y-a div 2); line(x,y,x+a div 2, y-a div 2); line(x,y+a,x+a div 2, y+a div 2); line(x+a div 2, y-a div 2,x+a div 2+a,y-a div 2); line(x+a div 2+a, y-a div 2,x+a,y); line(x+a div 2+a,y-a div 2,x+a div 2+a,y-a div 2+a); line(x+a div 2+a, y-a div 2+a,x+a,y+a); end.
Пример ввода: n 16 Пример вывода: Объём=4096
//2
Var X,P:integer; beginwrite('X:'); readln(X); write('P:'); readln(P); if not(odd(X)) then writeln('Кратно 2'); if X mod 3=0 then writeln('Кратно 3'); if X mod P=0 then writeln('Кратно ',P); end.
Пример ввода: 18 6 Пример вывода: Кратно 2 Кратно 3 Кратно 6
1280=5*256
Найдем количество байт
5*256*1024*2 = 5*2^8*2^10*2^1 = 5*2^19 байт. Переведём в килобайты
(5*2^19)/1024 = (5*2^19)/2^10 = 5*2^9 = 5*512 = 2560 Кбайт.