М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
toby000
toby000
30.05.2022 09:49 •  Информатика

4. Дайте краткую характеристику «механического » периода создания вычислительных устройств, связанного с именами
таких изобретателей, как Леонардо да Винчи, Вильгельм
Шиккард, Блез Паскаль, Готфрид Вильгельм Лейбниц, Фи-
липп Маттеус Ган, Евна Якобсон и др.
6. Подготовьте краткое сообщение об истории создания ариф-
мометров, рассмотрев в нём изобретения Карла Томаса, Паф-
нутия Львовича Чебышёва, Вильгодта Теофиловича Однера.
9. Подготовьте небольшое сообщение о роли личности в развитии
вычислительной техники. Героем сообщения может быть Стив Джобс, Стив Возняк, Грейс Мюррэй Хоппер, Билл Гейтс или кто-то другой по вашему усмотрению.​

👇
Ответ:
dashavasileva5
dashavasileva5
30.05.2022

Объяснение:

4. Механический период

Эскиз механического тринадцатиразрядного суммирующего устройства с десятью колесами был разработан еще Леонардо да Винчи (1452-- 1519). По этим чертежам в наши дни фирма IBM в целях рекламы построила работо машину.

Первая механическая счетная машина была изготовлена в 1623 г. профессором математики Вильгельмом Шиккардом (1592--1636). В ней были механизированы операции сложения и вычитания, а умножение и деление выполнялось с элементами механизации. Но машина Шиккарда вскоре сгорела во время пожара. Поэтому биография механических вычислительных устройств ведется от суммирующей машины, изготовленной в 1642 г. Блезом Паскалем.

В 1673 г. другой великий математик Готфрид Лейбниц разработал счетное устройство, на котором уже можно было умножать и делить.

В 1880г. В.Т. Однер создает в России арифмометр с зубчаткой с переменным количеством зубцов, а в 1890 году налаживает массовый выпуск усовершенствованных арифмометров, которые в первой четверти 19-ого века были основными математическими машинами, нашедшими применение во всем мире. Их модернизация "Феликс" выпускалась в СССР до 50-х годов.

Мысль о создании автоматической вычислительной машины, которая бы работала без участия человека, впервые была высказана английским математиком Чарльзом Бэббиджем (1791--1864) в начале XIX в. В 1820--1822 гг. он построил машину, которая могла вычислять таблицы значений многочленов второго порядка.

Машина Блеза Паскаля.

Считается, что первую механическую машину, которая могла выполнять сложение и вычитание, изобрел в 1646г. молодой 18-летний французский математик и физик Блез Паскаль. Она называется "паскалина".

Формой своей машина напоминала длинный сундучок. Она была достаточно громоздка, имела несколько специальных рукояток, при которых осуществлялось управление, имела ряд маленьких колес с зубьями. Первое колесо считало единицы, второе - десятки, третье - сотни и т.д. Сложение в машине Паскаля производится вращением колес вперед. Двигая их обратно, выполняется вычитание.

Машина Готфрида Лейбница

Следующим шагом было изобретение машины, которая могла выполнять умножение и деление. Такую машину изобрел в 1671 г. немец Готфрид Лейбниц. Хоть машина Лейбница и была похожа на "Паскалину", она имела движущуюся часть и ручку, с которой можно было крутить специальное колесо или цилиндры, расположенные внутри аппарата. Такой механизм позволил ускорить повторяющиеся операции сложения, необходимые для умножения. Само повторение тоже осуществлялось автоматически.

Перфокарты Жаккара

Французский ткач и механик Жозеф Жаккар создал первый образец машины, управляемой введением в нее информацией. В 1802 г. он построил машину, которая облегчила процесс производства тканей со сложным узором. При изготовлении такой ткани нужно поднять или опустить каждую из ряда нитей. После этого ткацкий станок протягивает между поднятыми и пущенными нитями другую нить. Затем каждая из нитей опускается или поднимается в определенном порядке и станок снова пропускает через них нить. Этот процесс многократно повторяется до тех пор, пока не будет получена нужная длина ткани с узором. Для задания узора на ткани Жаккар использовал ряды отверстий на картах. Если применялось десять нитей, то в каждом ряду карты предусматривалось место для десяти отверстий. Карта закреплялась на станке в устройстве, которое могло обнаруживать отверстия на карте. Это устройство с щупов проверяло каждый ряд отверстий на карте. Информация на карте управляла станком.

4,8(82 оценок)
Открыть все ответы
Ответ:
danilgrekov20
danilgrekov20
30.05.2022
Type
    bignum = array[1..100] of integer;

