Сделать программу pascal. в одномерном массиве с четным количеством элементов (2n) находятся координаты n точек плоскости. они располагаются в сле дующем порядке: x1y1х2, у2, х3, у3, и т. д. определить минимальный радиус круга с центром в начале координат, который содержит все точки"

288

305

Посмотреть ответы 2

Ответы на вопрос:

данила305

Информатика

4,8(57 оценок)

Const n = 5; var arr: array [1..2*n] of integer : = (0,1, -2,1, -1,-1, 1,2, -3,0); i: byte : = 1; maxr: real; begin repeat maxr : = max(sqrt(sqr(arr[i]) + sqr(arr[i + maxr); i += 2; until (i > 2 * n - 1); writeln(maxr); end.

Sofa1351

Информатика

4,6(76 оценок)

в строке 1 размещается повторяющееся ключевое слово. в строке 2 – сдвиги, соответствующие буквам ключа.

функция кодсимв(символ) в качестве результата получает код аргумента. аргументом может быть либо символьная константа, либо адрес ячейки, в которой хранится символ. в последнем случае выдается код содержимого ячейки. поскольку буквы алфавита в коде расположены по алфавиту и имеют подряд идущие номера (внутренние коды), то порядковый номер буквы в алфавите равен коду данной буквы минус код буквы «a» плюс единица. так вычисляется сдвиг, соответствующий букве ключевого слова.

в строке 3,5,7 располагаются шифруемые слова. в ячейках строки 4, 6, 8 помещаются формулы шифрования.

функция символ(код символа) возвращает символ по значению его ascii-кода.

функция остат(делимое; делитель) возвращает остаток от целочисленного деления. алфавит содержит 26 букв. остатки деления на 26 – числа в диапазоне от 0 до 25. это позволяет оставаться в пределах кодов алфавита (строчных букв): от кода буквы «a» до кода буквы «z».