Дана программа: Program E2_1;
Var a: Array [1..8] Of Integer;
M, k: Integer;
Begin
For k := 1 To 8 Do Readln (a[k]);
M := a[1];
For k := 2 To 8 Do
If M < a[k] Then M := a[k];
Write (M)
End.
Сколько раз будет выполнен оператор M := a[k] при заданном массиве (3, 8, 7, 9, 4, 10, 2,
12)? Поясните свой ответ
1. 84 Кбайт
2. картинка (файлы)
а) 23 байт
б) 46 байт
3. картинка (файл)
Объяснение:
I = K * i
I - информационный объём текстового сообщения (размер файла, содержащего сообщение)
K - количество символов в сообщении
i - информационный вес одного символа (число бит, используемых для записи одного символа)
K = k1 * k2 * k3
K - количество символов в тексте
k1 - количество страниц в тексте
k2 - количество строк на странице
k3 - количество символов в строке
1.
Windows-1251 - стандартная 8-битная кодировка
Дано:
i = 8 бит = 1 байт
k1 = 32 страницы
k2 = 48 строк
k3 = 56 символов
Найти:
I
K = 32 * 48 * 56 = 86 016 символов в тексте
I = 86 016 * 1 = 86 016 байт = 84 К байт
2.
Windows-1251 - стандартная 8-битная кодировка
Юникод - стандартная 16-битная кодировка
Практическая работа № 1 - 23 символа (считая пробелы)
Дано:
i₁ = 8 бит = 1 байт
i₂ = 16 бит = 2 байт
K = 23 символа
Найти:
I₁
I₂
I₁ = 23 * 1 = 23 байт
I₂ = 23 * 2 = 46 байт
3.
8 бит = 1 байт
1 024 байт = 1 Кбайт
1 024 Кбайт = 1 Мбайт
При переходе из старшей единицы измерения в младшую применяется умножение.
При переходе из младшей единицы измерения в старшую применяется деление.
614 400 бит = 614 400 / 8 = 76 800 байт
524 288 байт = 524 288 * 8 = 4 194 304 бит
и т.д.
1.
var x,a,d:integer;
begin
write('Введите А= '); readln(a);
write('Введите D= '); readln(d);
x:=a mod d;
writeln('Остаток= ',x);
end.
2.
var x:integer;
begin
write('Введите x= '); readln(x);
while x>9 do
begin
x:= x div 10;
end;
x:= x*sqr(x);
write(x);
end.
3.
var x,g,r:integer;
begin
write('Введите G= '); readln(g);
write('Введите R= '); readln(r);
x:=g div r;
writeln('Целая часть= ',x);
end.
4.
var x,a1:integer;
a: array[0..3] of integer;
begin
a1:=10000;
while (x<1000) or (9999<x) do
begin
write('Введите 4ехзначное число= '); readln(x);
end;
for var i:=0 to 3 do
begin
a[i]:= (x mod a1) div (a1 div 10);
a1:=a1 div 10;
writeln(a[i]);
end;
end.