Szóljatok ide

[Greg]

program kelenyi;

var  szam,szamrendszer,vegeredmeny : integer;


function konvertal (szam,szamrendszer:integer) : integer;
var szorzo,eredmeny,maradek: integer;

begin
        repeat
         szorzo:= 1;
         eredmeny:= 0;
         maradek:= 0;
         maradek:= szam mod 10;
         szam:= szam div 10;
         eredmeny:= szam + maradek * szorzo;
         szam:= szam * (szamrendszer);
         eredmeny:=szam;
        until  szam=0;

        konvertal := eredmeny;
end;



    BEGIN
        mehet := false;
         write('Válasszon számrendszert (2 vagy :');
         readln(szamrendszer);
          write('Adja meg a konvertálni kivánt nullától különböző számot:');
            readln(szam);
                eredmeny := konvertal(szam,szamrendszer);
                writeln(vegeredmeny);
        writeln('END');
        readln();

END.

[aaggoottaa]

program kelenyi;

var szam,szamrendszer,eredmeny : integer;
     mehet : boolean;

function konvertal (szam,szamrendszer:integer) : integer;
var szorzo,eredmeny,maradek: integer;

begin
        repeat
         szorzo:= 1;
         eredmeny:= 0;
         maradek:= 0;
         szam:= szam mod 10;
         szam:= szam div 10;
         eredmeny:= eredmeny + maradek * szorzo;
         szam:= szam * (szamrendszer);
         eredmeny:=szam;
        until  szam=0;

        konvertal := eredmeny;
end;



    BEGIN
        mehet := false;
         write('Válasszon számrendszert (2 vagy :');
         readln(szamrendszer);
          if (szamrendszer=2) or (szamrendszer=8) then mehet := true;
           write('Adja meg a konvertálni kivánt nullától különböző számot:');
            readln(szam);
                eredmeny := konvertal(szam,szamrendszer);
                writeln(eredmeny);
        writeln('END');
        readln();

END.

eszrevetelek a "repulobol":

az eredmenyt a cikluson belul inicializalod??? monden lepesben nulladod...

a forpogramban a mehet valtozo folosleges...

[aaggoottaa]

elkúrtad.
ekkora böszmeséget.... :-))

ne rohogj javitsd ki neki...
de szerintem is el van kurva

[Pityubacsi]

elkúrtad.
ekkora böszmeséget.... :-))

[Greg]

Csókolom segítséget kérnék elég OFF: :-)
DE FONTOS ÉS sürgős !

Számtechből van egy feladatunk hogy 2 ill 8 számrendszerbe beírt számot kell átkonvertálni 10 számrendszerbe.

nagy részét megírtam de a szerintem, biztos a függvény eltolok vmit, kérlek segítsetek ma este be kell adnom (a korábbi megoldásomat visszadobta a tanár mert nem használhatunk pl uses-t, meg stringet.

Fontos lenne
KÖSZÖNÖM

Itt a megoldásom ami rossz valamiért

program kelenyi;

var szam,szamrendszer,eredmeny : integer;
     mehet : boolean;

function konvertal (szam,szamrendszer:integer) : integer;
var szorzo,eredmeny,maradek: integer;

begin
        repeat
         szorzo:= 1;
         eredmeny:= 0;
         maradek:= 0;
         szam:= szam mod 10;
         szam:= szam div 10;
         eredmeny:= eredmeny + maradek * szorzo;
         szam:= szam * (szamrendszer);
         eredmeny:=szam;
        until  szam=0;

        konvertal := eredmeny;
end;



    BEGIN
        mehet := false;
         write('Válasszon számrendszert (2 vagy :');
         readln(szamrendszer);
          if (szamrendszer=2) or (szamrendszer=8) then mehet := true;
           write('Adja meg a konvertálni kivánt nullától különböző számot:');
            readln(szam);
                eredmeny := konvertal(szam,szamrendszer);
                writeln(eredmeny);
        writeln('END');
        readln();

END.

[BlackP]

Ezek a sztorik szerintem simán igazak, én lehúztam egy nyáron másfél hónapot, mint görkorcsolyás aszisztens a Tescoban, mondjuk a pestiek biztos durvábbak. Például a fehér matrica, meg az este tíz utáni grillcsirkéből ne egyél, nekem is derengenek. Egyszer nagyon lebasztak, mert a pénzes babám beszorult a csőbe, egyből azt hitték, hogy le akarom nyúlni. Azt hittem jó kis lötyögés lesz majd egész nap görkoriban, de főleg a pénztárban kellett kuksolni éhbérért!

én is melóztam tecsóban, szerencsére nem tecsósként, szóval csak néztem őket, kemény dolgok voltak. loptak el komplett hűtőt, 100 centi feletti plazmatévét, ilyenek. a hűtőt a bejáraton vitték ki és a biztonságis segített is, mert bevette, hogy máshol nem fér ki és meglebegtettek egy kamu szállítólevelet neki...no comment

[Normogo]

Szép lett a buszod!
Gratulálok!

[Normogo]

amugy asszem BlackP vagy senior jol megaszondta az anyazosban, ha ennek a fele igaz csak, mar az is sok...

en a nagy reszet elkepzelhetonek tartom...

Ezek a sztorik szerintem simán igazak, én lehúztam egy nyáron másfél hónapot, mint görkorcsolyás aszisztens a Tescoban, mondjuk a pestiek biztos durvábbak. Például a fehér matrica, meg az este tíz utáni grillcsirkéből ne egyél, nekem is derengenek. Egyszer nagyon lebasztak, mert a pénzes babám beszorult a csőbe, egyből azt hitték, hogy le akarom nyúlni. Azt hittem jó kis lötyögés lesz majd egész nap görkoriban, de főleg a pénztárban kellett kuksolni éhbérért!

[TBK001]

elötte:

utána 

Nagyon szép lett!! 
Gratulálok!! 

[Pityubacsi]

nagyon szép lett!
Bogár fújást nem vállal? Nagyon le kellene festetni az Eszter Bogarát, az is tarka rendesen... :-)

