Вопрос по информатике:
Перевести на Python
type
TArray = Array[0..19] Of Real;
procedure RandomArray(var ar: TArray; const mes: String);
var
k: Byte;
begin
Write(mes, ':');
for k := 0 to 19 do
begin
ar[k] := Random() * 198 - 99;
Write(ar[k]:7:2);
end;
WriteLn;
end;
function SumXY(const x, y: TArray): Double;
var
k: Byte;
S: Double;
begin
S := 0;
for k := 1 to 15 do
S := S + x[k] * y[k];
SumXY := S;
end;
function P(const z: TArray): Double;
var
k: Byte;
S: Double;
begin
S := 0;
for k := 0 to 19 do
S := S + Sqr(z[k]);
P := S;
end;
var
x, y: TArray;
begin
Randomize();
RandomArray(x, 'X'); RandomArray(y, 'Y');
if (SumXY(x, y) > 0)
then
Write('P(x)=', P(x):0:3)
else
Write('P(y)=', P(y):0:3);
end.
- 17.11.2017 14:24
- Информатика
- remove_red_eye 5671
- thumb_up 50
Ответы и объяснения 1
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.