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

uses wincrt;
var
Step,w,w0,t,P:real;
i:integer;
ttt:text;
const
h=6.626176e-34;
k=1.380662e-23;
c=2.99792558e10{см/с};
begin
writeln('температура (K)');
readln(t);
writeln('Частота (1/c): нач., кон. значения и шаг ?');
readln(w,w0,Step);
writeln('Температура ',t:5:0,' (K)');
writeln('Частота (1/c) Плотность энергии излучения (Дж*с/см3)');
assign(ttt,'p2~3.txt');rewrite (ttt);
for i:=0 to Trunc((w0-w)/Step) do
begin
P:=8*pi*h*w*w*w/c/c/c/(exp(h*w/k/t)-1);
writeln(w:9,' ',p:13);
writeln(ttt,w:9,' ',p:13);
w:=w+Step;
end;
end.