Решите тест много 1. таблица кодировки символов устанавливает соответствие между символами, их десятичными номерами и двоичными символами разных алфавитов символами и количеством байтов, которые они занимают символами и номерами ячеек памяти, которые они занимают символами и клавишами 2. для хранения текста требуется 2 кбайт. сколько символов содержит текст? 256 512 1024 2048 2000 3. для хранения текста требуется 33600 бит. сколько страниц займет этот текст, если на странице размещается 30 строк по 70 символов в строке? 20 5 2 40 35 4. минимальном объектом для кодирования в тексте бит байт пиксель символ 5. какие символы могут быть зашифрованы таблицы ascii: 82 и 143? "r" и "q" "r" и "п" "щ" и "ю" "б" и "b" "б" и "б" 6. код (номер) буквы "к" в таблице кодировки равен 138. какая последовательность кодов будет соответствовать слову "клин" 138 139 140 141 138 142 146 150 138 140 142 144 138 139 136 141 138 146 154 162 7. какое количество информации содержится в слове "компьютер" в восьмибитной кодировке? 9 бит 9 бод 9 байт 9 кбайт 8.сколько существует различных кодировок букв латинского алфавита 1 2 3 несколько 9. в каком порядке будут идти фрагменты текста "excel", "байт", "8в", "10г", если упорядочить их по возрастанию "байт","excel", "8в", "10г" "excel","байт", "8в", "10г", "10г", "8в", "байт", "excel" "excel", "10г", "8в","байт" "10г", "8в",, "excel", "байт" 10. ста тья, на бран ная на ком пью те ре, со дер жит 32 стра ни цы, на каж дой стра ни це 40 строк, в каж дой стро ке 48 сим во лов. опре де ли те раз мер ста тьи в ко ди ров ке кои-8, в ко то рой каж дый сим вол ко ди ру ет ся 8 би та ми. 120 кбайт 480 байт 960 байт 60 кбайт 11. в одной из ко ди ро вок unicode каж дый сим вол ко ди ру ет ся 16 би та ми. опре де ли те раз мер сле ду ю ще го пред ло же ния в дан ной ко ди ров ке: я вас любил: лю бовь ещё, быть может, в душе моей угас ла не со всем. 66 байт 1056 бит 528 байт 132 бит 12. глав ный ре дак тор жур на ла от ре дак ти ро вал ста тью, и её объём умень шил ся на 4 стра ни цы. каж дая стра ни ца со дер жит 32 стро ки, в каж дой стро ке 64 сим во ла. ин фор ма ци он ный объём ста тьи до ре дак ти ро ва ния был равен 1 мбайт. ста тья пред став ле на в ко ди ров ке unicode, в ко то рой каж дый сим вол ко ди ру ет ся 2 бай та ми. опре де ли те ин фор ма ци он ный объём ста тьи в кбай тах в этом ва ри ан те пред став ле ния unicode после ре дак ти ро ва ния. 504 768 1024 1008 13. в одном из из да ний пер во го тома а. дюма «три муш кетёра» 512 стра ниц. какой объём па мя ти (в мбайт) за ня ла бы эта книга, если бы алек сандр дюма на би рал её на ком пью те ре в одной из ко ди ро вок unicode? на одной стра ни це в сред нем по ме ща ет ся 64 стро ки, а в стро ке 64 сим во ла. (каж дый сим вол в ко ди ров ке unicode за ни ма ет 16 бит па мя ти.) 32 64 4096 4 14. в одной из ко ди ро вок кои-8 каж дый сим вол ко ди ру ет ся 8 би та ми. опре де ли те ин фор ма ци он ный объём сле ду ю ще го пред ло же ния в дан ной ко ди ров ке. и уно сят меня в зве ня щую снеж ную даль. 256 бит 608 бит 304 бит 76 байт
// PascalABC.Net 3.0, сборка 1064
const
k = 100;
var
s, wd: string;
i, j, m, n, pt, step: integer;
Words, WordsSort: array[1..k] of string;
InOrder: boolean;
begin
Write('Введите строку: '); Readln(s);
n := Length(s); pt := 1; m := 0;
repeat
// Пропускаем все символы до первого непробельного
while pt <= n do
if Ord(s[pt]) <= 32 then Inc(pt) else break;
if pt <= n then begin
// Выделяем очередное слово
wd := '';
while pt <= n do
if Ord(s[pt]) > 32 then begin wd := wd + s[pt];Inc(pt) end
else break;
if wd <> '' then begin Inc(m);Words[m] := wd end
end
until pt > n;
// Теперь Words содержит все m слов.
// Отсортируем их в массиве WordsSort методом Шелла
for i := 1 to m do WordsSort[i] := Words[i];
step := m div 2;
while step > 0 do begin
for j := m - step downto 1 do begin
i := j;
while i <= m - step do begin
if WordsSort[i] > WordsSort[i + step] then begin
wd := WordsSort[i];
WordsSort[i] := WordsSort[i + 1];
WordsSort[i + 1] := wd
end;
i := i + step
end
end;
step := step div 2
end;
// Осталось поэлементно сравнить оба массива
InOrder := true; i := 1;
while InOrder and (i <= m) do
begin InOrder := (Words[i] = WordsSort[i]); Inc(i) end;
if m = 0 then Writeln('Строка не содержит слов')
else
if InOrder then Writeln('Cлова упорядочены')
else Writeln('Cлова не упорядочены')
end.
Тестовое решение:
Введите строку: слово1 слово2 слово3 слово4 слово5
Cлова упорядочены
Введите строку: слово1 слово2 слово4 слово3 слово5
Cлова не упорядочены
"Современный" вариант решения на Паскале:
// PascalABC.Net 3.0, сборка 1064
var
s:string;
begin
Write('Введите строку: '); Readln(s);
var Delim:=Range(0,32).Select(x->Chr(x)).ToArray;
var Words:=s.Split(Delim).Where(x->x<>'');
var WordsSort:=Words.Sorted;
if Words.SequenceEqual(WordsSort) then Writeln('Cлова упорядочены')
else Writeln('Cлова не упорядочены')
end.
Тестовое решение совпадает с вышеприведенным.