Вычислите объем файла, если о нем известно, что глубина кодирования составляет 8 бит, а разрешение 320 х 240. В ответе
укажите одно число – количество Кб.
13 Вычислите объем файла, если о нем известно, что количество
цветов, используемых в палитре 16, а общее количество
пикселей в файле 76800. В ответе укажите одно число –
количество Кб.
14 Определите глубину кодирования файла, если о нем известно, что
объем его составляет 1 Мб, а разрешение 1024 х 512 пикселей.
15 В процессе преобразования растрового графического файла
количество цветов уменьшилось с 4096 до 64. Во сколько раз
уменьшился объем файла?
16 Определите информационный объем фразы, данной в кодировке
ASCII, в битах:
http://www.fipi.ru
17 Сколько страниц текста может быть записано на диск объемом 9
Мб, если страница содержит 24 символа в строке и 64 строки на
странице. Таблица кодировки текста Unicode.
18 Для сохранения области экрана монитора размером 640 х 320
точек выделено 200 кб памяти. Какое количество цветов
максимально допустимо использовать для раскрашивания точек?
begin
sum:=0;
cp:=0;
Randomize;
writeln('Посчитайте сложение:');
while i<10 do
begin
a:=random(40)+10;
b:=random(60)+10;
sum:=a+b;
write('Сколько будет ',a,'+',b,'= ');
read(c);
if c=sum then begin
cp:=cp+1;
writeln('Молодец!');
end else writeln('Неправильно');
i:=i+1;
end;
writeln('Всего правильных ответов ',cp);
write('Оценка:');
if (cp<=4) then write('Очень плохо (2)') else
if (cp>=5) and (cp<=6) then write('Удовлетворительно (3)') else
if (cp>=7) and (cp<=8) then write('Хорошо (4)') else
if (cp>=9) then write('Отлично! (5)');
end.
var
x:integer;
begin
for x:=5 to 15 do Writeln('x=',x:2,' y=',2*x)
end.
Результат выполнения программы:
x= 5 y=10
x= 6 y=12
x= 7 y=14
x= 8 y=16
x= 9 y=18
x=10 y=20
x=11 y=22
x=12 y=24
x=13 y=26
x=14 y=28
x=15 y=30
Задание №2
var
x:real;
begin
x:=1;
while x<=2 do begin
Writeln('x=',x:4:1,' y=',sin(3*x):8:5);
x:=x+0.3
end
end.
Результат выполнения программы:
x= 1.0 y= 0.14112
x= 1.3 y=-0.68777
x= 1.6 y=-0.99616
x= 1.9 y=-0.55069
Задание №3
const
n=40;
var
i:integer;
a:real;
begin
for i:=1 to n do
begin Write('a',i,'='); Read(a); Writeln('S=',sqr(a)) end
end.
Фрагмент работы программы:
a1=2.6
S=6.76
a2=4.18
S=17.4724
a3=1
S=1
a4=17
S=289
a5=