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

Оцените размер (в байтах) цветного изображения .bmp с разрешением 7177х4889 и 354231 цвета(-ов).

👇
Ответ:
кэт2281
кэт2281
26.03.2020

Для кодирования одного из 354231 цветов необходимо log(2)354231 ≈ 18.4 ≈ 19 бит.

Объем изображения = 7177*4889*19 бит = 7177*4889*19 / 8 байт ≈ 83334839 байт.

4,5(33 оценок)
Открыть все ответы
Ответ:

Вводите путь к файлу, кол-во букв и цифр будет в консоли и в конце файла

using System;

using System.IO;

using System.Text;

namespace Program

{

   class Program

   {

       static void Main(string[] args)

       {

           string inputFilePath = Console.ReadLine();

           string inputStr = File.ReadAllText(inputFilePath);

           int letters = 0, digits = 0;

           foreach (var s in inputStr)

           {

               if (char.IsLetter(s))

                   ++letters;

               else if (char.IsDigit(s))

                   ++digits;

           }

           File.AppendAllText(inputFilePath, $"Letters: {letters}, Digits: {digits}");

           Console.WriteLine($"Letters: {letters}\n\rDigits: {digits}\n\r");

           Console.ReadKey();

       }

   }

}

4,7(50 оценок)
Ответ:
swietajakubiak
swietajakubiak
26.03.2020
Конечно, я помогу вам составить такие программы на языке Паскаль. Вот решение для обоих вопросов:

1) Программа для рисования цифры от 1 до 3:

program DrawDigit;
uses graph;

procedure DrawOne();
begin
line(100, 50, 100, 150);
end;

procedure DrawTwo();
begin
line(100, 50, 200, 50);
line(200, 50, 200, 100);
line(200, 100, 100, 100);
line(100, 100, 100, 150);
line(100, 150, 200, 150);
end;

procedure DrawThree();
begin
line(100, 50, 200, 50);
line(200, 50, 200, 150);
line(100, 100, 200, 100);
line(100, 150, 200, 150);
end;

var
digit: integer;
gd, gm: smallint;

begin
gd := Detect;
InitGraph(gd, gm, '');

writeln('Введите цифру от 1 до 3:');
readln(digit);

case digit of
1: DrawOne();
2: DrawTwo();
3: DrawThree();
end;

readln;
closegraph;
end.



Программа сначала инициализирует графическое окно, а затем запрашивает цифру от пользователя. В зависимости от выбранной цифры, вызывается соответствующая процедура для рисования этой цифры. В конце программы окно закрывается.

2) Программа, чтобы рисовалась любая цифра от 0 до 9:

program DrawDigit;
uses graph;

const
DigitPatterns: array [0..9] of string =
(
'###'#10'#'#10'#'#10'#'#10'###', // 0
' '#10' '#10' '#10' '#10' #', // 1
'###'#10' '#10'###'#10'#'#10'###', // 2
'###'#10' '#10'###'#10' '#10'###', // 3
'# '#10'# '#10'###'#10' '#10' #', // 4
'###'#10'#'#10'###'#10' '#10'###', // 5
'###'#10'#'#10'###'#10'# '#10'###', // 6
'###'#10' '#10' '#10' '#10' #', // 7
'###'#10'#'#10'###'#10'#'#10'###', // 8
'###'#10'#'#10'###'#10' '#10'###' // 9
);

procedure DrawDigit(digit: integer);
var
i, j: integer;
begin
for i := 1 to 5 do
begin
for j := 1 to length(DigitPatterns[digit]) do
begin
if DigitPatterns[digit][j] = '#' then
line(j * 10, i * 10, j * 10, i * 10);
end;
end;
end;

var
num: integer;
gd, gm: smallint;

begin
gd := Detect;
InitGraph(gd, gm, '');

writeln('Введите цифру от 0 до 9:');
readln(num);

DrawDigit(num);

readln;
closegraph;
end.


В данной программе для каждой цифры от 0 до 9 создан паттерн, представляющий собой строку символов "#" и "перевод каретки" (#10). Этот паттерн используется для рисования каждой цифры. В цикле по строке паттерна проверяется символ и при нахождении символа "#" рисуется горизонтальная линия. В результате получается изображение выбранной цифры.

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