Документ взят из кэша поисковой машины. Адрес оригинального документа : http://www.wdcb.ru/stp/data/cosmic.ray/G%20L%20E/C005/YY/E10_UP_Y.PAS Дата изменения: Fri Apr 27 16:12:11 2007 Дата индексирования: Sat Dec 22 09:52:08 2007 Кодировка: Поисковые слова: рер р р р р р р р р р р р р р

Program e10_up_y; {y=10**y}
Uses
crt;
var
Cod,k,m,n : word;
InpF,OutF : text;
X,Y,Y10 : real;
str12 : string;
begin
clrscr;
TextColor(15);
for k := 1 to ParamCount do
WriteLn(ParamStr(k));
if ParamStr(1)<>'' then for m:=1 to ParamCount do
begin
Assign(InpF,ParamStr(m)); Reset(InpF);
{ Assign(InpF,'D:\(DB_GLE)\DataWork+'+ParamStr(m)); Reset(InpF);}
str12:=ParamStr(m);
Delete(str12,Pos('.',str12)+3,1);
Insert('^',str12,Pos('.',str12)+3);
Assign(OutF,str12); Rewrite(OutF);
n:=0;
repeat
n:=n+1;
read(InpF,X,Y);
Y10:=exp(Y*ln(10));
writeln(n:4,X:6:2,Y:12:5,Y10:9:2);
writeln(OutF,' ',X:6:2,Y:12:5,Y10:9:2);
Until EOF(InpF);
Close(InpF); Close(OutF);
end
else
begin
clrscr;
writeln('e10_up_a.exe FileName');
writeln('10**y');
end;
end.
---------input file:
3.51 0.000000
3.52 1.292308
3.53 2.169231
3.54 2.434615
3.55 2.538461
3.56 2.642308
3.57 2.746154
3.58 2.838462
3.59 2.942308
4.00 3.023077
4.01 3.092308
4.02 3.161538
4.03 3.219231
4.04 3.230769
4.05 3.253846
4.06 3.265385
4.07 3.300000
4.08 3.300000
4.09 3.323077
4.10 3.346154
4.20 3.300000
4.30 3.242308
4.40 3.184615
4.50 3.126923
5.00 3.080769
5.10 2.988461
5.20 2.907692
5.30 2.850000
5.40 2.792308
5.50 2.746154
6.00 2.676923
6.10 2.630769
6.20 2.584615
6.30 2.538461
6.40 2.492308
6.50 2.469231
7.00 2.423077
7.10 2.388462
7.20 2.342308
7.30 2.296154
7.40 2.273077
7.50 2.250000
8.00 2.215385
9 2.073359
10 1.945946
11 1.818533
12 1.691120
13 1.586873
14 1.482625
15 1.389961
16 1.297297
17 1.239382
18 1.146718
19 1.077220
20 1.007722
21 0.949807
22 0.903475
23 0.868726
24 0.822394
---------output file
3.51 0.00000 1.00
3.52 1.29231 19.60
3.53 2.16923 147.65
3.54 2.43461 272.03
3.55 2.53846 345.51
3.56 2.64231 438.84
3.57 2.74615 557.38
3.58 2.83846 689.39
3.59 2.94231 875.60
4.00 3.02308 1054.57
4.01 3.09231 1236.82
4.02 3.16154 1450.57
4.03 3.21923 1656.65
4.04 3.23077 1701.25
4.05 3.25385 1794.10
4.06 3.26538 1842.40
4.07 3.30000 1995.26
4.08 3.30000 1995.26
4.09 3.32308 2104.15
4.10 3.34615 2218.98
4.20 3.30000 1995.26
4.30 3.24231 1747.06
4.40 3.18461 1529.73
4.50 3.12692 1339.44
5.00 3.08077 1204.40
5.10 2.98846 973.78
5.20 2.90769 808.52
5.30 2.85000 707.95
5.40 2.79231 619.88
5.50 2.74615 557.38
6.00 2.67692 475.25
6.10 2.63077 427.34
6.20 2.58461 384.25
6.30 2.53846 345.51
6.40 2.49231 310.68
6.50 2.46923 294.60
7.00 2.42308 264.90
7.10 2.38846 244.60
7.20 2.34231 219.94
7.30 2.29615 197.77
7.40 2.27308 187.53
7.50 2.25000 177.83
8.00 2.21538 164.20
9.00 2.07336 118.40
10.00 1.94595 88.30
11.00 1.81853 65.85
12.00 1.69112 49.10
13.00 1.58687 38.63
14.00 1.48263 30.38
15.00 1.38996 24.54
16.00 1.29730 19.83
17.00 1.23938 17.35
18.00 1.14672 14.02
19.00 1.07722 11.95
20.00 1.00772 10.18
21.00 0.94981 8.91
22.00 0.90348 8.01
23.00 0.86873 7.39
24.00 0.82239 6.64
0.00 0.00000 1.00