Qzma!
Gyönyörű lett a Buszod! Kérdezd meg lszi, hogy elvállalná-e Pirit egy egyszínű piros körbefújásra. Thx.

kenjük le teddyvel, bazze!
lehetne piros + sárga + zöld + fekete + gandzsa minták ... raszta bogi.
van 1-2 ötletem a dizájnra, ha érdekel titeket

[Peppino]

elötte:

utána 

GRATULA! Nagyon szep lett Bocid 
Micsoda szinvältozäs 

[aaggoottaa]

Tényleg: mi lesz most a neve. Bocinak nevezed ezentúl is?

en is ezt kerdeztem. 

de marad Boci 

[Eszter]

Qzma!
Gyönyörű lett a Buszod! Kérdezd meg lszi, hogy elvállalná-e Pirit egy egyszínű piros körbefújásra. Thx.

Tényleg: mi lesz most a neve. Bocinak nevezed ezentúl is?

[Eszter]

Qzma!
Gyönyörű lett a Buszod! Kérdezd meg lszi, hogy elvállalná-e Pirit egy egyszínű piros körbefújásra. Thx.

[aaggoottaa]

elötte:

utána 

  woooooow, nagggyon szep!! azert keszult ilyen sokat mert ilyen szep lett 

[Pöcök]

elötte:
utána 

Zsír a verda!

[stonemen]

nagyon szép lett!
Bogár fújást nem vállal? Nagyon le kellene festetni az Eszter Bogarát, az is tarka rendesen... :-)

[1303LS]

elötte:


utána 

Váááá, nagyon jó lett. 
Sokáig tartson. 

[BlackP]

relative.

egy piros teherautó nem annyira ronda, mint egy tehénmintás teherautó.
ééted? :-PPP

és egy márványmintás?   

[Süni]

elötte:
utána 

Vazeg ! Ez büdös jól néz ki !

[Pityubacsi]

bejön egy teherautó? 

relative.

egy piros teherautó nem annyira ronda, mint egy tehénmintás teherautó.
ééted? :-PPP

[BlackP]

hö, király :-))

bejön egy teherautó? 

[BlackP]

wow

[Pityubacsi]

elötte:
utána 

hö, király :-))

[Qzma]

elötte:


utána 

[Leon 1303]

Segitsetek! kinek van tapasztalata csomagküldő szolgálattal?

DHL-el akarják küldeni (németektől). ott miért kell biztosítani? mert a postán ugye lehet hogy lenyúlják.. ezeknél is?  vagy ez arra van, ha összetörik?

7 euróért vettem. plusz a biztosításosl 30euro  nélküle 9.

Biztosítás nélkül 9 euró a postaköltség németből a DHL-el?
Mit vettél?

[KIZS]

Kiderült valami X. ker-i bérelhető akármivel kapcsolatban?

[Typ117]

Segitsetek! kinek van tapasztalata csomagküldő szolgálattal?

DHL-el akarják küldeni (németektől). ott miért kell biztosítani? mert a postán ugye lehet hogy lenyúlják.. ezeknél is?  vagy ez arra van, ha összetörik?

7 euróért vettem. plusz a biztosításosl 30euro  nélküle 9.

[aaggoottaa]

azt irj a konyvben, hogy nem akartak eloleptetni es kilepett... talan...

amugy asszem BlackP vagy senior jol megaszondta az anyazosban, ha ennek a fele igaz csak, mar az is sok...

