cholga69
?>

Составить сумму вычисления двух чисел, написать программу вычисления площади круга и длины окружности по заданному радиусу

Информатика

Ответы

aivanova
#Python 3.6.4
#
a = int(input('Введите первое число: '))
b = int(input('Введите второе число: '))
sum = a + b
print('Сумма этих чисел:',sum)

r = int(input('\nВведите радиус: '))
s = 3.14 * r * r
c = 2 * 3.14 * r
print('Площадь круга:',s)
print('Длина окружности:',c)
irinasolodova3
Слишком индивидуальный вопрос, у каждого своё мнение. Ну так уж и быть, напишу своё. Перспектива безусловно есть, ибо если вспомнить то, что было 10 лет назад, то явно можно сказать, что IT индустрия поднялась очень высоко. Могу описывать всё по отдельности, но зачем это всё нужно, напишу про самую главную часть - интернет. Само собой, это будет нечто большее, нежели сегодня. Все сайты и сервисы будут тесно завязанны социальными сетями, вплоть до кредитных карт.
Очень медленно, но уже практически все перейдут на IPv6, тем самым расширяя сеть до бесконечности. Внешний адрес теперь будет практически у каждого устройства, включенного в сеть. 
Поисковые машины, с развитием кибернетики станут умнее, ранжировка поисковых запросов станет намного эффективнее, находить информацию станет всё проще и быстрее. Такие вещи, как голосовой поиск, станут более популярны и эффективны. И это только интернет. Но есть и другая сторона медали. Паспорта и даже ваши данные - всё это, через каких-то 10-15 лет полностью уйдут в сеть, а обычному человеку ничего не останется, как доверять третьим лицам. Тоесть об анонимности можно забыть.
озерская_Мария1234
Function Intg(p, b: real; n: integer; eps: real): real;
{Метод прямоугольников, рекурсия}
var
  a, x, h, s: real;
  i: integer;
begin
  a := 0;
  h := (b - a) / n;
  x := a;
  s := 0;
  for i := 1 to n do
  begin
    s := s + sin(x);
    x := x + h;
  end;
  if abs(s * h - p) > eps then
    Intg := Intg(s * h, b, 2 * n, eps)
  else
    Intg := s * h;
end;

var
  b, eps: real;

begin
  write('Задайте верхний предел интегрирования и точность: ');
  Readln(b, eps);
  writeln('Значение интеграла: ', Intg(0, b, 2, eps):0:7);
end.

Тестовое решение:

Задайте верхний предел интегрирования и точность: 2 0.000001
Значение интеграла: 1.4161460

Точное значение интеграла равно 1-cos(2) ≈1.416146836, т.е. заданная точность обеспечивается.

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

Составить сумму вычисления двух чисел, написать программу вычисления площади круга и длины окружности по заданному радиусу
Ваше имя (никнейм)*
Email*
Комментарий*

Популярные вопросы в разделе

mistersoshnev354
D.Yu. Polina1703
ГегамБукреев830
Devaunka40
Екатерина655
Аношкина1696
Telenkovav
lovel24
Анна Елена
gardenkafe
steam22-9940
mila010982
nasrelza1012
alfaantonk
saint158
▲