Lazarus СРОЧНО ПОМОГИТЕ!!!!

[DanyaButov]

Мне нужно разделить число на сотни, десятки и простые числа в Lazarus. Число должно быть любым которое я ввожу в Edit1. Так еще чилсо на Label6 должно быть наооборот . Помогите ,уже всё перепробывал.

[Serge_Bliznykov]

чтобы получить сотни, нужно просто разделить число нацело на 100,
десятки - взять остаток от деления на 100 и разделить нацело на 10
единицы - просто взять остаток от деления на 10:
например, чтобы в Label100 отобразить сотни,
Label10 отобразить десятки, LabelEdin отобразить единицы:

var d100, d10, d1 : integer;
begin
  d100 := Число div 100;
  d10 := (Число mod 100) div 10;
  d1 := Число mod 10;
  Label100.Caption := IntToStr(d100);
  Label10.Caption := IntToStr(d10);
  LabelEdin.Caption := IntToStr(d1);
end;

чтобы отобразить число наоборот есть 2 способа.
1) рассматривать запись числа в виде строки текста.
Тогда нужно просто развернуть строчку (и не важно, что в ней - число или текст).

2) по "честному". Берём число и из него формируем новое число.

оба варианта есть тут

[DanyaButov]

Cпасибо Большое
Вы мне очень сильно помогли

[DanyaButov]

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

чтобы получить сотни, нужно просто разделить число нацело на 100,
десятки - взять остаток от деления на 100 и разделить нацело на 10
единицы - просто взять остаток от деления на 10:
например, чтобы в Label100 отобразить сотни,
Label10 отобразить десятки, LabelEdin отобразить единицы:

var d100, d10, d1 : integer;
begin
  d100 := Число div 100;
  d10 := (Число mod 100) div 10;
  d1 := Число mod 10;
  Label100.Caption := IntToStr(d100);
  Label10.Caption := IntToStr(d10);
  LabelEdin.Caption := IntToStr(d1);
end;

чтобы отобразить число наоборот есть 2 способа.
1) рассматривать запись числа в виде строки текста.
Тогда нужно просто развернуть строчку (и не важно, что в ней - число или текст).

2) по "честному". Берём число и из него формируем новое число.

оба варианта есть тут

Хотя, если чесно не особо понимаю как вставить эти данные по перевороту чилса в Lazarus.

[p51x]

Прям так. Проверить только, что лейбл так объявлены. Вы код в Lazarus хоть раз открывали?

[Serge_Bliznykov]

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

Хотя, если чесно не особо понимаю как вставить эти данные по перевороту чилса в Lazarus.

var N, M, d : integer;
begin
  N := StrToInt(Edit1.Text);
  M := 0; {перевернутое число} 
  while N > 0 do begin
    d := N mod 10; {цифра младшего разряда}
    N := N div 10; {число без младшего разряда} 
    M := M * 10 + d; 
  end;
  Label6.Caption := IntToStr(M);
end;