М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
elkaE
elkaE
02.01.2023 02:20 •  Информатика

Размер какого файла больше: изображения разрешением 600*480pix с использованием 2048 цветов или звукового файла продолжительностью 4 минуты квадрозвучания частотой дискретизации 22кГц и глубиной дискретизации 8 бит? Во сколько раз? скольки-кратное сжатие звукового файла продолжительностью 5 минут, системой звучания 5.1, частотой дискретизации 33,3 кГц, глубиной 16 бит, потребуется, чтобы он в результате занимал размер не более 3Мб?

Несколько лет назад для хранения информации использовались дискеты размером 3,5 дюйма. Сколько бы понадобилось таких дискет для хранения:
а) текста в 9-битной кодировке, содержащем 500 страниц, 80 строк на странице, в каждой строке 78 символов?
б) 24-битной картинки разрешением 2000*1200pix?

👇
Открыть все ответы
Ответ:
aleksandr7899
aleksandr7899
02.01.2023
Если у нас есть координаты этих вершин на плоскости вида (x; y), то
A(x1,y1)
B(x2,y2)
C(x3,y3)

program q;
var x1,x2,y1,y2,x3,y3:integer;
ab,ac,alp,bet,alfa,s:real;
begin
write('введите координаты точки A: ');
read(x1);
readln(y1);
write('введите координаты точки B: ');
read(x2);
readln(y2);
write('введите координаты точки C: ');
read(x3);
readln(y3);
ab:=sqrt(sqr(x2-x1)+sqr(y2-y1));
ac:=sqrt(sqr(x3-x1)+sqr(y3-y1));
alp:=arctan((y2-y1)/(x2-x1));
bet:=arctan((y3-y1)/(x3-x1));
alfa:=bet*2-alp;
s:=sin(alfa)*(ab*ac)/2;
writeln('площадь треугольника=',s);
readln
end.
4,8(66 оценок)
Ответ:
winx237
winx237
02.01.2023
//PascalABC.NET 3.1 сборка 1239
const
    n = 10;
    m = 10;

var
    i, j: integer;
    a, b: array[1..n, 1..m] of integer;
    f: boolean;

begin
    for i := 1 to n do
    begin
        for j := 1 to m do
        begin
            a[i, j] := random(50);
            write(a[i, j]:3, ' ');
        end;
        writeln;
    end;
    writeln;
    
    for i := 1 to n do
    begin
        f := false;
        for j := 1 to m do
        begin
            if not f and (a[i, j] mod 2 = 1) then begin
                a[i, j] := 2 * a[i, j];
                f := true;
            end;
            write(a[i, j]:3, ' ');
        end;
        writeln;
    end;
end.
4,4(65 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