Родились сегодня:
lSemperFi


Лидеры рейтинга

ID: 259041

Алексеев Владимир Николаевич

Мастер-Эксперт

391

Россия, пос. Теплоозёрск, ЕАО


ID: 401284

Михаил Александров

Советник

379

Россия, Санкт-Петербург


ID: 401888

puporev

Профессор

215

Россия, Пермский край


ID: 400669

epimkin

Профессионал

111


ID: 405338

vovaromanov.jr

1-й класс

103


ID: 242862

Hunter7007

Мастер-Эксперт

29

Россия, Омск


ID: 137394

Megaloman

Мастер-Эксперт

25

Беларусь, Гомель


8.10.2

13.10.2021

JS: 2.10.2
CSS: 4.6.0
jQuery: 3.6.0
DataForLocalStorage: 2021-10-27 22:16:01-standard


Создание программ на языках Pascal, Delphi и Lazarus.

Администратор раздела: Зенченко Константин Николаевич (Старший модератор)

Консультация онлайн # 160347

Раздел: Pascal / Delphi / Lazarus
Автор вопроса: Шибалов Леонид Витальевич
Дата: 12.02.2009, 23:54 Консультация закрыта
Поступило ответов: 2

Люди, пожалуйста помогите мне со следующей задачей:
Перевод вещественных чисел из 8 с.с. в 10с.с. smile
Заранее благодарю.

Ответ # 243534 от Boriss
Здравствуйте, Шибалов Леонид Витальевич!
Вот в приложении код программы.
По-моему, все просто. Но если что не будет понятно, пишите в минифоруме - поясню
НО! в целях простоты не ограничивал длину ввода, а надо-бы (но будет сложнее). Сделать?

Приложение:


Boriss

Посетитель
13.02.2009, 10:26
Ответ # 243616 от Denisss

Здравствуйте, Шибалов Леонид Витальевич!

Пример решения задачи с комментариями находится в приложении.
Перевод вещественного числа 8 с.с. в вещественное число 10 с.с. осуществляется в два этапа:
1. Перевод целой части;
2. Перевод дробной части.

В приведенном примере учтены следующие моменты:
- число может быть положительным или отрицательным;
- если число начинается с "." или "-.", то автоматически считается, что это "0." или "-0.";
- если число заканчивается на точку, то дробная часть не вычисляется.

Точность вычисления десятеричного числа ограничивается типом Real (в TP 7 длина 6 байт). Для увеличения точности, если потребуется, можно воспользоваться типом Double (8 байт) или Extended (10 байт).

Успехов!

Приложение:


Denisss

Посетитель
14.02.2009, 10:42
Мини-форум консультации # 160347
неизвестный

1

= общий =    13.02.2009, 20:40

Нет, спс, всё устраивавет, но немогли бы вы сделать комментарии к каждой строчки программы?просто честно говоря ничего непонимаю smile smile

Denisss

2

= общий =    14.02.2009, 10:51

to Boriss:
не исключаю, что в математике что-то изменилось, но нам в школе почему-то вдалбливали, что вещественные числа могут иметь не только целые, но еще и дробные части...

Boriss

3

= общий =    14.02.2009, 11:56

Да уж, недосмотрел, виноват smile

Boriss

4

= общий =    14.02.2009, 11:57

Злой был на Мегафон, в котором вдруг безлимитный тариф за 700 рублей = 1,5 ГИГАбайта. Поматерился в офисе ихнем и разгоряченный стал писать

Возможность оставлять сообщения в мини-форумах консультаций доступна только после входа в систему.
Воспользуйтесь кнопкой входа вверху страницы, если Вы зарегистрированы или пройдите простую процедуру регистрации на Портале.

Лучшие эксперты раздела

puporev

Профессор

Рейтинг: 215

Зенченко Константин Николаевич

Старший модератор

Рейтинг: 162

Gluck

9-й класс

Рейтинг: 81

Лысков Игорь Витальевич

Мастер-Эксперт

Рейтинг: 0

Асмик Гаряка

Советник

Рейтинг: 0

Орловский Дмитрий

Мастер-Эксперт

Рейтинг: 0