Пожаловаться
- 19.12.2016 20:08
- Информатика
- remove_red_eye 17970
- thumb_up 15
Ответы и объяснения 1
// PascalABC.NET 3.3, сборка 1599 от 17.12.2017
// Внимание! Если программа не работает, обновите версию!
begin
var x:=ReadArrReal('Введите 8 значений x:',8);
var y:=ReadArrReal('Введите 8 значений y:',8);
x.Zip(y,(p,q)->Sqrt(p*p+q*q)).Println
end.
Пример
Введите 8 значений x: 4 2.5 -3.1 1.6 0 7 3.33 12.8
Введите 8 значений y: -4.56 2.18 3.1 9 0 7 1.001 0.002
6.06577282792556 3.31698658423576 4.38406204335659 9.14111590562115 0 9.89949493661167 3.47719729092268 12.80000015625
// Внимание! Если программа не работает, обновите версию!
begin
var x:=ReadArrReal('Введите 8 значений x:',8);
var y:=ReadArrReal('Введите 8 значений y:',8);
x.Zip(y,(p,q)->Sqrt(p*p+q*q)).Println
end.
Пример
Введите 8 значений x: 4 2.5 -3.1 1.6 0 7 3.33 12.8
Введите 8 значений y: -4.56 2.18 3.1 9 0 7 1.001 0.002
6.06577282792556 3.31698658423576 4.38406204335659 9.14111590562115 0 9.89949493661167 3.47719729092268 12.80000015625
Пожаловаться
- 21.12.2016 00:37
- thumb_up 45
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.
Новые вопросы
Интересные вопросы