Документ взят из кэша поисковой машины. Адрес оригинального документа : http://www.students.chemport.ru/materials/pascal/p1_3.pas Дата изменения: Thu Jan 15 18:04:44 2009 Дата индексирования: Mon Oct 1 21:18:03 2012 Кодировка: Windows-1251

(*Программа по теме 1, вариант 3.
"Вычиление плотности распределения энергии излучения с использованием
закона Планка при вводимой с клавиатуры частоте излучения и температуре"*)
uses wincrt;
var
w,t,p:real;
const
h=6.626176e-34;
k=1.380662e-23;
c=2.99792558e10{cm/c};
begin
{Ввод частоты излучения и температуры с клавиатуры}
writeln('частота (1/c), температура (K)');
readln(w,t);
{Вычисление плотности энергии излучения по закону Планка}
P:=8*pi*h*w*w*w/c/c/c/(exp(h*w/k/t)-1);
{Распечатка значений температуры, частоты излучения
и полученной плотности энергии излучения}
writeln('При температуре ',t:8:2,' K');
writeln('частоте ',w:8,' 1/c');
writeln;
writeln('плотность энергии излучения = ',P:13,' Дж*с/см3');
end.