1.1. Информационный объем сообщения, записанного в 8-битовом коде КОИ-8, составляет 10 Мбайт. Сколько листов бумаги потребуется для распечатки этого текста при односторонней печати, если каждая страница содержит 60 строк по 35 символов в строке.
2. Мощность алфавита племени Пульти равна 256. Найдите информационный объем в байтах сообщения из 200 символов.
3. Определите мощность алфавита, если сообщение занимает 5 страниц по 40 строк, в каждой строке записано 60 символов, информационный объем всего сообщения 10500 байтов.

👇

Увидеть ответ

Ответ:

Beleklera75

30.12.2020

Объяснение:

1. Объем текста составляет 10 Мб = 10240 Кб = 10485760 байт.

Каждый символ это 1 байт. На 1 листе помещается 35*60=2100 символов = 2100 байт.

Делим 10484760 : 2100 = 4993,219 ≈ 4994 листов.

2. Мощность алфавита равна 256 = 2^8, значит, каждый символ равен 8 бит = 1 байту.

200 символов = 200 байт.

3. 5 страниц по 40 строк по 60 символов = 5*40*60 = 12000 символов.

Они занимают 10500 байт, то есть 10500*8 = 84000 бит.

Значит, каждый символ занимает 84000 : 12000 = 7 бит.

Мощность алфавита равна 2^7 = 128.

4,4(64 оценок)

Открыть все ответы

Ответ:

Серг4й

30.12.2020

1. Надо добавить точку в последней строке программы. Иначе работать не будет.
2. Меняется всего одна строка в программе:

program pr2;

type
student = record {объявление нового типа данных student}
    LastName: string; {фамилия студента}
    bal: array [1..5] of integer; {массив для 5-ти оценок}
    average: real {средний студента}
end;

var
pupil: array [1..100] of student; {массив pupil (максимум из 100 элементов) типа student}
n, i, j, s: integer;{переменные целого типа}

begin
write('Введите количество студентов: ');
readln(n);
for i := 1 to n do
begin{запрос данных по n студентам}
    with pupil[i] do
    begin
      Write('Введите фамилию студента №', i, ': '); {запрос фамилии студента под номером i}
      Readln(LastName);
      s := 0; {целочисленная переменная для определения суммы студента}
      for j := 1 to 5 do
      begin{цикл для обработки 5-ти оценок каждого студента}
        write('Введите оценку за экзамен №:', j, ': ' );
        readln(bal[j] );
        s := s + bal[j]; {суммирование 5-ти оценок студента}
      end;
      average := s / 5; {определение среднего значения и запись в переменную average}
    end;
end;
writeln;
writeln( 'Студенты, имеющие средний больший или равный 4');
for i := 1 to n do
begin
    if pupil[i].average >= 4 then {если средний студента >=4}
    write(pupil[i].LastName,', ');
end;
end.

4,5(82 оценок)

Ответ:

23LOLKEK

30.12.2020

В запись student добавляете новое поле kurs,
Type student = recordLastName: string ; bal: array [1..5] of integer;
kurs: integer;average: real end;
В цикле по студентам добавляете ввод курса
with pupil[i] do begin
Write ('Введите фамилию студента №', i ,': ');
Readln (LastName);
Write('Введите курс '); Readln(kurs);
В конце программы изменяете вывод
writeln ( 'Студенты первокурсники, имеющие средний больший или равный 4');
For i:=1 to n do beginif (pupil[i].average >=4) and (pupil[i].kurs = 1) then
write (pupil[i].LastName,', ');

4,8(36 оценок)

Это интересно:

Компьютеры-и-электроника

01.03.2023

Как войти в Windows со стандартным паролем администратора...

Компьютеры-и-электроника

15.06.2021

Как открыть программу Terminal на Mac...

Хобби-и-рукоделие

01.01.2022

Как сделать купальник: советы от профессионала...

22.07.2022