Как мы проводили эксперимент.
Нужно проверить равенство: 1+1/х = (х+1)/х
После обсуждения мы написали такую программу:
program _1;
const kk=100; {проверка тождества для kk чисел}
var x,S1,S2:real; k,n:integer;
begin
x:=1; K:=0; {от 1 с шагом 0,03}
for n:=1 to KK do
begin
S1:=1+1/x; S2:=(x+1)/x;
if S1<>S2 then begin { writeln (x);} k:=k+1; end;
x:=x+0.03
end;
writeln(k/KK*100:0:0,'%')
end.
Нужно проверить равенство: 1+1/х = (х+1)/х
После обсуждения мы написали такую программу:
program _1;
const kk=100; {проверка тождества для kk чисел}
var x,S1,S2:real; k,n:integer;
begin
x:=1; K:=0; {от 1 с шагом 0,03}
for n:=1 to KK do
begin
S1:=1+1/x; S2:=(x+1)/x;
if S1<>S2 then begin { writeln (x);} k:=k+1; end;
x:=x+0.03
end;
writeln(k/KK*100:0:0,'%')
end.
Когда мы запустили программу, то получили внушительный ответ: 32%.
Вот наша программа.
Потом мы программу изменили. Но это другая история...