Определи расстояние на плоскости между двумя точками с заданными координатами M1(x1,y1)и M2(x2,y2). ответ введи целым числом. Если координаты точек: x1=2;y1=4x2=9;y2=12. ответ округли до целых. ответ: d=
// PascalABC.NET 3.2, сборка 1417 от 28.03.2017 // Внимание! Если программа не работает, обновите версию!
begin var n:=ReadInteger('Количество строк в массиве:'); var m:=ReadInteger('Количество столбцов в массиве:'); Writeln('*** Исходный массив [',n,',',m,'] ***'); var a:=MatrRandom(n,m,-99,99); a.Println(5); Writeln(5*a.ColCount*'-'); a:=a.ConvertAll(x->x.IsOdd?x+10:x-10); a.Println(5) end.
Для того чтобы решить эту задачу, нам нужно узнать, сколько байт занимает один цвет рисунка. У нас есть рисунок объемом 64 кб, что равно 64 * 1024 байтам. Рисунок имеет размер 32х32 пикселя.
1. Найдем общее количество пикселей в рисунке:
Общее количество пикселей = ширина * высота = 32 * 32 = 1024 пикселя
2. Теперь мы можем найти количество байт, которое занимает один пиксель:
Количество байт на пиксель = Общее количество байт / Общее количество пикселей = 64 * 1024 / 1024 = 64 байта
3. Наконец, чтобы найти количество цветов в рисунке размером 32х32, мы делим количество байт на пиксель на количество байт, которое занимает один цвет:
Количество цветов = Количество байт на пиксель / Количество байт на цвет
Здесь нам нужно знать, сколько байт занимает один цвет. Например, если цвет представляется одним байтом (256 возможных значений), то:
Количество цветов = 64 байта / 1 байт на цвет = 64 цвета
Будьте внимательны, потому что на практике количество байт на цвет может варьироваться в зависимости от формата файлов или кодировки цвета.
Вывод: В рисунке размером 32х32 пикселя, которое занимает 64 кб пространства на диске, содержится 64 цвета.
// Внимание! Если программа не работает, обновите версию!
begin
var n:=ReadInteger('Количество строк в массиве:');
var m:=ReadInteger('Количество столбцов в массиве:');
Writeln('*** Исходный массив [',n,',',m,'] ***');
var a:=MatrRandom(n,m,-99,99);
a.Println(5); Writeln(5*a.ColCount*'-');
a:=a.ConvertAll(x->x.IsOdd?x+10:x-10);
a.Println(5)
end.
Пример
Количество строк в массиве: 5
Количество столбцов в массиве: 10
*** Исходный массив [5,10] ***
66 -57 -2 69 45 -44 35 -96 -48 87
20 -32 -14 -41 -78 2 95 5 61 99
13 -7 86 58 -57 3 -58 14 -48 16
85 42 -57 90 -88 56 53 92 14 -97
84 87 93 93 -29 -32 24 42 89 -62
56 -47 -12 79 55 -54 45 -106 -58 97
10 -42 -24 -31 -88 -8 105 15 71 109
23 3 76 48 -47 13 -68 4 -58 6
95 32 -47 80 -98 46 63 82 4 -87
74 97 103 103 -19 -42 14 32 99 -72