var
    a, b: bignum;
    i, j, k, n_a, n_b: integer;

procedure get_num(var m: bignum; var n: integer);
var
    i := 0;
    s: string;
begin
    write('Введите число = ');
    readln(s);
    s := trim(s);
    n := 0;
    for i := length(s) downto 1 do
        if s[i] in ['0'..'9'] then begin
            n := n + 1;
            m[n] := strtoint(s[i]);
        end;
end;

function more(a, b: bignum; n_a: integer): boolean;
var
    i: integer;
    f := false;
begin
    for i := n_a downto 1 do
    begin
        if a[i] > b[i] then f := true
        else if a[i] < b[i] then f := false;
        if a[i] <> b[i] then break;
    end;
    more := f;
end;

procedure show(m: bignum; n: integer);
var
    i: integer;
begin
    write('Вывод ');
    for i := n downto 1 do
        write(m[i]);
    writeln();
end;

begin
    get_num(a, n_a);
    get_num(b, n_b);
   
    while (n_a >= n_b) and more(a, b, n_a) do    
    begin
        if (a[n_a] > b[n_b]) then k := n_a - n_b
        else if n_a > n_b then k := n_a - n_b - 1
        else k := 0;
       
        for i := 1 to n_b do
        begin
            a[i + k] := a[i + k] - b[i];
            if a[i + k] < 0 then begin
                for j := i + k to n_a - 1 do
                begin
                    if a[j] >= 0 then break;
                    a[j] := a[j] + 10;
                    a[j + 1] := a[j + 1] - 1;
                end
            end;
        end;
        if a[n_a] = 0 then n_a := n_a - 1;
    end;
   
    show(a, n_a);
end.
4,5(58 оценок)
Ответ:
OOONIMOOO
OOONIMOOO
30.05.2022
1) Program n1; 
var n,i:integer; 
t:array[1..100] of real; 
a,b:real; 
begin 
readln(n); 
readln(a); 
readln(b); 
for i:=1 to n do 
begin 
t[i]:=(b-a)/n; 
write(t[i],'  '); 
end; 
end.
2) Program n1; 
var a:array[1..100] of integer; 
n,i:integer; 
k:real; 
begin 
read(n); 
k:=0; 
for i:=1 to n do 
read(a[i]); 
for i:=1 to n do 
if a[i] mod 2 <> 0 then 
k:=k+1; 
writeln; 
writeln('кол-во нечет. чисел равно ',k,''); 
end.
6) Program n1; 
var a:array[1..100] of real; 
i,n:integer; 
s,sr:real; 
begin 
read(n); 
for i:=1 to n do 
read(a[i]); 
s:=0; 
sr:=0; 
for i:=1 to n do 
s:=s+a[i]; 
sr:=s/n; 
writeln('сред. арифметическое равно ',sr,''); 
end.
7)  Program n1; 
var a:array[1..100] of real; 
i,n:integer; 
min,max:real; 
begin 
read(n); 
for i:=1 to n do
read(a[i]); 
min:=a[1]; 
for i:=2 to n do 
if a[i]<min then 
min:=a[i]; 
max:=a[1]; 
for i:=2 to n do 
if a[i]>max then 
max:=a[i]; 
writeln('максимальный элемент равен ',max,''); 
writeln('минимальный элемент равен ',min,''); 
end.
8) Program n1; var a:array[1..100] of real; i,n:integer; min,max,nom1,nom2:real; begin read(n); for i:=1 to n do read(a[i]); min:=a[1]; nom1:=1; for i:=2 to n do if a[i]<min then begin min:=a[i]; nom1:=i; end; max:=a[1]; nom2:=1; for i:=2 to n do if a[i]>max then begin max:=a[i]; nom2:=i; end; writeln('максимальный элемент равен ',max,', его номер ',nom2,''); writeln('минимальный элемент равен ',min,', его номер ',nom1,''); end.
9) Program n1; var a:array[1..100] of real; i,n:integer; min,max,s,sr:real; begin read(n); randomize; for i:=1 to n do begin a[i]:=random(100)+1; write(a[i],'  '); end; writeln; s:=0; sr:=0; for i:=1 to n do s:=s+a[i]; sr:=s/n; writeln('ср. арифм. = ',sr,''); min:=a[1]; for i:=2 to n do if a[i]<min then min:=a[i]; max:=a[1]; for i:=2 to n do if a[i]>max then max:=a[i]; writeln('максимальный элемент равен ',max,''); writeln('минимальный элемент равен ',min,''); end.
4,7(30 оценок)
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