begin
comment library 1;
array
a0[1 : 10],
a1[1 : 10],
a2[1 : 10],
a3[1 : 10],
a4[1 : 10],
a5[1 : 10],
a6[1 : 10],
a7[1 : 10],
a8[1 : 10],
a9[1 : 10],
a10[1 : 10],
a11[1 : 10],
a12[1 : 10],
a13[1 : 10],
a14[1 : 10],
a15[1 : 10],
a16[1 : 10],
a17[1 : 10],
a18[1 : 10],
a19[1 : 10],
a20[1 : 10],
a21[1 : 10],
a22[1 : 10],
a23[1 : 10],
a24[1 : 10],
a25[1 : 10],
a26[1 : 10],
a27[1 : 10],
a28[1 : 10],
a29[1 : 10],
a30[1 : 10],
a31[1 : 10],
a32[1 : 10],
a33[1 : 10],
a34[1 : 10],
a35[1 : 10],
a36[1 : 10],
a37[1 : 10],
a38[1 : 10],
a39[1 : 10],
a40[1 : 10],
a41[1 : 10],
a42[1 : 10],
a43[1 : 10],
a44[1 : 10],
a45[1 : 10],
a46[1 : 10],
a47[1 : 10],
a48[1 : 10],
a49[1 : 10],
a50[1 : 10],
a51[1 : 10],
a52[1 : 10],
a53[1 : 10],
a54[1 : 10],
a55[1 : 10],
a56[1 : 10],
a57[1 : 10],
a58[1 : 10],
a59[1 : 10];
a0[1] := 1.0;
a1[1] := 1.0;
a2[1] := 1.0;
a3[1] := 1.0;
a4[1] := 1.0;
a5[1] := 1.0;
a6[1] := 1.0;
a7[1] := 1.0;
a8[1] := 1.0;
a9[1] := 1.0;
a10[1] := 1.0;
a11[1] := 1.0;
a12[1] := 1.0;
a13[1] := 1.0;
a14[1] := 1.0;
a15[1] := 1.0;
a16[1] := 1.0;
a17[1] := 1.0;
a18[1] := 1.0;
a19[1] := 1.0;
a20[1] := 1.0;
a21[1] := 1.0;
a22[1] := 1.0;
a23[1] := 1.0;
a24[1] := 1.0;
a25[1] := 1.0;
a26[1] := 1.0;
a27[1] := 1.0;
a28[1] := 1.0;
a29[1] := 1.0;
a30[1] := 1.0;
a31[1] := 1.0;
a32[1] := 1.0;
a33[1] := 1.0;
a34[1] := 1.0;
a35[1] := 1.0;
a36[1] := 1.0;
a37[1] := 1.0;
a38[1] := 1.0;
a39[1] := 1.0;
a40[1] := 1.0;
a41[1] := 1.0;
a42[1] := 1.0;
a43[1] := 1.0;
a44[1] := 1.0;
a45[1] := 1.0;
a46[1] := 1.0;
a47[1] := 1.0;
a48[1] := 1.0;
a49[1] := 1.0;
a50[1] := 1.0;
a51[1] := 1.0;
a52[1] := 1.0;
a53[1] := 1.0;
a54[1] := 1.0;
a55[1] := 1.0;
a56[1] := 1.0;
a57[1] := 1.0;
a58[1] := 1.0;
a59[1] := 1.0;
outreal(1, a0[1] + a1[1] + a2[1] + a3[1] + a4[1] + a5[1] + a6[1]
+ a7[1] + a8[1] + a9[1] + a10[1] + a11[1] + a12[1] +
a13[1] + a14[1] + a15[1] + a16[1] + a17[1] + a18[1] +
a19[1] + a20[1] + a21[1] + a22[1] + a23[1] + a24[1] +
a25[1] + a26[1] + a27[1] + a28[1] + a29[1] + a30[1] +
a31[1] + a32[1] + a33[1] + a34[1] + a35[1] + a36[1] +
a37[1] + a38[1] + a39[1] + a40[1] + a41[1] + a42[1] +
a43[1] + a44[1] + a45[1] + a46[1] + a47[1] + a48[1] +
a49[1] + a50[1] + a51[1] + a52[1] + a53[1] + a54[1] +
a55[1] + a56[1] + a57[1] + a58[1] + a59[1]);
end
algol
begin
comment library 1;
integer procedure iabs(i);
value
i;
integer
i;
iabs :=
if i < 0 then
- i
else
i;
integer
i,
j,
k;
i := j := k := 1;
begin
array
a[(if iabs(j * k div i) > 3 * i - k then - 60 else 1) :
(if iabs(j * k div i) > 3 * i - k then - 60 else 1)
* 3.0 - 1.6 + 10.2],
a2[(if iabs(j * k div i) > 3 * i - k then - 60 else 1)
* 3.0 - 1.6 - 4 : (if iabs(j * k div i) > 3 * i - k
then - 60 else 1), (if iabs(j * k div i) > 3 * i - k
then - 60 else 1) * 3.0 - 1.6 - 4 : (if iabs(j * k
div i) > 3 * i - k then - 60 else 1)];
boolean
b;
switch s :=
l1,
if (if iabs(j * k div i) > 3 * i - k then - 60 else 1)
> 6 then l1 else l2,
l2;
a[(if iabs(j * k div i) > 3 * i - k then - 60 else 1)] :=
a2[(if iabs(j * k div i) > 3 * i - k then - 60 else 1),
(if iabs(j * k div i) > 3 * i - k then - 60 else 1)]
:= (if iabs(j * k div i) > 3 * i - k then - 60 else 1)
* 3.0 - 1.6;
b := (if iabs(j * k div i) > 3 * i - k then - 60 else 1) >
6;
l1 :;
goto
if (if iabs(j * k div i) > 3 * i - k then - 60 else 1)
> 6 then
l1
else
l2;
l2 :;
for i := 1 step (if iabs(j * k div i) > 3 * i - k then -
60 else 1) until (if iabs(j * k div i) > 3 * i - k
then - 60 else 1) do
a[i] := (if iabs(j * k div i) > 3 * i - k then - 60
else 1) * 3.0 - 1.6;
for i := (if iabs(j * k div i) > 3 * i - k then - 60 else
1),
(if iabs(j * k div i) > 3 * i - k then - 60 else 1) +
1,
(if iabs(j * k div i) > 3 * i - k then - 60 else 1) + 10
do
a[i] := (if iabs(j * k div i) > 3 * i - k then - 60
else 1);
if (if iabs(j * k div i) > 3 * i - k then - 60 else 1) > 6
then
goto s[(if iabs(j * k div i) > 3 * i - k then - 60
else 1) * 3.0 - 1.6]
else
for i := (if iabs(j * k div i) > 3 * i - k then - 60
else 1) step 10 until (if iabs(j * k div i) > 3
* i - k then - 60 else 1) - 1 do
for j := (if iabs(j * k div i) > 3 * i - k then -
60 else 1) while (if iabs(j * k div i) > 3
* i - k then - 60 else 1) > 6 do
;
i := iabs((if iabs(j * k div i) > 3 * i - k then - 60 else
1));
j := iabs((if iabs(j * k div i) > 3 * i - k then - 60 else
1) * 3.0 - 1.6);
outreal(1, i + j + (if iabs(j * k div i) > 3 * i - k then -
60 else 1) * 3.0 - 1.6 + (if iabs(j * k div i) > 3 * i -
k then - 60 else 1) + a[1] + a2[1, 1]);
end
end
algol
begin
comment library5;
integer
i,
j;
for i := - 2,
- 1,
1,
2 do
for j := - 2 step 1 until 2 do
if j div i \= sign(j / i) * entier(abs(j / i))
then
begin
outreal(1, j);
outreal(1, i);
outreal(1, j div i)
end;
end
algol
begin
comment library5;
integer procedure tsign(x);
value
x;
real
x;
tsign :=
if x > 0 then
1
else if x < 0 then
- 1
else
0;
integer procedure tentier(x);
value
x;
real
x;
tentier := x - .5;
real procedure tabs(x);
value
x;
real
x;
tabs :=
if x < 0 then
- x
else
x;
real
x;
for x := - 100,
- 100.1,
- 99.4,
- .4,
- .1,
0,
.1,
.4,
.6,
300 do
if tsign(x) \= sign(x) or tentier(x) \= entier(x) or
tabs(x) \= abs(x) then
outreal(1, x)
end
algol
begin
comment library9;
integer array
eq[1 : 9];
integer
i;
real
x,
y;
procedure print eq;
for i := 1 step 1 until 9 do
outreal(1, eq[i]);
procedure test(a, b, c);
value
a,
b,
c;
real
a,
b,
c;
begin
procedure inc(a, b, i);
value
a,
b,
i;
real
a,
b;
integer
i;
if a < b then
eq[i] := eq[i] + 1
else if a = b then
eq[i + 1] := eq[i + 1] + 1
else
eq[i + 2] := eq[i + 2] + 1;
inc(a, b, 1);
inc(b, c, 4);
inc(c, a, 7)
end;
for i := 1 step 1 until 9 do
eq[i] := 0;
i := 1;
for x :=
0.01, 0.02, 0.03, 0.04, 0.05,
0.06, 0.07, 0.08, 0.09, 0.10,
0.11, 0.12, 0.13, 0.14, 0.15,
0.16, 0.17, 0.18, 0.19, 0.20,
0.21, 0.22, 0.23, 0.24, 0.25,
0.26, 0.27, 0.28, 0.29, 0.30,
0.31, 0.32, 0.33, 0.34, 0.35,
0.36, 0.37, 0.38, 0.39, 0.40,
0.41, 0.42, 0.43, 0.44, 0.45,
0.46, 0.47, 0.48, 0.49, 0.50,
0.51, 0.52, 0.53, 0.54, 0.55,
0.56, 0.57, 0.58, 0.59, 0.60,
0.61, 0.62, 0.63, 0.64, 0.65,
0.66, 0.67, 0.68, 0.69, 0.70,
0.71, 0.72, 0.73, 0.74, 0.75,
0.76, 0.77, 0.78, 0.79, 0.80,
0.81, 0.82, 0.83, 0.84, 0.85,
0.86, 0.87, 0.88, 0.89, 0.90,
0.91, 0.92, 0.93, 0.94, 0.95,
0.96, 0.97, 0.98, 0.99, 1.00
do
begin
inreal(1, y);
test(x, y, i / 100);
i := i + 1
end;
printeq;
i := 1;
for x :=
100.01, 100.02, 100.03, 100.04, 100.05,
100.06, 100.07, 100.08, 100.09, 100.10,
100.11, 100.12, 100.13, 100.14, 100.15,
100.16, 100.17, 100.18, 100.19, 100.20,
100.21, 100.22, 100.23, 100.24, 100.25,
100.26, 100.27, 100.28, 100.29, 100.30,
100.31, 100.32, 100.33, 100.34, 100.35,
100.36, 100.37, 100.38, 100.39, 100.40,
100.41, 100.42, 100.43, 100.44, 100.45,
100.46, 100.47, 100.48, 100.49, 100.50,
100.51, 100.52, 100.53, 100.54, 100.55,
100.56, 100.57, 100.58, 100.59, 100.60,
100.61, 100.62, 100.63, 100.64, 100.65,
100.66, 100.67, 100.68, 100.69, 100.70,
100.71, 100.72, 100.73, 100.74, 100.75,
100.76, 100.77, 100.78, 100.79, 100.80,
100.81, 100.82, 100.83, 100.84, 100.85,
100.86, 100.87, 100.88, 100.89, 100.90,
100.91, 100.92, 100.93, 100.94, 100.95,
100.96, 100.97, 100.98, 100.99, 101.00
do
begin
inreal(1, y);
test(x, y, 100 + i / 100);
i := i + 1
end;
printeq;
i := 1;
for x :=
10000.01,10000.02,10000.03,10000.04,10000.05,
10000.06,10000.07,10000.08,10000.09,10000.10,
10000.11,10000.12,10000.13,10000.14,10000.15,
10000.16,10000.17,10000.18,10000.19,10000.20,
10000.21,10000.22,10000.23,10000.24,10000.25,
10000.26,10000.27,10000.28,10000.29,10000.30,
10000.31,10000.32,10000.33,10000.34,10000.35,
10000.36,10000.37,10000.38,10000.39,10000.40,
10000.41,10000.42,10000.43,10000.44,10000.45,
10000.46,10000.47,10000.48,10000.49,10000.50,
10000.51,10000.52,10000.53,10000.54,10000.55,
10000.56,10000.57,10000.58,10000.59,10000.60,
10000.61,10000.62,10000.63,10000.64,10000.65,
10000.66,10000.67,10000.68,10000.69,10000.70,
10000.71,10000.72,10000.73,10000.74,10000.75,
10000.76,10000.77,10000.78,10000.79,10000.80,
10000.81,10000.82,10000.83,10000.84,10000.85,
10000.86,10000.87,10000.88,10000.89,10000.90,
10000.91,10000.92,10000.93,10000.94,10000.95,
10000.96,10000.97,10000.98,10000.99,10001.00
do
begin
inreal(1, y);
test(x, y, 10000 + i / 100);
i := i + 1
end;
printeq;
i := 2;
for x :=
0.33333333333333333333,
0.12500000000000000000,
0.06666666666666666667,
0.04166666666666666667,
0.02857142857142857143,
0.02083333333333333333,
0.01587301587301587302,
0.01250000000000000000,
0.01010101010101010101,
0.00833333333333333333,
0.00699300699300699301,
0.00595238095238095238,
0.00512820512820512821,
0.00446428571428571429,
0.00392156862745098039,
0.00347222222222222222,
0.00309597523219814241,
0.00277777777777777778,
0.00250626566416040100,
0.00227272727272727273,
0.00207039337474120083,
0.00189393939393939394,
0.00173913043478260870,
0.00160256410256410256,
0.00148148148148148148,
0.00137362637362637363,
0.00127713920817369093,
0.00119047619047619048,
0.00111234705228031146,
0.00104166666666666667,
0.00097751710654936461,
0.00091911764705882353,
0.00086580086580086580,
0.00081699346405228758,
0.00077220077220077220,
0.00073099415204678363,
0.00069300069300069300,
0.00065789473684210526,
0.00062539086929330832,
0.00059523809523809524,
0.00056721497447532615,
0.00054112554112554113,
0.00051679586563307494,
0.00049407114624505929,
0.00047281323877068558,
0.00045289855072463768,
0.00043421623968736431,
0.00041666666666666667,
0.00040016006402561024,
0.00038461538461538462,
0.00036995930447650758,
0.00035612535612535613,
0.00034305317324185249,
0.00033068783068783069,
0.00031897926634768740,
0.00030788177339901478,
0.00029735355337496283,
0.00028735632183908046,
0.00027785495971103084,
0.00026881720430107527,
0.00026021337496747333,
0.00025201612903225806,
0.00024420024420024420,
0.00023674242424242424,
0.00022962112514351320,
0.00022281639928698752,
0.00021630975556997621,
0.00021008403361344538,
0.00020412329046744234,
0.00019841269841269841,
0.00019293845263360988,
0.00018768768768768769,
0.00018264840182648402,
0.00017780938833570413,
0.00017316017316017316,
0.00016869095816464238,
0.00016439256945586060,
0.00016025641025641026,
0.00015627441787779341,
0.00015243902439024390,
0.00014874312063067083,
0.00014518002322880372,
0.00014174344436569809,
0.00013842746400885936,
0.00013522650439486139,
0.00013213530655391121,
0.00012914890869172155,
0.00012626262626262626,
0.00012347203358439313,
0.00012077294685990338,
0.00011816140848398913,
0.00011563367252543941,
0.00011318619128466327,
0.00011081560283687943,
0.00010851871947911015,
0.00010629251700680272,
0.00010413412475268145,
0.00010204081632653061,
0.00010001000100010001
do
begin
inreal(1, y);
test(x, y, 1 / ( i * i - 1 ) );
i := i + 1
end;
printeq;
end
----
0.01, 0.02, 0.03, 0.04, 0.05,
0.06, 0.07, 0.08, 0.09, 0.10,
0.11, 0.12, 0.13, 0.14, 0.15,
0.16, 0.17, 0.18, 0.19, 0.20,
0.21, 0.22, 0.23, 0.24, 0.25,
0.26, 0.27, 0.28, 0.29, 0.30,
0.31, 0.32, 0.33, 0.34, 0.35,
0.36, 0.37, 0.38, 0.39, 0.40,
0.41, 0.42, 0.43, 0.44, 0.45,
0.46, 0.47, 0.48, 0.49, 0.50,
0.51, 0.52, 0.53, 0.54, 0.55,
0.56, 0.57, 0.58, 0.59, 0.60,
0.61, 0.62, 0.63, 0.64, 0.65,
0.66, 0.67, 0.68, 0.69, 0.70,
0.71, 0.72, 0.73, 0.74, 0.75,
0.76, 0.77, 0.78, 0.79, 0.80,
0.81, 0.82, 0.83, 0.84, 0.85,
0.86, 0.87, 0.88, 0.89, 0.90,
0.91, 0.92, 0.93, 0.94, 0.95,
0.96, 0.97, 0.98, 0.99, 1.00,
100.01, 100.02, 100.03, 100.04, 100.05,
100.06, 100.07, 100.08, 100.09, 100.10,
100.11, 100.12, 100.13, 100.14, 100.15,
100.16, 100.17, 100.18, 100.19, 100.20,
100.21, 100.22, 100.23, 100.24, 100.25,
100.26, 100.27, 100.28, 100.29, 100.30,
100.31, 100.32, 100.33, 100.34, 100.35,
100.36, 100.37, 100.38, 100.39, 100.40,
100.41, 100.42, 100.43, 100.44, 100.45,
100.46, 100.47, 100.48, 100.49, 100.50,
100.51, 100.52, 100.53, 100.54, 100.55,
100.56, 100.57, 100.58, 100.59, 100.60,
100.61, 100.62, 100.63, 100.64, 100.65,
100.66, 100.67, 100.68, 100.69, 100.70,
100.71, 100.72, 100.73, 100.74, 100.75,
100.76, 100.77, 100.78, 100.79, 100.80,
100.81, 100.82, 100.83, 100.84, 100.85,
100.86, 100.87, 100.88, 100.89, 100.90,
100.91, 100.92, 100.93, 100.94, 100.95,
100.96, 100.97, 100.98, 100.99, 101.00,
10000.01,10000.02,10000.03,10000.04,10000.05,
10000.06,10000.07,10000.08,10000.09,10000.10,
10000.11,10000.12,10000.13,10000.14,10000.15,
10000.16,10000.17,10000.18,10000.19,10000.20,
10000.21,10000.22,10000.23,10000.24,10000.25,
10000.26,10000.27,10000.28,10000.29,10000.30,
10000.31,10000.32,10000.33,10000.34,10000.35,
10000.36,10000.37,10000.38,10000.39,10000.40,
10000.41,10000.42,10000.43,10000.44,10000.45,
10000.46,10000.47,10000.48,10000.49,10000.50,
10000.51,10000.52,10000.53,10000.54,10000.55,
10000.56,10000.57,10000.58,10000.59,10000.60,
10000.61,10000.62,10000.63,10000.64,10000.65,
10000.66,10000.67,10000.68,10000.69,10000.70,
10000.71,10000.72,10000.73,10000.74,10000.75,
10000.76,10000.77,10000.78,10000.79,10000.80,
10000.81,10000.82,10000.83,10000.84,10000.85,
10000.86,10000.87,10000.88,10000.89,10000.90,
10000.91,10000.92,10000.93,10000.94,10000.95,
10000.96,10000.97,10000.98,10000.99,10001.00,
0.33333333333333333333,
0.12500000000000000000,
0.06666666666666666667,
0.04166666666666666667,
0.02857142857142857143,
0.02083333333333333333,
0.01587301587301587302,
0.01250000000000000000,
0.01010101010101010101,
0.00833333333333333333,
0.00699300699300699301,
0.00595238095238095238,
0.00512820512820512821,
0.00446428571428571429,
0.00392156862745098039,
0.00347222222222222222,
0.00309597523219814241,
0.00277777777777777778,
0.00250626566416040100,
0.00227272727272727273,
0.00207039337474120083,
0.00189393939393939394,
0.00173913043478260870,
0.00160256410256410256,
0.00148148148148148148,
0.00137362637362637363,
0.00127713920817369093,
0.00119047619047619048,
0.00111234705228031146,
0.00104166666666666667,
0.00097751710654936461,
0.00091911764705882353,
0.00086580086580086580,
0.00081699346405228758,
0.00077220077220077220,
0.00073099415204678363,
0.00069300069300069300,
0.00065789473684210526,
0.00062539086929330832,
0.00059523809523809524,
0.00056721497447532615,
0.00054112554112554113,
0.00051679586563307494,
0.00049407114624505929,
0.00047281323877068558,
0.00045289855072463768,
0.00043421623968736431,
0.00041666666666666667,
0.00040016006402561024,
0.00038461538461538462,
0.00036995930447650758,
0.00035612535612535613,
0.00034305317324185249,
0.00033068783068783069,
0.00031897926634768740,
0.00030788177339901478,
0.00029735355337496283,
0.00028735632183908046,
0.00027785495971103084,
0.00026881720430107527,
0.00026021337496747333,
0.00025201612903225806,
0.00024420024420024420,
0.00023674242424242424,
0.00022962112514351320,
0.00022281639928698752,
0.00021630975556997621,
0.00021008403361344538,
0.00020412329046744234,
0.00019841269841269841,
0.00019293845263360988,
0.00018768768768768769,
0.00018264840182648402,
0.00017780938833570413,
0.00017316017316017316,
0.00016869095816464238,
0.00016439256945586060,
0.00016025641025641026,
0.00015627441787779341,
0.00015243902439024390,
0.00014874312063067083,
0.00014518002322880372,
0.00014174344436569809,
0.00013842746400885936,
0.00013522650439486139,
0.00013213530655391121,
0.00012914890869172155,
0.00012626262626262626,
0.00012347203358439313,
0.00012077294685990338,
0.00011816140848398913,
0.00011563367252543941,
0.00011318619128466327,
0.00011081560283687943,
0.00010851871947911015,
0.00010629251700680272,
0.00010413412475268145,
0.00010204081632653061,
0.00010001000100010001,
++++
algol
begin
comment library5;
integer
i,
j,
case;
real
x,
y;
procedure requal(a, b);
value
a,
b;
real
a,
b;
if a \= b then
begin
outreal(1, a);
outreal(1, b);
outreal(1, case)
end
else
case := case + 1;
case := 1;
x := 2.0;
y := 3.0;
i := 2;
j := 3;
requal(x^i, 4.0);
if i^j \= 8 then
begin
outreal(1, i^j);
outreal(1, 8);
end;
requal(x^0, 1.0);
if i^0 \= 1 then
begin
outreal(1, i^0);
outreal(1, 1)
end;
requal(x^( - i), 1.0 / (2.0 * 2.0));
requal(i^( - i), 1.0 / (2.0 * 2.0));
requal(x^y, exp(y * ln(x)));
requal(j^y, exp(y * ln(j)));
requal(0.0^x, 0.0);
requal(0^x, 0.0);
comment should fail;
requal(( - x)^y, - 1)
end
algol
begin
comment library 1;
integer
i;
real
x;
i := 0;
x := 0.0;
outreal(1, x^i)
end
algol
begin
comment library 1;
integer
i;
i := 0;
outreal(1, i^i)
end
algol
begin
comment library 1;
real
x;
x := - 1.0;
outreal(1, 0.0^x)
end
algol
begin
comment library 1;
real
x;
x := - 1.0;
outreal(1, 0^x)
end
kdf9