Найти последнюю цифру от числа в Паскале

[DomiNick]

Сейчас попробую написать тот же свой алгоритм в Паскале...

Кстати об тех глюках...
От чего Делфи может выдавать: 43,432 - 40 = 3,43199999999996 ..?

[Sazary]

Сообщение от DomiNick

От чего Делфи может выдавать: 43,432 - 40 = 3,43199999999996 ..?

о_О

ShowMessage(FloatToStr(43.432 - 40));

Исправно выдает 3,432

[DomiNick]

Ну давайте посчитаем, например, это: " (443.432 - 440) * 100 = ? "...

Procedure TForm1.Button1Click(Sender: TObject);
Var a: Real; n: Integer;
Begin
a:=443.432;
a:=(a-440)*100;     //  a = (443.432 - 440) * 100 = сколько..?    Вы думали 343.2..?   А нифига:
ShowMessage(FloatToStr(a));    //  a = 343.200000000002     Х_х
End;

UpDate

Эх... По-видимому там в хвосте числа появляется какой-то мусор из памяти... Откуда он и как от его избавиться?
Так бы моя версия программы работала.....

[Карабин]

Сообщение от Sazary

Вы наверняка пытаетесь вывести какое-то промежуточное значение (tmp или tmp2).

Откуда 15? о_О Вы же вводите 11.05

Скажите: что вы хотите вывести, кроме последней цифры?

Мне, человеку это известно, что говорит о том, что 11.05 в квадрете не может дать 225. 225 получается, если возвести в квадрат 15.
А вообще, я пока спал, пришёл к выводу, что если М у меня в программе выводит значение num, а num число 2/5 у вас и любое заданное пользователем у меня (например, 11.05), то программа должна была показать М=11.05, а уж точно не 225, так как во время работы программы ни пользователь, ни программа не меняет фактическое исходное число, только получают 3 новых числа - последнюю цыфру от исходного числа, квадрат числа, последнюю цыфру от квадрата числа.

[Sazary]

Карабин, Так что вы хотите вывести-то? Квадрат исходного числа? Ну так у вас же число в num? И оно оттуда никуда не девается. Вот и возведите его в квадрат:

num := sqr(num);
writeln('Square of number is ',num:0:17);

DomiNick, хм.. что-то Делфи с точностью мудрит.

[Карабин]

Sazary, дело в том, что я думаю программа неверно считает, так как я задал число num:=11.05 , а на экране получилось что num=M=225, хотя я задал в конце программы оператор вывода writeln('M=',num:0:17) .
Из того, что я знаю, вообще 0 - количество цыфр слева от запятой, а 17 - количество цыфр справа от запятой. Как вообще программа выдала значение num=M=225 ?

[Sazary]

а на экране получилось что num=M=225, хотя я задал в конце программы оператор вывода writeln('M=',num:0:17) .

Вот результат работы:

11.05
Last digit: 5
Last digit is: 5
Square of number is 122.102500000000000

Все верно.

Посмотрите пост 85 и проверьте, не делаете ли вы в конце что-нибудь лишнее (например, лишнее преобразование из строки в число)

[Jora_Kornev]

вот это да! столько постов на такую прокраммку - круть))

[DomiNick]

Сообщение от Jora_Kornev

вот это да! столько постов на такую прокраммку - круть))

Моя версия была бы ещё проще, если б Делфи/Паскаль считали правильно...

Сообщение от Sazary

DomiNick, хм.. что-то Делфи с точностью мудрит.

Сделал то же на Паскале... Там местами даже похуже бывает...

[__STDC__]

Бррр..)) Какие тут дебаты))) Программа правильно работает, в пределах погрешности, которую мы вчера с Sazary обсуждали =) Тут уже говорить не о чем больше =)

Ну давайте посчитаем, например, это: " 443.432 - 440 = ? "...

showmessage(floattostr((443.432-440)*100)); = 343.2 =) А какой делфи у вас? у меня delphi 7

Апичатка...
"числа, оканчивающегося на 2, последней цифрой квадрата будет 4.."

да, ошибся) спасибо)