Szóljatok ide

[Greg]

a szorzo:=1et is cikluson kivul kell!!

Jajj igen már javítottam csak még itt nem :-))
ÉS MŰKÖDIK :-)

[aaggoottaa]

#18689

ebbol a hozzaszolasbol masold ki es tedd at pascalba es teszteld

[Greg]

KÖSZÖNÖM SPECIALLY AAGGOTAAAAAAA  először :lamer:de aztán   és most:

[aaggoottaa]

a szorzo:=1et is cikluson kivul kell!!

[BlackP]

A sárga cetlis leárazás az tuti megy a belső körökben. Pár haverom ott dolgozott a műszaki osztályon, és simán kihoztak így kisebb hangfalakat megy ilyen dolgokat. Nem voltak nagy értékek de mégiscsak féláron vagy az alatt hozzájutottak. Nekem is hoztak volna egy Panda dvd lejátszót féláron, de mikor a srác mondta, hogy napi kettőt visznek vissza mert annyira szar inkább lemondtam róla.
A hentes részen is árazzák le a húst rendesen. És nem csak akkor ha nem kell senkinek.
Szóval, ha az ilyen kis dolgok igazak a könyvből, akkor a nagyobbakban is lehet igazság.

nálunk a tecsóban a 450ezer forintos plazmatévéből az egyik talpa facsavarral volt lefogatva a raklapra, amin kiállították, a másikat meg hiltiszalaggal fogatták le. na kb ennyire mennek a lopások. volt olyan nap, hogy több tft monitor is eltűnt. ja és ezek vásárlók, nemis a dolgozók. arról jobb nem beszélni.

[aaggoottaa]

hat van pascalod???
(me nekem nincs.. csak igy szarazon irtam)

ird be es teszteld

pl input:   101, 2    kiadja az 5ot?

[Greg]

Úgy érzem akkor ez a végleges és működik :-))))

NAGYON NAGYON NAGYON KÖSZÖNÖM !
Azért egyszermég nézzetek rá hogy nem írtam e el :-)

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.

[Noo]

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!

A sárga cetlis leárazás az tuti megy a belső körökben. Pár haverom ott dolgozott a műszaki osztályon, és simán kihoztak így kisebb hangfalakat megy ilyen dolgokat. Nem voltak nagy értékek de mégiscsak féláron vagy az alatt hozzájutottak. Nekem is hoztak volna egy Panda dvd lejátszót féláron, de mikor a srác mondta, hogy napi kettőt visznek vissza mert annyira szar inkább lemondtam róla.
A hentes részen is árazzák le a húst rendesen. És nem csak akkor ha nem kell senkinek.
Szóval, ha az ilyen kis dolgok igazak a könyvből, akkor a nagyobbakban is lehet igazság.

[aaggoottaa]

na muxik? 

[aaggoottaa]

java-ban egyszerűbb:

Integer.toBinaryString(szam);

illetve

Integer.toOctalString(szam);

johhh, Siebelben is 1-1 sor...

na de igy gondolkodni kell, es igy kihivas is a programozas  

[KIZS]

java-ban egyszerűbb:

Integer.toBinaryString(szam);

illetve

Integer.toOctalString(szam);

Mondjuk ez pont az ellentetje...

[KIZS]

java-ban egyszerűbb:

Integer.toBinaryString(szam);

illetve

Integer.toOctalString(szam);

[aaggoottaa]

program kelenyi;

var  szam,szamrendszer,vegeredmeny : integer;


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

eredmeny:= 0;
maradek:=0;
szorzo:= 1;

        repeat
           maradek:= szam mod 10;
           szam:= szam div 10;
           eredmeny:= eredmeny + maradek * szorzo;
           szorzo:=szorzo*szamrendszer;
        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]

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

elneztem, folosleges a 2 valtozo de gondolom optimalizalni nem kell 

szal akko a fuggvenyben dklarald szepen az eredmeny is BOCS

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