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

сделать домашнее задание по информатике: Как уменьшить потерю информации при дискретизации рисунков? Что при этом ухудшается?
2. Как можно уменьшить объём файла, в котором хранится рисунок? Чем при этом придется пожертвовать?
3. Как связаны глубина цвета и объём файла?
4. В каком случае при растровом кодировании нет потери информации?
5. Как компьютер определяет, что находится в файле — текст, рисунок, звук или видео?
6. Почему при увеличении растрового рисунка появляются «ступеньки»?
7. Сравните кодирование с палитрой и режим истинного цвета. Укажите достоинства, недостатки и области применения обоих подходов. В каких случаях вы рекомендуете использовать каждый из них?
8. Чем различаются основные современные форматы кодирования растровых рисунков?
9. В каких форматах целесообразно сохранять фотографии? рисунки с чёткими границами?

👇
Открыть все ответы
Ответ:
drunkbear
drunkbear
12.02.2021
# Python 3.6.1

S = input()
B = input()
C = [int(i) for i in input().split()]
A = input()

for m in [i for i in set([j for j in range(len(S))]).difference(C)]:
   if S[m] in B.split():S =  S[:m] + A[0] + S[m+1:]
print(S)



// Pascal

Var
   S:string[100];
   B:string[50];
   C:array[0..100] of byte;
   A:char;
   j,m:byte;
   L:boolean;
Begin
ReadLn(S);
ReadLn(B);
j:=0;
Read(A);
While A <> #13 do
   Begin
   Read(C[j]);
   C[j]:=C[j]+1;
   j:=j+1;
   Read(A);
   End;
ReadLn();
Read(A);
For m:= 1 to Length(S) do
    Begin
    L:=true;
    For j:= 0 to j do
        if C[j] = m then L:=false;
    if L then
       if pos(S[m],B) <> 0 then S[m]:=A;
    End;
WriteLn(S);
End.
4,6(99 оценок)
Ответ:
Чикама
Чикама
12.02.2021
// PascalABC.NET 3.2, сборка 1467 от 02.06.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var t:=ReadAllText('Pascal.txt');
  var c1:=ReadlnString('Введите строку замещаемых символов').ToCharArray;
  var c2:=ReadlnString('Введите строку замещающих символов').ToCharArray;
  for var i:=0 to c1.Length-1 do
    t:=t.Replace(c1[i],c2[i]);
  WriteAllText('Pascal.txt',t);
  Writeln('Работа завершена');
end.

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