В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Salina1904
Salina1904
18.05.2020 13:07 •  Информатика

Напишите программу, которая заполняет квадратную матрицу
случайными числами, равномерно распределёнными в диапазоне от 0 до 50
включительно, и находит сумму элементов, стоящих на главной диагонали, а также
минимальный из этих элементов. Размер матрицы 10 строк на 10 столбцов.

Показать ответ
Ответ:
marinakoch
marinakoch
01.11.2021 03:36

Каждый следующий член с знаменателем n! получается умножением предыдущего на -x/n. Очевидно, последовательность убывает по модулю, так что достаточно пройтись циклом, и, если новый вычисленный член по модулю меньше 0,0001, остановиться.

Окажется, что уже пятый член меньше ε, так что выведется только 4 числа.

Код:

#include <iostream>

#include <cmath>

int main() {

 const double x = 0.5;

 const double eps = 0.0001;

 double term = x * x / 2;

 for (int n = 3; std::abs(term) > eps; n++) {

     std::cout << term << " ";

     term *= -x/n;

 }

}

Вывод:

0.125 -0.0208333 0.00260417 -0.000260417

0,0(0 оценок)
Ответ:
ВККeerboom
ВККeerboom
03.04.2020 03:28
// PascalABC.NET 3.3, сборка 1599 от 17.12.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var (a,b):=ReadReal2('Укажите длины сторон прямоугольника:');
  Writeln('Площадь=',a*b,', периметр=',2*(a+b),
      ', диагональ=',Sqrt(a*a+b*b):0:5)
end.

Пример
Укажите длины сторон прямоугольника: 13.6 8.4
Площадь=114.24, периметр=44, диагональ=15.98499

begin
  var (a,b):=ReadReal2('Введите a и b:');
  Writeln('a+b=',a+b,', a*b=',a*b,', a/b=',a/b)
end.

Пример
Введите a и b: 134.23 -15.7
a+b=118.53, a*b=-2107.411, a/b=-8.54968152866242

begin
  var (a,b,c):=ReadReal3('Введите стороны треугольника:');
  var p:=(a+b+c)/2;
  Writeln('S=',Sqrt(p*(p-a)*(p-b)*(p-c)):0:3)
end.

Пример
Введите стороны треугольника: 13 8 11.3
S=44.843
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота