Prohození cifer čísla – Delphi – Fórum – Programujte.com

Ahoj, potřeboval bych prosím pomoci s jedním příkladem, nějak si s tím nevím rady...

Zadám přir. číslo a program ho má rozdělit na dvě poloviny (případně pokud je lichý počet cifer, doplnit nulu z leva) a ty následně prohodit, např. 1234->3412... jak na to ?

#1 sirvomacka
Koukám, že někde rozdali pár "domácích úkolů".

Stejná rada  jako tady:

#1 sirvomacka
1. Někam (třeba do Edit1)  napíšeš to číslo

2. proměnné typu string přiřadíš to, co je v tom Editu1.

3. Zjistíš délku stringu (na to je nějaká funkce)

3. Pokud ta délka bude liché číslo (to zjistíš podle zbytku po dělení 2 - je na to jeden operátor)

   pak před ten string přiřadíš 0 (jako string) a délku zvětšíš o 1.

4.Potom budeš v cyklu od 1 do poloviny délky (polovinu zjistíš přes operátor celočíselného dělení číslem 2)

  do jedné proměnné typu stringu načítat číslice (jako string) od té jedničky a do druhé číslice od poloviny až do

  konce ty další číslice (nezapomeň, že postupné načítání bude něco takového s1 := s1+s[i])

5.A nakonec, třeba do Edit2, vypíšeš ty dva stringy v pořadí druhý+první.

A je to.

#3 Honzc
I když se může stát, že mu to učitel vrátí jako špatné řešení, protože to třeba chtěl jen v číselném oboru ;-)

#4 JoDiK
A co mu brání to tedy načíst jako číslo, to potom převést na string a dále pracovat se stringem.

#5 Honzc
Tazatel se nijak nevyjádřil a tipuju že už se sem ani nekoukne, takže nevím co by mu mělo bránit, jen si pořád myslím, že učitel po něm chtěl aplikovat dělení deseti a zbytek po dělení všechno v číselném oboru a o řetězcích nechce ani slyšet...

#6 JoDiK
Nevím, proč by učitel nechtěl slyšet nic o řetězcích, když chce, aby pokud má číslo lichý počet cifer doplnil na začátek 0.

Jinak proč dělit pořád 10-ti, když to jde vydělit jednou.

var d,cislo,c1,c2: Integer;
begin
  cislo := StrToInt(Edit1.Text);
  d := Length(Edit1.Text);
  if d mod 2=1 then
    d := d+1;
  d := d div 2;
  d := Trunc(IntPower(10,d));
  c1 := cislo div d;
  c2 := cislo mod d;
  cislo := c2*d+c1;
  Edit2.Text := IntToStr(cislo);
end;

achjo  no, mám tu jen pár příkladů na procvičování a když nevim tak sem se chtěl zeptat, sorry... 

jinak původně tam opravdu mělo být použito dělení 10, ale rád se přiučím i jak to udělat jinak...díky Honzc

#8 sirvomacka
Nevím proč se omlouváš, šak ti nikdo nic nevyčítá, snad jen že nereaguješ, neupřesňuješ a na nic se neptáš...