Подавляющему большинству пользователей персональных компьютеров имя Карла Дугласа Энгельбарта вряд ли о чем-то говорит. Но это никак не мешает более чем 1 млрд человек каждый день использовать его творения. При этом одним из самых популярных и востребованных на сегодняшний день является компьютерная мышка.В 1964 году команде доктора Дугласа Энгельбарта было поручено создать ARPANet Network Information Center, предшественник сегодняшнего интернета. Ну и что же, как побочный эффект этого проекта на свет появился первый манипулятор, который получил название компьютерная мышь.
Это уникальное изобретение, без которого сегодня тормозится любая деятельность на компьютере, на самом деле разработали случайно. Существующие тогда манипуляторы (клавиатура, джойстики и световые перья) тормозили процессы оконной среды, поэтому Дуглас быстро придумал дополнение, которое должно было облегчить текущие процессы. А это при потом оказалось гениальным изобретением!
Program asd; Var A,C:array[1..2500] of integer; i,n,s,ii:integer; sr:real; BEGIN Write('Введите n: '); Readln(n); Writeln('Массив: '); For i:=1 to n do begin A[i]:=1+Random(9); Write(A[i]:2); end; Writeln; Writeln('Все элементы, которые меньше последнего числа в ряду: '); For i:=1 to n do begin if A[i]<A[n] then Write(A[i]:2); end; Writeln; Writeln('Среднее арифметическое элементов массива: '); For i:=1 to n do begin s:=s+A[i]; sr:=s/i; end; Writeln(sr:2:2); Writeln('Номер элементов, которые от 3 до 7.: '); For i:=1 to n do begin If (A[i]>=3) and (A[i]<=7) then begin C[i]:=i; Write(C[i],' '); end; end; END.
Program asd; Var A,C:array[1..2500] of integer; i,n,s,ii:integer; sr:real; BEGIN Write('Введите n: '); Readln(n); Writeln('Массив: '); For i:=1 to n do begin A[i]:=1+Random(9); Write(A[i]:2); end; Writeln; Writeln('Все элементы, которые меньше последнего числа в ряду: '); For i:=1 to n do begin if A[i]<A[n] then Write(A[i]:2); end; Writeln(); Writeln('Номер элементов, которые от 3 до 7.: '); For i:=1 to n do begin If (A[i]>=3) and (A[i]<=7) then begin C[i]:=i; Write(C[i],' '); end; end; END.
Это уникальное изобретение, без которого сегодня тормозится любая деятельность на компьютере, на самом деле разработали случайно. Существующие тогда манипуляторы (клавиатура, джойстики и световые перья) тормозили процессы оконной среды, поэтому Дуглас быстро придумал дополнение, которое должно было облегчить текущие процессы. А это при потом оказалось гениальным изобретением!