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

Решите эти : 1)растровый графический файл содержить черное-белое изображение разером 150*100точек. каков информационный объем этого файла в кбайтах ? 2)в процессе переобразование графического файла кол-во цветов уменьшилось с 65536 до 256. во сколько раз уменьшится информ объем файла? 3)растровый графический файл содержит цветное изображения с 16-ю градациями цвета и размером 120*50 точек. каков информ объем это файла в кбайтах? на этом все ,

👇
Ответ:
DanilDanq
DanilDanq
29.06.2022
1) 150*100 = 15000(Бит):8 = 1875(Байт)/1000 = 1,875(Кбайт).
2) В 256 раз.
3) 120*50 = 6000*4 = 24000(Бит)/8 = 3000(Байт)/1000 = 3(КБайт)
4,8(8 оценок)
Открыть все ответы
Ответ:
TayniDzho
TayniDzho
29.06.2022
В разделе описаний добавь еще одну переменную с типа integer
и вместо последних 9-ти строк твоей программы должно быть:

{заполняем массив b минимальными элементами каждой строки}
for i := 1 to 5 do
  begin
        for j := 1 to 5 do if a[i,j] < b[i] then b[i] := a[i,j];
        Write(b[i], ' ')
  end;
WriteLn;
{сортируем массив b}
for i := 1 to 4 do
  for i+1 := 1 to 5 do
     if b[i] < b[j] then
       begin
             c := b[i];
             b[i] := b[j];
             b[j] := c
       end;
{выводим отсортированный массив на экран}
for i := i to 5 do Write(b[i], ' ');
WriteLn
END.
4,8(81 оценок)
Ответ:
ashotik007
ashotik007
29.06.2022

var ran0: array[1..20] of string; {массив для ввода туда слов}

i,j,n:integer;

strk:string;

begin

 n:=0;

 for i:=1 to 20 do

   begin

     readln(ran0[i]);             {вбиваем туда слова}

     if ran0[i]='' then break;    {тормозим цикл, если введена пустая строка}

     inc(n);

     ran0[i]:=ran0[i][2:];        {отбрасываем цифру с точкой}

   end;

 for i:=1 to n-1 do               {выполняем сортировку}

 for j:=1 to n-i do

   if (ran0[j])>(ran0[j+1]) then  

 begin

   strk:=ran0[j];                  {сортируем массив}

   ran0[j]:=ran0[j+1];

   ran0[j+1]:=strk;

 end;

    for i:=1 to n do                {выводим отсортированный массив}

      write(ran0[i][2:],',');

end.

4,8(87 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