Точность вводимого числа

[art_d]

Задача: вести длинны диагоналей ромба, его площадь, периметр и точность вводимых значений (сколько знаков после запятой), затем сравнить периметр и площадь ту что ввел юзер и ту, что вычислила программа, если числа разные просить ввести данные еще раз.
Когда ввожу точность отличную от нуля (не ноль) и при этом площади равны, то всеравно просит ввести еще раз (равенство не выполняется), что не так делаю?
И вообще, стиль написание нормальный?

program the_second;

var

d1, d2, p, s, z, x, l, S1: real;

BEGIN

repeat

Write('введите точность ');
readln(z);
 while (z<0) do
   begin
   write('Только положительное число, введите еще раз');
   readln(z);
   end;
   
Write('Введите длинну диагонали д1=');
readln(d1);
while (d1<=0) do
   begin
   write('Число должно быть положительное, введите еще раз');
   readln(d1);
   end;
x:=exp(ln(10)*z);
d1:=(d1*x);
d1:=Int(d1);
x:=exp(ln(10)*z);
d1:=(d1/x);

write('D2=');
readln(d2);
while (d2<=0) do
   begin
   write('Число должно быть положительное, введите еще раз');
   readln(d2);
   end;
x:=exp(ln(10)*z);
d2:=(d2*x);
d2:=Int(d2);
x:=exp(ln(10)*z);
d2:=(d2/x);

write('введите периметр и площадь П=');
read(p);
while (p<=0) do
   begin
   write('Число должно быть положительное, введите еще раз');
   readln(p);
   end;
x:=exp(ln(10)*z);
p:=(p*x);
p:=Int(p);
x:=exp(ln(10)*z);
p:=(p/x);

write('S=');
read(s);
while (s<=0) do
   begin
   write('Число должно быть положительное, введите еще раз');
   readln(s);
   end;
x:=exp(ln(10)*z);
s:=(s*x);
s:=Int(s);
x:=exp(ln(10)*z);
s:=(s/x);

S1:=(d1*d2/2);
readln;
if (s1<>s) then writeln('ошибка, введите число еще раз');
until (s1=s);

writeln('good work!')

end.

[Silentdi]

Переменные типа реал так не сравнить нужно сначала воспользоваться функцией Round
Вместо последних строк
if (s1<>s) then writeln('ошибка, введите число еще раз');
until (s1=s);

Нужно

if (Round(s1)<>Round(s)) then writeln('ошибка, введите число еще раз');
until (Round(s1)=Round(s));

[art_d]

Спасибо, не знал об этом.
Обьясните, по какой причине нельзя сравнивать.

[Mad_Cat]

2Silentdi
Абалдеть
то есть по вашему 4.5 =4.7


2art_d

if abs(s1-s)>(z+0.00000001) then writeln('ошибка, введите число еще раз');
until abs(s1-s)<=(z+0.00000001);

[art_d]

if abs(s1-s)>(z+0.00000001) then writeln('ошибка, введите число еще раз');
until abs(s1-s)<=(z+0.00000001);

s1-s разве не должен ровняться нулю?

и обьясните, почему нельзя сравнить как я хотел

[Олвин]

Там есть прикол:

sum := 0.0; 
for i := 1 to 10 do
 sum := sum + 0.1;

Результат может не равняться единице. Особенности вычислений чисел с плавающей точкой.