// 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
zrv85
27.10.2021
1) ветвление 2) про него можно сказать, что оно истинно или ложно. 3) целый - если известно что переменная принимает только целые числа, вещественный - во всех иных случаях, особенно если есть деление в процессе выполнения программы. анекдот в тему: "разговаривают два программиста: 1) информатики реально умные люди. 2) 1) только мы можем ответить на вопрос в котором уже заложен ответ. 2) в смесле? 1) сколько будет 2+2=4? 2) ! " (с)народный анекдот. прочитал где-то, воспроизвел по памяти.
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Алфавит некоторого языка состоит из 5 букв. сколько различных четырехбуквенных слов можно составить в этом языке?