Stránka 1 z 1

[Pascal] Spojeni cisel (ne secteni)

Odeslat příspěvekNapsal: 2. 2. 2008 16:15
od KillmanCZE
Zdravim,
jak muzu v Turbo Pascalu spojit 2 cisla? Napr. 5 a 7 = 57. Nesmim pouzit string :?
Predem vsem dekuji.

Odeslat příspěvekNapsal: 2. 2. 2008 16:24
od Nargon
5*10 + 7 = 57
A kdybys mel 3 cisla treba 2,7,3 a chce 273, tak je to podobny.
2*100 + 7*10 + 3 = 273

Odeslat příspěvekNapsal: 2. 2. 2008 16:44
od rb
Nargon píše:5*10 + 7 = 57
A kdybys mel 3 cisla treba 2,7,3 a chce 273, tak je to podobny.
2*100 + 7*10 + 3 = 273


Alebo ((((2*10)+7)*10)+3)...

Odeslat příspěvekNapsal: 2. 2. 2008 17:40
od KillmanCZE
Tak nakonec pro me byl vyhodnejsi Nargonuv zpusob.

Dekuji.

Odeslat příspěvekNapsal: 3. 2. 2008 00:12
od Noclaf
Obecne to lze i tak, ze cisla prevedes na stringy, sectes jako stringy a pak prevedes vysledny string na cislo

Odeslat příspěvekNapsal: 3. 2. 2008 02:56
od Mývalice
No to by asi tazatel zvládl....ale jak říká, nesmí použít string. :-)

Odeslat příspěvekNapsal: 3. 2. 2008 11:58
od Noclaf
Kurna, no jo, ja cetl az ty prispevky podtim. :)

V tom pripade by se to dalo obejit pomoci array [1..x] of char :D Coz je sice necestne a nesportovni, ale zadani se tim vyhovi - neni pouzit string. :)

Odeslat příspěvekNapsal: 3. 2. 2008 13:08
od KillmanCZE
Tak pres string bych to opravdu zvladl :)

Uz to mam hotove podle Nargona, ale pokud nemate co delat, muzete to vymyslet lip nez ja. Vim ze to jde, ale jsem teprve zacatecnik...

Takze zadani:
Deklarujte podprogram, ktery zapise dane prirozene cislo v obracenem poradi cifer.

A moje reseni (ne ze me ukamenujete :D ):
Kód: Vybrat vše
function otoceni_cisla(n:word):word;
  var r,c,i,s,nc,oc:word;
      j:longint;
  begin
   if(n div 10>0)then begin
    r:=n;
    c:=0;
    repeat
     r:=r div 10;
     c:=c+1;
     until r<1;
    i:=1;
    j:=10;
    while i<c do begin
     i:=i+1;
     j:=j*10;
     end;
    oc:=0;
    for i:=1 to c do begin
     nc:=n mod 10;
     n:=n div 10;
     j:=j div 10;
     s:=nc*j;
     oc:=oc+s;
     end;
    otoceni_cisla:=oc;
    end else
     otoceni_cisla:=n;
   end;

Odeslat příspěvekNapsal: 3. 2. 2008 13:24
od georgeino
(prvni_cislo*(10^pocet_cifer_druheho))+druhe_cislo