var
a: array[1..15] of integer;
b: array[1..20] of integer;
c: array[1..10] of integer;
i, maxa, maxb, maxc: integer;
begin
maxa := 0;
for i := 1 to 15 do
begin
read(a[i]);
if abs(a[i]) > maxa then maxa := abs(a[i]);
end;
maxb := 0;
for i := 1 to 20 do
begin
read(b[i]);
if abs(b[i]) > maxb then maxb := abs(b[i]);
end;
maxc := 0;
for i := 1 to 10 do
begin
read(c[i]);
if abs(c[i]) > maxc then maxc := abs(c[i]);
end;
if (maxa > maxb) and (maxa > maxc) then begin for i := 1 to 15 do write(a[i], ' ');writeln;writeln(maxa); end
else if (maxb > maxa) and (maxb > maxc) then begin for i := 1 to 20 do write(b[i], ' ');writeln;writeln(maxb); end
else if (maxc > maxb) and (maxc > maxa) then begin for i := 1 to 10 do write(c[i], ' ');writeln;writeln(maxc); end;
end.
В строке 1 размещается повторяющееся ключевое слово. В строке 2 – сдвиги, соответствующие буквам ключа.
Функция КОДСИМВ(символ) в качестве результата получает код аргумента. Аргументом может быть либо символьная константа, либо адрес ячейки, в которой хранится символ. В последнем случае выдается код содержимого ячейки. Поскольку буквы английского алфавита в коде расположены по алфавиту и имеют подряд идущие номера (внутренние коды), то порядковый номер буквы в алфавите равен коду данной буквы минус код буквы «a» плюс единица. Так вычисляется сдвиг, соответствующий букве ключевого слова.
В строке 3,5,7 располагаются шифруемые слова. В ячейках строки 4, 6, 8 помещаются формулы шифрования.
Функция СИМВОЛ(код символа) возвращает символ по значению его ASCII-кода.
Функция ОСТАТ(делимое; делитель) возвращает остаток от целочисленного деления. Английский алфавит содержит 26 букв. Остатки деления на 26 – числа в диапазоне от 0 до 25. Это позволяет оставаться в пределах кодов английского алфавита (строчных букв): от кода буквы «a» до кода буквы «z».
Объяснение:
Алгоритм, алгорифм (ағылш.: algorіthm, algorіsmus — Әл-Хорезмидің атынан шыққан) — бастапқы берілген мәліметтермен бір мәнде анықталатын нәтиже алу үшін қай амалды (жұмысты) қандай ретпен орындау қажеттігін белгілейтін есептерді (мәселелерді) шешу (математикалық есеп-қисаптар орындау, техникалық объектілерді жобалау, ғылыми-зерттеу жұмысын жүргізу т.б.) тәсілдерінің дәл сипаттамасы. Алгоритм — математика мен кибернетиканың негізгі ұғымдарының бірі. Алгоритмді орындау алгоритмдік үрдіс деп аталады.