Принципы работы современной компьютерной мыши были сформулированы и впервые реализованы в 1940-ых годах века – устройство управления, использующее шар для боулинга в качестве элемента для определения координат объекта в режиме реального времени. Идея о создании мыши возникла у ученого Дугласа Энгельбарта еще в конце 50-х г.г.Её создателем стал Билл Инглиш, а Джефф Рулифсон написал программное обеспечение, необходимое для демонстрации технических возможностей мыши..Функциональность мышки обеспечивалась двумя дисками, встроенными взаимно перпендикулярно – их перемещение в четырех направлениях полностью соответствовало изменению координат объекта в двумерной системе координат.Компьютерная мышь сегодня – незаменимое устройство, значительно превосходящее известные сегодня аналоги по всем характеристикам.
Procedure R(Nazvanie:string; Cvet:byte); Begin TextBackground(Cvet); ClrScr; GotoXY(WindowWidth div 2-Length(Nazvanie) div 2,WindowHeight div 2); Write(Nazvanie); End;
Var n:byte; Begin HideCursor; TextBackground(0); ClrScr; TextColor(15); GotoXY(WindowWidth div 2-12,WindowHeight div 2); Write('Введите номер дня недели'); Case ReadKey of '1': R('Понедельник',4); '2': R('Вторник',14); '3': R('Среда',2); '4': R('Четверг',9); '5': R('Пятница',1); '6': R('Суббота',13); '7': R('Воскресенье',12); else R('В неделе сейчас семь дней!',0); End; ReadKey End.