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

@billi23 · Регистрация: 26.12.2012

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

ПОМОГИТЕ!!!

@Mawrat · 26.12.2012, 11:31

Delphi
1
2
3
4
5
6
7
8
9
10
11
procedure TForm1.Button1Click(Sender : TObject);
const
  Base = 10; //Основание десятичной системы счисления.
var
  D : Byte;
  Num : Extended;
begin
  Num := Abs( StrToFloat(Edit1.Text) );
  D := Trunc( Frac(Num) * Base );
  ShowMessage('Первая цифра дробной части: ' + IntToStr(D));
end;

Пояснения:
Edit1.Text = '-10.567'
StrToFloat(Edit1.Text) = -10.567
Num := Abs( StrToFloat(Edit1.Text) ) -> Num = 10.567
Frac(Num) = 0.567
Frac(Num) * Base = 0.567 * 10 = 5.67
D := Trunc( Frac(Num) * Base ) = 5

18.12.2013, 18:35

a форму как оформить,подскажите пожалуйста

@Mawrat · 18.12.2013, 21:21

На форму надо положить:
Edit1 : TEdit;
Button1 : TButton;
Для кнопки Button1 создать обработчик события OnClick и его код оформить так:

Delphi
1
2
3
4
5
6
7
8
9
10
11
procedure TForm1.Button1Click(Sender : TObject);
const
  Base = 10; //Основание десятичной системы счисления.
var
  D : Byte;
  Num : Extended;
begin
  Num := Abs( StrToFloat(Edit1.Text) );
  D := Trunc( Frac(Num) * Base );
  ShowMessage('Первая цифра дробной части: ' + IntToStr(D));
end;

Новые блоги и статьи Все статьи Все блоги /
Настройка гиперпараметров с помощью Grid Search и Random Search в Python AI_Generated 15.05.2025 В машинном обучении существует фундаментальное разделение между параметрами и гиперпараметрами моделей. Если параметры – это те величины, которые алгоритм "изучает" непосредственно из данных (веса. . .	Сериализация и десериализация данных на Python py-thonny 15.05.2025 Сериализация — это своего рода "замораживание" объектов. Вы берёте живой, динамический объект из памяти и превращаете его в статичную строку или поток байтов. А десериализация выполняет обратный. . .	Чем асинхронная логика (схемотехника) лучше тактируемой, как я думаю, что помимо энергоэффективности - ещё и безопасность. Hrethgir 14.05.2025 Помимо огромного плюса в энергоэффективности, асинхронная логика - тотальный контроль над каждым совершённым тактом, а значит - безусловная безопасность, где безконтрольно не совершится ни одного. . .	Многопоточные приложения на C++ bytestream 14.05.2025 C++ всегда был языком, тесно работающим с железом, и потому особеннно эффективным для многопоточного программирования. Стандарт C++11 произвёл революцию, добавив в язык нативную поддержку потоков,. . .	Stack, Queue и Hashtable в C# UnmanagedCoder 14.05.2025 Каждый опытный разработчик наверняка сталкивался с ситуацией, когда невинный на первый взгляд List<T> превращался в узкое горлышко всего приложения. Причина проста: универсальность – это прекрасно,. . .
Как использовать OAuth2 со Spring Security в Java Javaican 14.05.2025 Протокол OAuth2 часто путают с механизмами аутентификации, хотя по сути это протокол авторизации. Представьте, что вместо передачи ключей от всего дома вашему другу, который пришёл полить цветы, вы. . .	Анализ текста на Python с NLTK и Spacy AI_Generated 14.05.2025 NLTK, старожил в мире обработки естественного языка на Python, содержит богатейшую коллекцию алгоритмов и готовых моделей. Эта библиотека отлично подходит для образовательных целей и. . .	Реализация DI в PHP Jason-Webb 13.05.2025 Когда я начинал писать свой первый крупный PHP-проект, моя архитектура напоминала запутаный клубок спагетти. Классы создавали другие классы внутри себя, зависимости жостко прописывались в коде, а о. . .	Обработка изображений в реальном времени на C# с OpenCV stackOverflow 13.05.2025 Объединение библиотеки компьютерного зрения OpenCV с современным языком программирования C# создаёт симбиоз, который открывает доступ к впечатляющему набору возможностей. Ключевое преимущество этого. . .	POCO, ACE, Loki и другие продвинутые C++ библиотеки NullReferenced 13.05.2025 В C++ разработки существует такое обилие библиотек, что порой кажется, будто ты заблудился в дремучем лесу. И среди этого многообразия POCO (Portable Components) – как маяк для тех, кто ищет. . .

@billi23 0 / 0 / 0 Регистрация: 26.12.2012 Сообщений: 4

	Присвоить целой переменной d первую цифру из дробной части действительного положительного числа x. 26.12.2012, 11:01. Показов 2205. Ответов 3 Метки нет (Все метки) ПОМОГИТЕ!!! 0

Studento4ka35g
	18.12.2013, 18:35
	a форму как оформить,подскажите пожалуйста

Опции темы