Дано:
V = 512 Кбайт
Р = 640 ×480 пикс
N1=16 цв
N2 =256 цв
Найти:
S1 -?
S2 - ?
1) Найдем количество пикселей в изображении:
P = 640 ×480 = 307200 пикселей в изображении видеопамяти
2) Найдем глубину кодирования 1 пикселя
N = 2^i, где i - глубина кодирования 1 пикселя (количество ячеек памяти, предназначенных для 1 точки экрана)
16 = 2^4
i1 = 4 бит - глубина кодирования 1 пикселя при использоывании 16 цветов
256 = 2^8
i2 = 8 бит - глубина кодирования 1 пикселя при использоывании 256 цветов
3) Найдем объемы памяти нужные для хранения 1 страницы изображения:
V1 = i1 × P = 4 × 307200 = 1228800 бит = 153600 байт = 150 Кбайт - займет одна страница изображения при палитре в 16 цветов
V2 = i2 × P = 8 × 307200 = 2457600 бит = 300 Кбайт - займет одна страница изображения при палитре в 256 цветов
4) Посчитаем, сколько поместиться страниц экрана при разных палитрах:
512/150 = 3, 4 страницы, если палитра 16 цветов
512/300 = 1,7 страницы, если палитра 258 цветов
ответ:3,4 стр при палитре в 16 цветов
1,7 страницы при палитре в 256 цветов.
#include <iostream>
using namespace std;
int main()
{
setlocale(LC_ALL, "Russian");
char key;
int i;
int a[255];
float arifm=0,sum=0,b=0;
cout << "Введите числа от а до б через пробел! (Условие: a < b)"<<endl;
for (i=0; i < 254; i++){
cin >> a[i];
if(i >= 1 && a[i] < a[i-1]){
break;
}
b++;
}
cout << "Получили числа: ";
for (i=0;i < b; i++){
cout << " " << a[i];
sum += a[i];
}
cout << endl<< "Сумма чисел = " << sum << endl;
arifm = sum / (b);
cout << "Среднее арифметическое = " << arifm << endl;
system ("pause");
}
Только не дописал выход из цыкла.. сейчас он при нарушение условия а < б
Если надо думаю справитесь с do while
PascalABC.NET
begin
var a := ArrGen(10, i -> i in [0, 2, 6] ? 2 * (i + 1) + 10 :
(i - 7) * 3);
Writeln('массив');
var m := a.Println.Where(p -> p.IsEven).Average;
Write('sr=', m)
end.
begin
var a := ArrGen(10, i -> (i + 1) mod 3 = 0 ? -i : Sqr(i + 2));
Writeln('массив');
var s := a.Println.Sum;
Writeln('sr=', s);
a.Transform(p -> p < 0 ? s : p);
Writeln('новый массив');
a.Print
end.
begin
var a := ArrGen(15, i -> i < 7 ? i * (i + 6.1) + 5.1 : i - 4.7);
Writeln('массив');
foreach var k in a do
Write(k:7:2);
Writeln;
var p := 1.0;
for var i := 2 to 4 do
p *= a[i];
Write('p= ', p:0:3)
end.
Индексы в массивах PascalABC.NET идут не от единицы, а от нуля, как во всех современнных языках программирования. Поэтому исходные формулы пришлось немного преобразовать.
Примеры вывода не показаны, поскольку они точно совпадают с заданными.