Все категории

3 года назад

Информационный объём сообщения 12 КБ, мощность алфавита составляет 128 символов. Найти количество символов.

Знания

Информатика

1 ответ:

Оленька02013 года назад

0 0

Вычисляем по формулам:
N = 2^b
I = k*b
Где N - мощность алфавита, b - инф. вес символов, k - количество символов
Отсюда,
128 = 2^b
b = 6
12 кб = 98304 бит
98304 = k * 6
k = 16384

Читайте также

Принцип работы ЛАЗЕРНОГО принтера, кратко

Dumf [20]

Принцип работы лазерного принтера Принцип работы всехлазерных принтеров довольно похож на работу копировальных аппаратов. Изначально на бумаге создается намагниченная область, к которой после притягивается тонер (печатный порошок). Затем, лист бумаги попадает в так называемую печь, где порошок подлежит ПЛАВЛЕНИЮ.КРАТКО СЛОЖНО, ЕСЛИ ЧТО МОЖНО ПРОСТО ВЫБРАТЬ САМОЕ ВАЖНОЕ, А НЕ ПИСАТЬ ВСЕ

0 0

4 года назад

Напишите программу для вычеркивания из данного слова всех букв «К» и «G»; в visual basic

Pest693 [10]

VB у меня нет, поэтому на своей форме пропишите для любой кнопки код процедуры АААА(), а вторую процедуру разместите в любом доступном модуле, хоть в той же форме.
Не знаю, как Вы планируете вводить текст, я его просто присвоил в программе для контрольного прогона.

Sub aaaa()
    Dim s As Stringr
    s = "THIS IS THE GREATEST TEST STRING AND ALL K/G CHARACTERS NEED TO BE KILLED"
    DeleteChar s, "G"
    DeleteChar s, "K"
    MsgBox s
End Sub

Sub DeleteChar(ByRef s As String, c As String)
    'Удаляем из строки s символ c
    Dim k As Integer
    Do
        k = InStr(s, c)
        If k > 0 Then s = Left(s, k - 1) + Right(s, Len(s) - k)
    Loop While k > 0
End Sub

Тестовое решение:
THIS IS THE REATEST TEST STRIN AND ALL / CHARACTERS NEED TO BE ILLED

0 0

4 года назад

Помогите срочно!!! пожалуйста Напишите код программы

povar4ik [140]

from math import sqrt

x, y = float(input("x: ")), float(input("y: "))

x = sqrt(x)

y = y**2

x += 1

y += x

print(y)

0 0

4 года назад

Прочитать ещё 2 ответа

Какое количество информации несет в себе сообщение о том, что нужная вам программа нахрдится на одном из восьми дискет. если мож

анна альфимова

Всего дискет 8. какой бы не была дискета с инфой, информация об этом весит одинаково
8 = 2^3 т.е. 3бита

0 0

4 года назад

Даны два прямоугольника, стороны которых параллельны или перпендикулярны осям координат. Известны координаты левого нижнего угла

antioboroten

Программа на PascalABC

Program 29844007;

uses

GraphABC;

var

XL1,YL1,XR1,YR1:integer; ///координаты первого прямоугольника

XL2,YL2,XR2,YR2:integer; ///координаты второго прямоугольника

XL0,YL0,XR0,YR0:integer; ///координаты результата

s:string; ///строка для вывода результатов;

begin

Window.SetSize(700,700);

writeln('Первый прямоугольник: ');

writeln('Введите X левого нижнего угла ');read(XL1);

writeln('Введите Y левого нижнего угла ');read(YL1);

writeln('Введите X правого верхнего угла ');read(XR1);

writeln('Введите Y правого верхнего угла ');read(YR1);

writeln('Второй прямоугольник: ');

writeln('Введите X левого нижнего угла ');read(XL2);

writeln('Введите Y левого нижнего угла ');read(YL2);

writeln('Введите X правого верхнего угла ');read(XR2);

writeln('Введите Y правого верхнего угла ');read(YR2);

if XL1<XL2 then XL0:=XL1 else XL0:=XL2;

if YL1<YL2 then YL0:=YL1 else YL0:=YL2;

if XR1<XR2 then XR0:=XR2 else XR0:=XR1;

if YR1<YR2 then YR0:=YR2 else YR0:=YR1;

/// Выводим сначала результирующий прямоугольник синим цветом

Brush.Color := clBlue;

Rectangle(XL0,700-YL0,XR0,700-YR0);

/// Рисуем первый прямоугольник красным цветом

Brush.Color := clRed;

Rectangle(XL1,700-YL1,XR1,700-YR1);

/// Выводим второй прямоугольник зелёным

Brush.Color := clGreen;

Rectangle(XL2,700-YL2,XR2,700-YR2);

/// Выводим кординаты

Brush.Color := clWhite;

s:='Координаты левого нижнего угла: '+ IntToStr(XL0)+' '+IntToStr(YL0);

TextOut(0,0,s);

s:='Координаты правого верхнего угла: '+ IntToStr(XR0)+' '+IntToStr(YR0);

TextOut(0,20,s);

end.

Пример вывода на прикреплённом рисунке.

0 0

4 года назад