Const n=20; var a:array[1..n] of integer; i,i1,i2,x:integer; begin Randomize; a[1]:=random(10); write(a[1],' '); for i:=2 to n do begin a[i]:=a[i-1]+random(10); write(a[i],' '); end; writeln; write('x = '); readln(x); i1:=1; i2:=n; repeat i:=(i1+i2) div 2; if a[i]<x then i1:=(i1+i2) div 2+1; if a[i]>x then i2:=(i1+i2) div 2-1; until (a[i]=x)or(i1>i2); if a[i]=x then begin writeln('Искомый(ые) номер(а) элемента(ов):'); while (i>0)and(a[i]=x) do i:=i-1; i:=i+1; while (i<=n)and(a[i]=x) do begin write(i,' '); i:=i+1; end; end else writeln('Элемент не найден'); writeln; end.
. Правда это относится скорее к автоматизации, чем к роботизации. А потом стало не до хайтека.
После войны одним из главных направлений в развитии высоких технологий стала космонавтика. Кроме того, армия нуждалась в качественно новых образцах вооружений. Поэтому в 1951 в МГТУ им. Баумана была открыта кафедра СМ-7 «Специальная робототехника и мехатроника». В стране активно развивается теория вычислительных машин и автоматизации программирования, создаётся элементная база, вводятся в эксплуатацию ЭВМ, не уступающие лучшим мировым образцам (МЭСМ, Сетунь, АВМ МН-10, СВМ 5Э89 Курс, Днепр), создаются новые коллективы учёных и инженеров для создания робототехники.
D=¬A*B+¬A*¬B +A
D=¬A(B+¬B) +A
D=¬A+A
D=1