Szóljatok ide

[Greg]

Már javítom is

[aaggoottaa]

az a baj hogy magyarázták telefonon hogy mint kellene a fv ben de csak így tudom, ehhez elég tök az agyam, de magamra "szinte" büszke vagyok hogy ezt meg tudtam csinálni. Nem akarok programozni, de kell ..... :-((((

csinald csak. nem jo moka de sok penz lehet vele keresni. 

(en ma csak tudom)


most irom at a fuggvenyt. pill

[aaggoottaa]

de ha  adeklaraciot kiveszed az ok csak akko vedd ki a programbol is, me igy haznalod es nincs deklaralva
es amugy sem kell

[Greg]

az a baj hogy magyarázták telefonon hogy mint kellene a fv ben de csak így tudom, ehhez elég tök az agyam, de magamra "szinte" büszke vagyok hogy ezt meg tudtam csinálni. Nem akarok programozni, de kell ..... :-((((

[BlackP]

basszus, pedig pár éve tanultam pascalt és már semmit nem tudok belőle :S

[aaggoottaa]

 BEGIN
         write('Válasszon számrendszert (2 vagy 8');
         readln(szamrendszer);
          if (szamrendszer=2) or (szamrendszer=8) then
          begin
              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);
          end;
         writeln('END');
         readln();

END.


ez kb a foprogram kicsit helyesebben

[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