Какое влияние проект аналитической машины оказал на дальнейшее развитие вычислительной техники

#include <iostream>
#include <string>
using namespace std;

string arabicToRoman(unsigned &number)
{
const unsigned count = 13;unsigned arabic[count] = { 1000, 900, 500, 400, 100, 90, 50, 40, 10, 9, 5, 4, 1
}, i, j;
string roman[count] = { "M", "CM", "D", "CD", "C", "XC", "L", "XL", "X", "IX",
"V", "IV", "I" }, result = "";
for (i = 0; i < count; i++) {
for (j = 0; j < number / arabic[i]; j++) {
result += roman[i];
}
number %= arabic[i];
}
return result;
}

int main()
{
unsigned uin = 0;
cin >> uin;
cout << arabicToRoman(uin);
system("pause");
return 0;
}

//PascalABC.NET

uses GraphABC;

var  c: integer;

begin

 window.IsFixedSize := true;//запрет изменения размера экрана

 window.Clear(cllightblue);//очистка экрана синим цветом

 pen.Color := clred;//меняем цвет пера на красный

 for var i := 0 to 19 do//цикл для отрисовки линий

 begin

   c := (window.Height div 19) * i;//сдвиг линнии по y

   line(0, 0 + c, window.Width, window.Height - c);//рисуем линию

 end;

end.

Объяснение:

uses graphabc;

begin

circle(50,50,50);

circle(50,50,20);

circle(150,50,50);

circle(150,50,20);

circle(250,50,50);

circle(250,50,20);

circle(350,50,50);

circle(350,50,20);

circle(450,50,50);

circle(450,50,20);

circle(550,50,50);

circle(550,50,20);

end.