Насмотревшись Гривити Фолз и вдохновившись всякими загадками, которыми этот сериал был напичкан, я полез искать информацию про всякие шифры. И тут меня посетила идея сделать на основе шифров квест для своей жены (тогда ещё девушки). У меня в наличии было 2 дня, т.к. она уехала в гости к маме и мне не пришлось шифроваться. Бегло накидав на листик план действий, я полез за материалом. Шифров, загадок, ребусов в интернете оказалось очень много. Почти 2 дня у меня и ушло вперемешку с сериальчиков, листания пикабу и пинанием хрена.
Сейчас покажу всё, что в итоге получилось из моей затеи.
Привет Пикабу!
Насмотревшись Гривити Фолз и вдохновившись всякими загадками, которыми этот сериал был напичкан, я полез искать информацию про всякие шифры. И тут меня посетила идея сделать на основе шифров квест для своей жены (тогда ещё девушки). У меня в наличии было 2 дня, т.к. она уехала в гости к маме и мне не пришлось шифроваться. Бегло накидав на листик план действий, я полез за материалом. Шифров, загадок, ребусов в интернете оказалось очень много. Почти 2 дня у меня и ушло вперемешку с сериальчиков, листания пикабу и пинанием хрена.
Сейчас покажу всё, что в итоге получилось из моей затеи.
Объяснение:
auto = true;
var
a: array[1..100, 1..100]of real;
b: array[1..100]of real;
n, m, j, i: integer;
gmax, min, max: real;
begin
read(n, m);
for i := 1 to n do
for j := 1 to m do
begin
if auto then
a[i, j] := random(100)
else
read(a[i, j]);
if abs(gmax) < abs(a[i, j]) then
gmax := a[i, j];
end;
for i := 1 to n do
begin
min := a[i, 1] / gmax;
max := a[i, 1] / gmax;
for j := 1 to m do
begin
a[i, j] := a[i, j] / gmax;
if min > a[i, j] then min := a[i, j];
if max < a[i, j] then max := a[i, j];
write(a[i, j]:5:2, ' ');
end;
b[i] := max - min;
writeln(' => ', b[i]:5:2);
end;
end.