1. Разностная машина Беббиджа должна была заменить группу вычислителей, которые аккуратно склвдывали и вычитали числа. Поэтому утверждение "Б" - справедливо 2. Подготовка данных с перфокарт, утверждение "А" - справедливо. 3. Утверждение "Г" - спорно, хотя в 2000 году в лондонском Музее науки заработал принтер, придуманный Бэббиджем для своей машины.
Вообще машина проектировалась как механический аппарат предназначенный для автоматизации вычислений путем аппроксимации функций многочленами и вычисления конечных разностей.
Var ma:array[1..n,1..n] of integer; i,j,max,maxj,a:integer; begin max:=-1; randomize; writeln('Matrix:'); for i:=1 to n do begin; for j:=1 to n do begin; ma[i,j]:=random(10); write(ma[i,j]:4); end; writeln; end; for j:=1 to n do begin for i:=1 to n do a:=a+ma[i,j]; if a>max then begin max:=a; maxj:=j; end; a:=0; end; write('Максимальный по сумме столбец:',maxj); end.
using System;
namespace ConsoleApp1
{
internal static class Program
{
private static Tuple<double,int> F(double x)
{
double xs = x * x;
double result = 0.0;
double k1 = 1.0;
double k2 = 3.0;
double k3 = 4.0;
double nominator = xs;
double sign = -1.0;
double result2 = 1.0;
int n = 1;
while (Math.Abs(result - result2) > double.Epsilon)
{
++n;
result = result2;
var d = nominator / (k1 * k2 * k3);
result2 = result + sign * d;
nominator *= xs;
k1 += 1.0;
k2 += 1.0;
k3 += 1.0;
sign = -sign;
}
return Tuple.Create(result, n);
}