Форум программистов, компьютерный форум, киберфорум
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.78/9: Рейтинг темы: голосов - 9, средняя оценка - 4.78
0 / 0 / 0
Регистрация: 26.12.2012
Сообщений: 4
1

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

26.12.2012, 11:01. Показов 1817. Ответов 3
Метки нет (Все метки)

ПОМОГИТЕ!!!
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
26.12.2012, 11:01
Ответы с готовыми решениями:

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

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

Присвоить целой переменной k третью от конца цифру в записи положительного целого числа n
Присвоить целой переменной k третью от конца цифру в записи положительного целого числа n...

Присвоить целой переменной k третью от конца цифру в записи положительного целого числа n
привет! помогите, плиз: Присвоить целой переменной k третью от конца цифру в записи...

3
13077 / 5862 / 1706
Регистрация: 19.09.2009
Сообщений: 8,807
26.12.2012, 11:31 2
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
1
Studento4ka35g
18.12.2013, 18:35 3
a форму как оформить,подскажите пожалуйста
13077 / 5862 / 1706
Регистрация: 19.09.2009
Сообщений: 8,807
18.12.2013, 21:21 4
На форму надо положить:
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;
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
18.12.2013, 21:21

Присвоить целой переменной k третью от конца цифру в записи положительного целого числа n
1.Присвоить целой переменной k третью от конца цифру в записи положительного целого числа n....

Присвоить целой переменной k третью от конца цифру в записи положительного целого числа n
Присвоить целой переменной k третью от конца цифру в записи положительного целого числа n. ...

Присвоить целой переменной К первую цифру с дробной части положительного действительного числа Х
Помогите пожалуйста решить задачку на С++ : Присвоить целой переменной К первую цифру с...

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


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru