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

Определить информационный объём изображения размером 1024х768 пикселей и состоящего из 64 цветов

👇
Ответ:
228665123
228665123
29.06.2021
2^n=64=n=6 бит/пиксель
(1024*768)*6=4718592 бит в несжатом изображении
4,6(41 оценок)
Открыть все ответы
Ответ:
Lerochka0204
Lerochka0204
29.06.2021
Type
  mas=array[,] of integer;
var
  i,j,ik,jk,k,max:integer;
  a:mas;
  b:array[0..5]of integer;//вс массив
begin
setlength(a,5,6);
writeln('Массив:');
// в массиве b минимальное число строки
for i:=0 to 4 do
  begin
  for j:=0 to 5 do
    begin
    a[i,j]:=random(-10,10);
    write(a[i,j]:4);
    if j=0 then b[i]:=a[i,0];
    if a[i,j]<b[i] then b[i]:=a[i,j];
    end;
  writeln;
  end;
writeln('Замена минимального противоположным:');
for i:=0 to 4 do
  begin
  for j:=0 to 5 do
    begin
    if a[i,j]=b[i] then a[i,j]:=-a[i,j];
    write(a[i,j]:4);
    end;
  writeln;
  end;  
writeln('Вставка столбцов:');
// в массиве b признак наличия в столбце максимума
for i:=0 to 5 do b[i]:=0;
for i:=0 to 4 do
  for j:=1 to 5 do
    if a[i,j]>max then  max:=a[i,j];
for i:=0 to 4 do
  for j:=0 to 5 do
    if a[i,j]=max then b[j]:=1;
for i:=0 to 5 do k:=k+b[i];
k:=5+k;
setlength(a,5,k+1);
jk:=k;
for j:=5 downto 0 do
  begin
    if b[j]=1 then
      begin
      for ik:=0 to 4 do a[ik,jk]:=1;
      jk:=jk-1;
      end;
    for ik:=0 to 4 do a[ik,jk]:=a[ik,j];
    jk:=jk-1;
  end;
for i:=0 to 4 do
  begin
  for j:=0 to k do  write(a[i,j]:4);
  writeln;
  end;  
writeln('Удаление первой строки:');
for i:=0 to 3 do
  for j:=0 to k do
    a[i,j]:=a[i+1,j];
setlength(a,4,k+1);
for i:=0 to 3 do
  begin
  for j:=0 to k do
    write(a[i,j]:4);
  writeln;
  end;  
writeln('Обмен столбцов:');
for i:=0 to 3 do
  begin
  b[i]:=a[i,k-1];
  a[i,k-1]:=a[i,k];
  a[i,k]:=b[i];
  end;
for i:=0 to 3 do
  begin
  for j:=0 to k do  write(a[i,j]:4);
  writeln;
  end;
end.
4,4(44 оценок)
Ответ:
мага399
мага399
29.06.2021

--- C# 7.3 ---

using System;

using System.Collections.Generic;

using System.Linq;

namespace CSLear

{

   class Program

   {

       private const int stdRow = 5;

       private const int stdCols = 6;

       static void Main(string[] args)

       {

           int[,] Arr = new int[stdRow, stdCols];

           ArrayRandomize(ref Arr, stdRow, stdCols);

           RemoveFirstRow(ref Arr, stdRow, stdCols);

           Console.ReadKey();

       }

       public static void RemoveFirstRow<T>(ref T[,] Matr, int ArrRows, int ArrCols)

       {

           T[,] Temp = new T[ArrRows-1,ArrCols];

           for (int i = 1; i < ArrRows; i++)  

           {

               for (int j = 0; j < ArrCols; j++)

               {

                   Temp[i - 1, j] = Matr[i, j];

               }

           }

           Matr = Temp;

       }

       public static void ArrayRandomize(ref int[,] Arr, int ArrRows, int ArrCols)

       {

           Random r = new Random();

           for (int i = 0; i < ArrRows; i++)

           {

               for (int j = 0; j < ArrCols; j++)

               {

                   Arr[i, j] = r.Next(-99, 99);

               }

           }

       }

   }

}

Объяснение:

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