1.считая, что каждый символ кодируется одним байтом, определите чему равен информационный объем сообщения: "эта пища полезная, в ней много витаминов". а) 400 байта б) 43 бит с)43 байт 2. с компьютера текстовую информацию можно: а) хранить, получать и обрабатывать; б) только хранить; в) только получать; г) только обрабатывать. 3.к числу основных преимуществ работы с текстом в текстовом редакторе (в сравнении с пишущей машинкой) следует назвать: а) возможность многократного редактирования текста; б) возможность более быстрого набора текста; в) возможность уменьшения трудоемкости при работе с текстом; г) возможность использования различных шрифтов при наборе текста. 4.символ, вводимый с клавиатуры при наборе текста, отображается на экране дисплея в позиции, определяемой: а) задаваемыми координатами; б) положением курсора; в) адресом; г) положением предыдущей набранной буквы. 5. курсор — это: а) устройство ввода текстовой информации; б) клавиша на клавиатуре; в) наименьший элемент изображения на экране; г) отметка на экране дисплея, указывающая позицию, в которой будет отображен вводимый с клавиатуры символ. 6. клавиша backspace используется для удаления: а) символа, стоящего слева от курсора; б) символа, находящегося в позиции курсора; в) символа, расположенного справа от курсора; г) целиком всей строки. 7*. автоматическое устройство осуществило перекодировку информационного сообщения на языке, первоначально записанного в 16 - битовом коде unicode, в 8 - битовую кодировку кои - 8. при этом информационное сообщение уменьшилось на 300 битов. какова длина сообщения в символах? 8*. для хранения текста в восьмибитовой кодировке требуется 11кбайт. сколько страниц займёт этот текст, если на странице размещается 30 строк по 80 символов в решить, . нужно)
Ответы
1. Pascal ABC
const
nn=100;
var
M,C:array[1..nn] of integer;
x,i,n,s,max:integer;
m1,r:real;
begin
Write('x=');
Read(x);
Write('>');
s:=0;
n:=0;
for i:=1 to x do begin
Read(M[i]);
if M[i]>3 then begin
s:=s+M[i];
n:=n+1
end
end;
if n>0 then m1:=s/n
else m1:=0;
max:=M[x];
for i:=x-1 downto x-9 do
if M[i]>max then max:=M[i];
r:=max/m1;
n:=0;
for i:=1 to x do
if M[i]>r then begin
n:=n+1;
C[n]:=M[i];
Write(C[n],' ')
end;
end.
Пример
x=18
>-15 -19 -32 3 2 35 32 12 -44 39 -36 16 31 5 17 21 -43 -20
3 2 35 32 12 39 16 31 5 17 21
2. PascalABC.NET 3.2, сборка 1370 от 24.12.2016
Если программа не работает, обновите версию!
begin
var M:=ReadArrInteger('>',ReadInteger('x='));
var r:=(M.TakeLast(10).Max)/(M.Where(b->b>3).Average);
var C:=M.Where(b->b>r).ToArray; C.Println
end.
Пример
x= 18
> -15 -19 -32 3 2 35 32 12 -44 39 -36 16 31 5 17 21 -43 -20
3 2 35 32 12 39 16 31 5 17 21
Сравнение явно не в пользу школьного программирования...
const
nn=100;
var
M,C:array[1..nn] of integer;
x,i,n,s,max:integer;
m1,r:real;
begin
Write('x=');
Read(x);
Write('>');
s:=0;
n:=0;
for i:=1 to x do begin
Read(M[i]);
if M[i]>3 then begin
s:=s+M[i];
n:=n+1
end
end;
if n>0 then m1:=s/n
else m1:=0;
max:=M[x];
for i:=x-1 downto x-9 do
if M[i]>max then max:=M[i];
r:=max/m1;
n:=0;
for i:=1 to x do
if M[i]>r then begin
n:=n+1;
C[n]:=M[i];
Write(C[n],' ')
end;
end.
Пример
x=18
>-15 -19 -32 3 2 35 32 12 -44 39 -36 16 31 5 17 21 -43 -20
3 2 35 32 12 39 16 31 5 17 21
2. PascalABC.NET 3.2, сборка 1370 от 24.12.2016
Если программа не работает, обновите версию!
begin
var M:=ReadArrInteger('>',ReadInteger('x='));
var r:=(M.TakeLast(10).Max)/(M.Where(b->b>3).Average);
var C:=M.Where(b->b>r).ToArray; C.Println
end.
Пример
x= 18
> -15 -19 -32 3 2 35 32 12 -44 39 -36 16 31 5 17 21 -43 -20
3 2 35 32 12 39 16 31 5 17 21
Сравнение явно не в пользу школьного программирования...
Если в компьютере, значит надо перевести в двоичную систему.
Для того, чтобы перевести число из 10-ой в 2-ю с. с. , нужно разделить его на 2 и выделить остаток, затем частное снова разделить на 2 и выделить остаток. Процесс деления повторять до тех пор, пока в частном не останется 1. Затем, начиная с последнего частного – 1, переписываем все остатки в обратном порядке. Это и есть искомое число
129/2 (целое 64) (остаток 1)
64/2 (целое 32) (остаток 0)
32/2 (целое 16) (остаток 0)
16/2 (целое 8) (остаток 0)
8/2 (целое 4) (остаток 0)
4/2 (целое 2) (остаток 0)
2/2 (целое 1) (остаток 0)
129 = 10000001
Для того, чтобы перевести число из 10-ой в 2-ю с. с. , нужно разделить его на 2 и выделить остаток, затем частное снова разделить на 2 и выделить остаток. Процесс деления повторять до тех пор, пока в частном не останется 1. Затем, начиная с последнего частного – 1, переписываем все остатки в обратном порядке. Это и есть искомое число
129/2 (целое 64) (остаток 1)
64/2 (целое 32) (остаток 0)
32/2 (целое 16) (остаток 0)
16/2 (целое 8) (остаток 0)
8/2 (целое 4) (остаток 0)
4/2 (целое 2) (остаток 0)
2/2 (целое 1) (остаток 0)
129 = 10000001
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
Архивтен файлдарды жою үшін келесі әрекеттер орындалады
Автор: Тариелович871
Яких помилок допускається під час складання програм у серидовищі програмування?
Автор: Larisa-0888716
Что означает слово "редактор" в выражении "текстовый редактор"
Автор: shneider1969
Что известно об имени алевтина, всю информацию
Автор: kriapex
2-А
3-А
4-Б
5-Г
6-А
Остальное я не знаю. Сори