Документ взят из кэша поисковой машины. Адрес оригинального документа : http://www.wdcb.ru/stp/data/cosmic.ray/Neutron_Monitors(minute_values)/C/1990C/1990KIEL/F1.PAS Дата изменения: Mon Jun 20 17:18:06 2005 Дата индексирования: Sat Sep 6 08:56:13 2008 Кодировка:

program fife;
var
st1,st2 : string;
str12 : string[12];
m,n,k : word;
inpF1,inpF2,inpF3,inpF,outF : text;
d1,d2,d3,d,p : array[1..12] of real;
begin
{ st1:='D:\(DB5MIN)\1991c\1991kiel';
Assign(inpF1,st1+'\'+'9112kie1.w5u'); Reset(inpF1);
Assign(inpF2,st1+'\'+'9112kie2.w5u'); Reset(inpF2);
Assign(inpF3,st1+'\'+'9112kie3.w5u'); Reset(inpF3);
Assign(outF ,st1+'\'+'9112kiel.w5u'); ReWrite(outF);
repeat
for k:=1 to 12 do read(inpF1,d1[k]); readln(inpF1);
for k:=1 to 12 do read(inpF2,d2[k]); readln(inpF2);
for k:=1 to 12 do read(inpF3,d3[k]); readln(inpF3);
for k:=1 to 12 do d[k]:=d1[k]+d2[k]+d3[k];
for k:=1 to 12 do write(outF,' ',d[k]:5:0); writeln(outF);
writeln;
until EOF(inpF1);
Close(inpF1); Close(inpF2);
Close(inpF3); Close(outF);}


{ st1:='D:\(DB5MIN)\1991c\1991kiel';
Assign(inpF1,st1+'\'+'9101kiel.w5p'); Reset(inpF1);
Assign(outF ,st1+'\'+'9101kiel.w5'); ReWrite(outF);
repeat
for k:=1 to 12 do read(inpF1,d1[k]); readln(inpF1);
for k:=1 to 12 do p[k]:=d1[k]/0.75;
for k:=1 to 12 do write(outF,' ',p[k]:5:0); writeln(outF);
writeln;
until EOF(inpF1);
Close(inpF1); Close(outF);}

st1:='D:\(DB5MIN)\1991c\1991kiel';
Assign(inpF1,st1+'\'+'9101kiel.w5u'); Reset(inpF1);
Assign(inpF2,st1+'\'+'9101kiel.w5p'); Reset(inpF2);
Assign(outF ,st1+'\'+'9101kiel.w5c'); ReWrite(outF);
repeat
for k:=1 to 12 do read(inpF1,d1[k]); readln(inpF1);
for k:=1 to 12 do read(inpF2,p[k]); readln(inpF2);
for k:=1 to 12 do d2[k]:=d1[k]*exp(-0.0072*(10060-p[k])/10);
for k:=1 to 12 do write(outF,' ',d2[k]:5:0); writeln(outF);
writeln;
until EOF(inpF1);
Close(inpF1); Close(inpF2);
Close(outF);
end.