Задача на Паскале!
Пользователи, просматривающие топик: none
|
Зашли как: Guest
|
Имя  |
| Сообщение |
<< Старые топики Новые топики >> |
|
|
Задача на Паскале! - 2011-07-21 23:02:33.226666
|
|
|
germes92
Сообщений: 15
Оценки: 0
Присоединился: 2010-02-15 16:28:45.810000
|
Задача следующая!С клавы вводиться вещественное число(допустим 130.00) я должен выдать на экран->Вы ввели 130 целых 0 десятых. Если без десятых то мне понятно, а как с десятыми???
|
|
|
|
|
RE: Задача на Паскале! - 2011-07-21 23:10:37.003333
|
|
|
Alianna
Сообщений: 1922
Оценки: 356
Присоединился: 2010-03-02 11:27:12.343333
|
http://www.delphisources.ru/pages/faq/faq_delphi_basics/Trunc.php.html
http://www.delphisources.ru/pages/faq/faq_delphi_basics/Frac.php.html
Не?
|
|
|
|
|
RE: Задача на Паскале! - 2011-07-21 23:54:25.213333
|
|
|
germes92
Сообщений: 15
Оценки: 0
Присоединился: 2010-02-15 16:28:45.810000
|
Да, но если я напишу 130.27 то мне на экран выдает 0.27, а мне надо без ноля! Ну допустим надо ввел 130.27 и выдало-> вы ввели 130 рублей и 27 копеек! Как это сделать?
|
|
|
|
|
RE: Задача на Паскале! - 2011-07-22 16:59:18.343333
|
|
|
Alianna
Сообщений: 1922
Оценки: 356
Присоединился: 2010-03-02 11:27:12.343333
|
Если рубли и копейки, то всегда две цифры после запятой? Тогда можно тупо умножить на 100.
Если нет, что-то типа
while frac(j) <> 0 do
j := j*10;
В j - дробная часть твоего числа.
Хотя это первое, что в голову приходит; и мне кажется, что есть более красивый вариант, если кто знает - поправьте меня, пожалуйста.
|
|
|
|
|
RE: Задача на Паскале! - 2011-07-30 21:29:59.936666
|
|
|
lux16
Сообщений: 38
Оценки: 0
Присоединился: 2010-01-03 18:39:19.570000
|
Вот со строками у меня получилось так:
uses
Crt;
var
strNum: String;
strInt, strFlt: String;
intPos: Byte;
begin
ClrScr;
Write('Enter float number: ');
ReadLn(strNum);
intPos := Pos('.', strNum);
strInt := Copy(strNum, 1, intPos - 1);
strFlt := Copy(strNum, intPos + 1, Length(strNum) - intPos);
WriteLn('Int part = ', strInt);
Write('Flaot part = ', strFlt);
end.
|
|
|
|
|
|
