Модератор: Модераторы
Лекс Айрин писал(а):Опасное мнение. Мир сущность мстительная.
pupsik писал(а):попросите травки-муравки... у него она качественная
var
s:string;
Q: Currency;
QQ: Currency;
b:byte;
bb:byte;
begin
Q := 0.7-0.3;
QQ := 0.5-0.1;
if (Q/QQ)=1 then
writeln('=')
else
writeln('<>');
// вернёт ложно = 1
Q := 0.4;
QQ := 0.4;
if (Q/QQ)=1 then
writeln('=')
else
writeln('<>');
// вернёт ложно = 1
b := 4;
bb := 4;
if (b div bb)=1 then
writeln('=')
else
writeln('<>');
// вернёт верное 1 = 1
Q :=(b div bb) / 10;
// вернёт единственно верное решение 0.1, которое явно не равно 1
// пятая задача
if Q =1 then
writeln('=')
else
writeln('<>');
// вернёт верное 0.1 <> 1
writestr(s,Q :2:2);
writeln('Q = ' +s);
readln;
end.
vitaly_l писал(а): Мошенники сжигают и убивают учёных. А потом весь мир гордится убитыми учёными и ставит им памятники.
vitaly_l писал(а):ИСКЛЮЧИТЕЛЬНО ТОЛЬКО ПРИ ДЕЛЕНИИ РАВНЫХ ДЕСЯТИЧНЫХ ДРОБЕЙ В МАТЕМАТИКЕ И НА КАЛЬКУЛЯТОРАХ И НА КОМПЬЮТЕРАХ ВСЕГДА И ВЕЗДЕ ВО ВСЕХ ОФИСАХ МИРА
serbod писал(а):Учебник математики с вами не согласен. А ему я доверяю больше, чем вам.
http://www.for6cl.uznateshe.ru/delenie- ... nuyu-drob/
pupsik писал(а):То что вы не можете подтвердить это теорией и доказать (основываясь, возможно на ошибочном мнении, учёных... желательно на формулах и теориях) - то же уловил.
var
s:string;
Q: Currency;
i,ii,m : Extended;
begin
// предположим нужно поделить 0.777 / 0.777
m := 1000; // равно 1000 потому что, имеем дело с 1000-ными десятичными дробями.
i := 0.777 * m; // это первое 0.777 умноженное на 1000 итого i будет = 777
ii := 0.777 * m; // это второе 0.777 умноженное на 1000 итого ii будет = 777
if (i / ii)=1
then writeln('1 = 1')
else writeln('<>');
// вернёт верное 1 = 1 ошибки нет, т.к. 777 число не дробное и при делении 777 на 777 будет естественно 1
Q :=(i / ii) / m; // делим (i / ii), которое всегда вернёт 1, на 1000 т.к. имеем дело с тысячными десятичными дробями
// вернёт единственно верное решение 0.001, которое явно не равно 1,
// а если вы на калькуляторе посчитаете 0.777 / 0.777, то вернёт ложное значение 1.
// и в классической математике тоже ложно вернёт 1, и это ошибка всего Мира.
writestr(s,Q :12:12);
writeln('Q = ' +s);
readln;
end.
zub писал(а):ТС, ты еще не пересмотрел мнение где баг, а где он пофикшен?
pupsik писал(а):1. Не вижу ответа на мой вопрос.
pupsik писал(а):Не вижу теоретического обоснование вашего хм.. пардон: теории.
var
s:string;
Q: Currency;
i,ii,m : Extended;
begin
m := 1000;
i := 0.777 * m;
ii := 0.777 * m;
Q :=(i / ii) / m;
writestr(s,Q :12:12);
writeln('Q = ' +s);
readln;
end.
я около одной живу. Пока ниче так... А вот троль из вас знатныйЗнаешь сколько на земле атомных станций?
оп... не заметил... Как и вы не смотрели код.. Мил человек, там в другом загвоздка.Вот ответ на ваш вопрос, его сделал zub...
vitaly_l писал(а):Мой код вернёт 0.001. А любой калькулятор вернёт 1 (единицу). А теперь сделайте плавный график, по функции, в теле которого будет 0.01 делиться на 0.01, и если использовать мой метод, то скачка не будет. А если использовать метод заложенный в калькулятор, то в момент равных дробей - будет скачёк до 1 (единицы). И самолёт входит в штопор и падает, ракета взрывается . Потому что ошибка заложена в калькуляторы всего мира. Проверьте на своём калькуляторе и убедитесь уже!!!
если не ошибаюсь - попытка связать Currency с Extended. В принципе могут быть слоно-жирафы.. но чёт я их не встречал.Найдёте ошибку в следующем коде
pupsik писал(а):vitaly_l бло...о... А теперь от обратного: делаем проверку. Т.е. результат деления * на делитель = делимое.
Ваш бурбулятор ещё не сломался? Т.е.: что у вас получится: 0.777 * 0.001 неужто 0.777 Или травка-муравка не закончилась и система будет сломана?
Вполне возможно вы напишете что проверка не верна. И надо по другому. Вот это "иное" мне интересно. Как там ваша божественность будет выкручиваться
vitaly_l писал(а):Ну или например из-за этой ошибки, все атомные станции на планете, выходят одновременно из строя, т.к. подаётся вместо 0.0001 напряжение равное 1 и тогда... Чернобыльская и Фокусимская аварии - покажутся раем, т.к. на Земле не будет ни одного клочка без радиации. А всё почему?
Вернуться в Free Pascal Compiler
Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 6