Szóljatok ide

[BlackP]

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
        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);
             vegeredmeny := konvertal(szam,szamrendszer);
             writeln(vegeredmeny);
         end;
        writeln('END');
        readln();

END.

az eredmény-végeredmény változóval még mindig gáz van

[Pityubacsi]

ÁÁÁÁÁÁÁÁÁÁÁÁÁÁ, BUZIK!!

szabin vagyok és különben is útálom a codereket.... grrrrr.....  

[aaggoottaa]

pelda>

101   a szam   2 a szamrendszer
eredmeny 0


1 lepes
maradek 1 
szorzo 1
eredmeny=0+1*1=1
szam=10

2. lepes
maradek 0
szam=1
szorzo 2
eredmeny=1+ 0*2=1

3. lepes
maradek 1
szam =0
szorzo=2*2=4
eredmeny= 1+ 1*4



 

[aaggoottaa]

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

begin
eredmeny:= 0;
maradek:=0;

szorzo:= 1;
{ezt is cikluson kivulre kell}
        repeat
         maradek:= szam mod 10;
         szam:= szam div 10;
         eredmeny:= eredmeny + maradek * szorzo;
         szorzo:=szorzo*szamrendszer; ! az iment rosszul volt javitottam {alapnak mindig 1el nagyobb hatvanya a szorzo}
        until  szam=0;

        konvertal := eredmeny;
end;

[Greg]

program kelenyi;

var  szam,szamrendszer,vegeredmeny : integer;


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

begin
        eredmeny:= 0;
   maradek:= 0;
   repeat
        szorzo:= 1;
         maradek:= szam mod 10;
         szam:= szam div 10;
         eredmeny:= eredmeny + maradek * szorzo;
         szam:= szam * (szamrendszer);{ezt nem ertem mire jo}
         eredmeny:=szam;  {ezt sem}
        until  szam=0;

        konvertal := eredmeny;
end;



   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);
             vegeredmeny := konvertal(szam,szamrendszer);
             writeln(vegeredmeny);
         end;
        writeln('END');
        readln();

END.

[aaggoottaa]

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

{ha ide megint deklaralod az eredmenyt nem jo me felulirja}

begin
        repeat
         szorzo:= 1;
        { eredmeny:= 0;} ez a repeat ele kell, egyebkent minden lepesben elrontod
         {maradek:=0;}  ezt se kell lepesenkent megaszondani neki eleg 1szer ciklus elott
         maradek:= szam mod 10;
         szam:= szam div 10;
         eredmeny:= szam {nem a szamhoz adogatjuk hanem az eddigi eredmenyhez}+ maradek * szorzo;
         szam:= szam * (szamrendszer); {ezt nem ertem mire jo}
         eredmeny:=szam;  {ezt sem}
        until  szam=0;

        konvertal := eredmeny;
end;

[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.