Винер (Wiener) Норберт (26.11.1894, Колумбия, Миссури, — 19.3.1964, Стокгольм) , американский учёный. К 14 годам изучил высшую математику, в 18 лет стал доктором философии Гарвардского университета. С 1919 преподаватель, с 1932 профессор Массачусетского технологического института. Занимался математической логикой и теоретической физикой. В 1920—30-е гг. получил известность как математик работами по теории потенциала, гармоническим функциям, рядам и преобразованиям Фурье, тауберовым теоремам, общему гармоническому анализу. В 1945—47 годах у Винера возникла идея о необходимости создания единой науки, изучающей процессы хранения и переработки информации, управления и контроля. Для этой науки Винер предложил название кибернетика, получившее общее признание. Норберту Винеру принадлежит, несомненно, первое место в пропаганде значения кибернетики во всей системе человеческих знаний.
// PascalABC.NET 3.2, сборка 1325 от 19.10.2016 begin var L:=new List<integer>; Writeln('Вводите целые числа, окончание ввода по -777'); var n:integer; repeat n:=ReadInteger; if n<>-777 then L.Add(n); until n=-777; Writeln('Исходный список'); Writeln(L); n:=ReadInteger('Введите искомое число:'); var p:=L.FindIndex(k->k=n); // искомый элемент if p<0 then Writeln('Искомый элемент в списке не найден') else begin Writeln('Элемент ',L.Item[p-2],' удален'); L.RemoveAt(p-2); Writeln(L); // удалили и убедились n:=ReadInteger('Введите число для вставки:'); L.Insert(p-1,n); Writeln(L) end end.
Пример Вводите целые числа, окончание ввода по -777 1 6 12 73 -15 34 18 0 24 -777 Исходный список [1,6,12,73,-15,34,18,0,24] Введите искомое число: 34 Элемент 73 удален [1,6,12,-15,34,18,0,24] Введите число для вставки: 1000 [1,6,12,-15,1000,34,18,0,24]
В 1945—47 годах у Винера возникла идея о необходимости создания единой науки, изучающей процессы хранения и переработки информации, управления и контроля. Для этой науки Винер предложил название кибернетика, получившее общее признание. Норберту Винеру принадлежит, несомненно, первое место в пропаганде значения кибернетики во всей системе человеческих знаний.
begin
var L:=new List<integer>;
Writeln('Вводите целые числа, окончание ввода по -777');
var n:integer;
repeat
n:=ReadInteger;
if n<>-777 then L.Add(n);
until n=-777;
Writeln('Исходный список'); Writeln(L);
n:=ReadInteger('Введите искомое число:');
var p:=L.FindIndex(k->k=n); // искомый элемент
if p<0 then Writeln('Искомый элемент в списке не найден')
else begin
Writeln('Элемент ',L.Item[p-2],' удален');
L.RemoveAt(p-2); Writeln(L); // удалили и убедились
n:=ReadInteger('Введите число для вставки:');
L.Insert(p-1,n); Writeln(L)
end
end.
Пример
Вводите целые числа, окончание ввода по -777
1 6 12 73 -15 34 18 0 24 -777
Исходный список
[1,6,12,73,-15,34,18,0,24]
Введите искомое число: 34
Элемент 73 удален
[1,6,12,-15,34,18,0,24]
Введите число для вставки: 1000
[1,6,12,-15,1000,34,18,0,24]