// PascalABC.Net 3.0, сборка 1052 const k=5; minT=-60; maxT=60; Umax=4.8; var Ut,s,meanT:real; ring:array[1..k] of real; i,p:byte; begin { Модерируем работу за 25 с } Randomize; s:=0; { Выход на рабочий режим } for i:=1 to k do begin Ut:=0.3*Random+3; { колебания напряжения от 3 до 3.3В } ring[i]:=minT+(maxT-minT)*Ut/Umax; s:=s+ring[i] end; meanT:=s/k; Writeln('t=',k:2,'c, средняя температура= ',meanT:6:2); { Рабочий режим } for i:=k+1 to 25 do begin Ut:=0.3*Random+3; { колебания напряжения от 3 до 3.3В } p:=i mod k; if p=0 then p:=k; s:=s-ring[p]; ring[p]:=minT+(maxT-minT)*Ut/Umax; s:=s+ring[p]; meanT:=s/k; Writeln('t=',i:2,'c, средняя температура= ',meanT:6:2); end end.
Тестовое решение: t= 5c, средняя температура= 19.61 t= 6c, средняя температура= 20.35 t= 7c, средняя температура= 20.60 t= 8c, средняя температура= 19.68 t= 9c, средняя температура= 20.03 t=10c, средняя температура= 19.17 t=11c, средняя температура= 18.06 t=12c, средняя температура= 17.16 t=13c, средняя температура= 18.15 t=14c, средняя температура= 18.01 t=15c, средняя температура= 18.25 t=16c, средняя температура= 19.44 t=17c, средняя температура= 19.71 t=18c, средняя температура= 18.80 t=19c, средняя температура= 18.54 t=20c, средняя температура= 19.36 t=21c, средняя температура= 19.57 t=22c, средняя температура= 20.20 t=23c, средняя температура= 20.65 t=24c, средняя температура= 20.97 t=25c, средняя температура= 20.46
Основные сочетания клавиш CTRL+C: копирование CTRL+X: вырезание CTRL+V: вставка CTRL+Z: отмена действия DELETE: удаление SHIFT+DELETE: удаление выбранного объекта без возможности восстановления, не помещая объект в корзину CTRL с перетаскиванием объекта: копирование выделенного объекта CTRL+SHIFT с перетаскиванием объекта: создание ярлыка для выбранного объекта Клавиша F2: переименование выбранного объекта CTRL+СТРЕЛКА ВПРАВО: перемещение точки ввода в начало следующего слова CTRL+СТРЕЛКА ВЛЕВО: перемещение точки ввода в начало предыдущего слова CTRL+СТРЕЛКА ВНИЗ: перемещение точки ввода в начало следующего абзаца CTRL+СТРЕЛКА ВВЕРХ: перемещение точки ввода в начало предыдущего абзаца CTRL+SHIFT + клавиши со стрелками: выделение блока текста SHIFT + клавиши со стрелками: выбор нескольких объектов в окне или на рабочем столе, а также выделение текста в документе CTRL+A: выделение всего документа Клавиша F3: поиск файла или папки ALT+ВВОД: просмотр свойств выбранного объекта ALT+F4: закрытие активного окна или завершение работы активной программы ALT+ВВОД: просмотр свойств выбранного объекта ALT+ПРОБЕЛ: вызов контекстного меню активного окна CTRL+F4: закрытие активного документа в приложениях, в которых одновременно можно открыть несколько документов ALT+ТАБУЛЯЦИЯ: переход между открытыми объектами ALT+ESC: просмотр объектов в том порядке, в котором они были открыты Клавиша F6: поочередный просмотр элементов интерфейса в окне или на рабочем столе Клавиша F4: отображение панели адресов в папке «Мой компьютер» или в обозревателе Windows Explorer SHIFT+F10: вызов контекстного меню для выделенного элемента ALT+ПРОБЕЛ: вызов системного меню для активного окна CTRL+ESC: вызов меню «Пуск» ALT+подчеркнутая буква в названии меню: вызов соответствующего меню Подчеркнутая буква в имени команды открытого меню: выполнение соответствующей команды Клавиша F10: активация строки меню в используемой программе СТРЕЛКА ВПРАВО: вызов следующего меню справа или подменю СТРЕЛКА ВЛЕВО: вызов следующего меню слева или закрытие подменю Клавиша F5: обновление активного окна Клавиша BACKSPACE: просмотр содержимого папки, расположенной выше на один уровень в каталоге «Мой компьютер» или обозревателе Windows Explorer Клавиша ESC: отмена выполняемого задания SHIFT при загрузке компакт-диска в привод для компакт-дисков: предотвращение автоматического воспроизведения компакт-диска CTRL+SHIFT+ESC: вызов диспетчера задач
sin(x) – синус аргумента.
cos(x) – косинус аргумента.
arctan(x) – арктангенс аргумента.
exp(x) – возвращает экспоненту параметра.
ln(x) – натуральный логарифм.
a div b – деления целочисленного числа.
trunc(x) – выдает целую часть вещественного числа, отбрасывая дробную.
round (x) – округляет вещественное число до ближайшего целого.