en a nagy reszet elkepzelhetonek tartom...

[aaggoottaa]

asszem kirugták vagy lebukot vagy valami ilyesmi

azt irj a konyvben, hogy nem akartak eloleptetni es kilepett... talan...

[Balage]

És miután abbahagyták az 1303 gyártását (mert rájöttek, hogy rossz irányba indultak) visszatértek a legsikeresebb típus gyártásához, amit ez után még kb. 25 évig gyártottak. Tényleg tökéletes lehet!     

Egyébként semmi bajom már a 1303, 1302 típusokkal   

Pedig miután a maximumot kihozták a bogárból (lásd 1303) nem volt hová tovább lépni. 
Ekkor rajzolták meg a golfot. 

[1303LS]

Némi képzavarra utal ennek a két szónak egy mondatban történő megjelenése. Főleg úgy, hogy egymás mellet szerepel az két bizonyos szó!    

Pedig miután a maximumot kihozták a bogárból (lásd 1303) nem volt hová tovább lépni. 
Ekkor rajzolták meg a golfot. 

[Balage]

Némi képzavarra utal ennek a két szónak egy mondatban történő megjelenése. Főleg úgy, hogy egymás mellet szerepel az két bizonyos szó!    

Igazán rendes tőled, ilyet nem lehet gyakran találni,
de nekem tetszik így, az az "S" belezavar az "1303" tökéletességébe" kinézetileg szreintem.

[BlackP]

Szerintem mindenki tudja a bogarasról,hogy nem azért variál a motorral,mert tele van pénzzel!Persze nekem is van adásvételi, meg minden,de erre a pár évre minek irattassam át,mikor úgyis visszarakom majd az eredetit!Vizsgára biztos,vagy nem?

vizsgára sem...én próbáltam a hivatalos utat és az lett az eredmény, hogy levettek egy csomó zsetonnal és a számom még mindig szar. az elején kellett volna az itt elcseszett összeget átadni az eredetvizsgálónak, hogy nyomassa rá az A-t

[péter]

Holló!
Most kaptam egy iwiw-es meghívót!
Kell még?
Hát másnak?

Nekem is van.
Most mindenki kapott aki régen igényelt.

[TBK001]

ha nem gond örizgetni kéne még egy darabig....ha minden igaz jöv 7en megyek nagyfaluba kedden...és kedden délután jövök haza vonattal majd szólok előtte...vagy haverom jár feléd majd szólok neki...nekem nem sűrgős tudom hogy jó helyen van!

Persze, persze... elvan a táskámban...
Majd üzenj előtte, mert a jövő héttől már asszem csökkenetett üzemmódban dolgozik a melóhelyem...

[1303LS]

Igazán rendes tőled, ilyet nem lehet gyakran találni,
de nekem tetszik így, az az "S" belezavar az "1303" tökéletességébe" kinézetileg szreintem.
(vagy már csak megszoktam)
A papírjaiban ott van az "S" amúgy, de én már így vettem. Kaptam hozzá még egy plussz géptetőt,
de azon is csak sima felirat van!

AMÚGY HONNAN TUDOD, HOGY "S"-ES???
Miben különbözik így kinézetre?

Az igazi ilyen.
Azóta már fent vana helyén. 

[sparkafer]

nekem mindegyik kocsinál stimmelnek számok...vagyis busznak nincs száma csak motorkód

Szerintem mindenki tudja a bogarasról,hogy nem azért variál a motorral,mert tele van pénzzel!Persze nekem is van adásvételi, meg minden,de erre a pár évre minek irattassam át,mikor úgyis visszarakom majd az eredetit!Vizsgára biztos,vagy nem?

[vw1966]

Pár év,nem tudom.Még nem vettem ilyet.Egyébként ki az isten nézi a bogi motorszámát!
Tegye fel a kezét az ,velemegyütt,akinek a papírban szereplő számú motor van bennt!Letehetitek!Egyszer biztos visszarakom majd,ha kész lesz a gépmunka,de még a pincében várakozik!Majd vasárnap kimegyek,utána többet tudok majd!

nekem mindegyik kocsinál stimmelnek számok...vagyis busznak nincs száma csak motorkód

[sparkafer]

oké aszt megköszönném!
saccperkábé mibe kóstálnak az ilyen cuccok
mert szeretnék ilyet.

Pár év,nem tudom.Még nem vettem ilyet.Egyébként ki az isten nézi a bogi motorszámát!
Tegye fel a kezét az ,velemegyütt,akinek a papírban szereplő számú motor van bennt!Letehetitek!Egyszer biztos visszarakom majd,ha kész lesz a gépmunka,de még a pincében várakozik!Majd vasárnap kimegyek,utána többet tudok majd!