Робот пылесос к примеру. Роботы-пылесосы – это уникальное решение для тех, кто не любит делать уборку или тех, у кого на это катастрофически мало времени. Система искусственного интеллекта AWARE позволяет обеспечить качественную уборку во всем помещении, даже под мебелью или вокруг ножек стола. Роботы-пылесосы распознают ступеньки и перепады высоты - и можно не бояться, что прибор упадет с лестницы. Некоторые приборы позволяют программировать график работы на неделю. Моющий робот-пылесос прекрасно очищает полы не только от пыли, но и от пролитой жидкости и грязи. Безусловно полезен для общества
// PascalABC.NET 3.3.5, сборка 1636 от 10.03.2018 // Внимание! Если программа не работает, обновите версию!
begin // создание файла var f:file of integer; var n:=20; // размер файла Randomize; Rewrite(f,'F.bin'); var b:integer; loop n do begin b:=Random(-50,50); Write(f,b) end; f.Close; // вывод содержимого исходного файла Reset(f,'F.bin'); while not f.Eof do Print(f.Read); Writeln; // нахождение суммы четных компонент файла // в связи с двусмысленностью условия считается, что // понятие четности применяется к значению компоненты. f.Reset; var s:=f.ReadElements.Where(t->t.IsEven).Sum; // -48 // увеличение на значение суммы отрицательных компонент // второй половины файла f.Seek(f.FileSize div 2); while not f.Eof do begin b:=f.Read; if b<0 then begin b+=s; f.Seek(f.FilePos-1); Write(f,b) end end; // удаляем минимальную компоненту f.Reset; var a:=f.ReadElements.ToArray; var imin:=a.IndexMin; a:=(a?[:imin]+a?[imin+1:]).ToArray; f.Reset; foreach b in a do Write(f,b); f.Truncate; // вывод содержимого полученного файла f.Reset; while not f.Eof do Print(f.Read); Writeln; f.Close end.
Роботы-пылесосы – это уникальное решение для тех, кто не любит делать уборку или тех, у кого на это катастрофически мало времени. Система искусственного интеллекта AWARE позволяет обеспечить качественную уборку во всем помещении, даже под мебелью или вокруг ножек стола. Роботы-пылесосы распознают ступеньки и перепады высоты - и можно не бояться, что прибор упадет с лестницы.
Некоторые приборы позволяют программировать график работы на неделю.
Моющий робот-пылесос прекрасно очищает полы не только от пыли, но и от пролитой жидкости и грязи. Безусловно полезен для общества