Присвоить целой переменной d первую цифру из дробной части положительного вещественного числа

@Muion · Регистрация: 05.12.2018

Студворк — интернет-сервис помощи студентам

присвоить целой переменной d первую цифру из дробной части положительного вещественного числа x (так, если x=32.597,то d=5), весь проект delphi 7, если не сложно.

@qwertehok · 05.12.2018, 07:38

можно пойти 2 путями
1. взять дробную часть от числа и делить
2. взять число как текст и взять первый символ после точки
тут зависит от того какую главу вы проходите

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

весь проект delphi 7, если не сложно

прям весь? то есть с 1 функцией вы не справитесь?
а если d7 нет?

@Muion · 05.12.2018, 07:47 **[ТС]**

Скорее всего 2 путем

@qwertehok · 05.12.2018, 07:53

ну тогда вообще просто - вам понадобится использовать 2 функции Pos() и Copy()

@D1973 · 05.12.2018, 08:09

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

понадобится использовать 2

Еще StrToInt() - итого - 3

Verevkin · 05.12.2018, 08:18

Delphi
1
d:= trunc(10 * frac(x)); // не морочай дядям голову!

@Muion · 05.12.2018, 09:03 **[ТС]**

Мне нужна готовый проект для Delphi 7, тк новичок

Verevkin · 05.12.2018, 09:06

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

Мне нужна готовый проект для Delphi 7, тк новичок

У меня нету.

@Puporev · 05.12.2018, 09:17

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

У меня нету.

А у меня есть.

@D1973 · 05.12.2018, 09:18

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

тк новичок

Значит, надо учиться. Открывайте свой Delphi 7, создавайте новый проект, положите на форму кнопку Button и метку Label.
Потом в главном меню File выберете пункт Save All, выберете или создайте для своего проекта новую папку и введите сначала имя файла модуля формы, потом имя проекта.
Как сделаете - пишите, продолжим...

Добавлено через 49 секунд
А, Юрий Борисович уже готовое выставил... Ну, тогда придется Вам неучем оставаться

@Puporev · 05.12.2018, 09:20

Если бы чел хотел учить он бы и не спрашивал такую хрень. Пусть живет неучем, но живет.

Verevkin · 05.12.2018, 09:22

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

Пусть живет неучем, но живет.

Прально.
Нахрена нам конкуренты?

Новые блоги и статьи Все статьи Все блоги /
Облачные приложения на Rust: руководство по архитектуре микросервисов golander 13.07.2025 Когда я впервые взялся за проектирование облачной платформы для одного из наших клиентов, выбор стоял между привычными Go и Java. Но после нескольких месяцев разработки микросервисной системы,. . .	Как Node.js выполняет асинхронные операции Reangularity 13.07.2025 Каждый раз, когда я рассказываю про Node. js, возникает один и тот же вопрос: "Как эта штука может быть быстрой, если JavaScript — однопоточный язык?" И это действительно кажется парадоксом. Ведь в. . .	Как писать чистый, тестируемый и качественный код на Python py-thonny 12.07.2025 Помню свой первый проект на Python. Работал тогда быстро, грязно, лишь бы работало. Код был похож на запутанный клубок - переменные по одной букве, функции на 200 строк, комментарии отсутствовали как. . .	Blazor и контроллер сервопривода IoT Meadow Maple Wired 11.07.2025 Я решил разобраться, как можно соединить современные веб-технологии с миром "железа". Интересная комбинация получилась из Blazor в качестве веб-интерфейса и микроконтроллера Meadow с его веб-сервером. . .	Генерация OpenQASM из кода Q# EggHead 10.07.2025 Летом 2024-го я начал эксперименты с библиотекой Q# Bridge, и знаете что? Она оказалась просто находкой для тех, кто работает на стыке разных квантовых экосистем. Основная фишка этой библиотеки -. . .
Изучаем новый шаблон ИИ-чата .NET AI Chat Web App stackOverflow 10.07.2025 В . NET появилось интересное обновление - новый шаблон ИИ-чата под названием . NET AI Chat Web App. Когда я впервые наткнулся на анонс этого шаблона, то сразу понял, что Microsoft наконец-то. . .	Результаты исследования от команды ARP (июль 2025 г.) Programma_Boinc 10.07.2025 Результаты исследования от команды ARP (июль 2025 г. ) Африканский проект по дождям (ARP) World Community Grid снова запущен! Мы рады поделиться обновленной информацией о нашем прогрессе с осени. . .	Angular vs Svelte - что лучше? Reangularity 09.07.2025 Сегодня рынок разделился на несколько четких категорий: тяжеловесы корпоративного уровня (Angular), гибкие универсалы (React), прогрессивные решения (Vue) и новая волна компилируемых фреймворков. . .	Code First и Database First в Entity Framework UnmanagedCoder 09.07.2025 Entity Framework дает нам свободу выбора, предлагая как Code First, так и Database First подходы. Но эта свобода порождает вечный вопрос — какой подход выбрать? Entity Framework — это. . .	Как использовать Bluetooth-модуль HC-05 с Arduino Wired 08.07.2025 Bluetooth - это технология, созданная чтобы заменить кабельные соединения. Обычно ее используют для связи небольших устройств: мобильных телефонов, ноутбуков, наушников и т. д. Работает она на частоте. . .

@Muion 0 / 0 / 0 Регистрация: 05.12.2018 Сообщений: 40

	Присвоить целой переменной d первую цифру из дробной части положительного вещественного числа 05.12.2018, 07:36. Показов 1455. Ответов 11 Метки delphi 7 (Все метки) присвоить целой переменной d первую цифру из дробной части положительного вещественного числа x (так, если x=32.597,то d=5), весь проект delphi 7, если не сложно. 0

@Muion 0 / 0 / 0 Регистрация: 05.12.2018 Сообщений: 40
	05.12.2018, 07:47 [ТС]
	Скорее всего 2 путем 0

@qwertehok 5650 / 4492 / 1089 Регистрация: 29.08.2013 Сообщений: 27,982 Записей в блоге: 3
	05.12.2018, 07:53
	ну тогда вообще просто - вам понадобится использовать 2 функции Pos() и Copy() 0

@Muion 0 / 0 / 0 Регистрация: 05.12.2018 Сообщений: 40
	05.12.2018, 09:03 [ТС]
	Мне нужна готовый проект для Delphi 7, тк новичок 0

@Puporev Почетный модератор 64312 / 47609 / 32742 Регистрация: 18.05.2008 Сообщений: 115,181
	05.12.2018, 09:20
	Если бы чел хотел учить он бы и не спрашивал такую хрень. Пусть живет неучем, но живет. 0

Опции темы