Szóljatok ide

[BlackPsenior]

hát ennek nagyon örülök...

"Anettka sikított az űr okozta boldogságtól"

http://index.hu/velvet/celeb/ugr1214/?main&rnd=519

[wob974]

é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

Ez inkább az irás és olvasástudatlan biztonsági őr hibája.
De loptak volna el egy kiflit....

[te_o]

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

Ha igen, engemet is érdekelhet. Most olvastam csak. Mondjuk főleg mint hely, ahol elfér egy autó...!

[aaggoottaa]

Igeeeen és ennek örömére nekivágok a valószínűségszámításnak :-)) egy forró vízzel teli káddal :-))))

köszönöm +egyszer

szivesen.

na valszam, aaaaz, az szornyuuuu, hajra neked... abbol tuti nem tudnek 3 ertelmes szot mondani 
epp csak atmentem 5ossel 

[Greg]

Igeeeen és ennek örömére nekivágok a valószínűségszámításnak :-)) egy forró vízzel teli káddal :-))))

köszönöm +egyszer

[Normogo]

Egyszer megesett, hogy 10-szeres áron adták "véletlenül" a karajt, 1100, helyett 11ezerért, vagy valami ilyesmi. Csak az én pénztáromnál aznap legalább 5-en vettek (csak azért tudom, mert szeretem a karajt ), és 4-nek fel se tűnt, mert 30 rugó felett vásároltak, és abban volt 70-80 deka.
Jött egy öreg néni, és vett egy kis paprikát, paradicsomot, zsömlét, meg 1 kiló karajt, na akkor borult ki a bili.
20 pénztár volt nyitva, ha abból mind csak 3kg karajt eladott délelőtt, az 600ezer +pénz
Én meg 40-et kaptam 1 hónapra

[aaggoottaa]

KÖCCÖNÖM 

ah, nagggggyon szivesen. de erted akko?

[Greg]

KÖCCÖNÖM 

[aaggoottaa]

repeat
         maradek:= szam mod 10;  {megkapom az utolso szamjegyet, mert az kell nekem, azt fogom szorozni}
         szam:= szam div 10;         {levagom az utolso szamjegyet, nem kell tobbet}
         eredmeny:= eredmeny + maradek * szorzo;   {beszorzo es az eddigihez hozzaadom}
         szorzo:= szorzo * szamrendszer;    {novelem a szorzot 1el nagyobb hatvanyra}

 until  szam=0;  {ha a szam=0 akko ma levagtam minden szamjegyet, elfogyott a szam atalakitottam az egeszet}

[aaggoottaa]

Ezt adtam be először ezt értettem

na ez tenyleg irt csunya...  de nagyon
szal a fuggvenyben ugy van, hogy mindig az utolso szamjegyet szorzom az epp aktualis szorzoval. az utolso
szamjegyet ugy lehet megkapni hogy MOD-olom 10el... a 10el valo osztasi maradek az utolso szamjegy. pl 847 mod 10=7 (pont az utolso szamjegy)
es hogy vagom le az utolso szamjegyet?   DIV-elem 10el... az a 10el valo osztaso hanyados   847 DIV 10=84  (tehat levagtam az utolso szamjegyet)

[BlackP]

Ha meg elfogy a készlet a plazmából, akkor a kirakott és szétfurkált darabot leárazzák a felére, mert sérült, és már viszik is kifelé

jaja, gondolom erre építenek

[Greg]

Ezt adtam be először ezt értettem
Itt megköszönöm ha esetleg a fv ben elmagyarázzátok hogy hogy miért kell osztogatni az nem ment még le
(csak nem akartalak még ezzel is nyaggatni :-)

program kelenyi;

uses konvert, crt, Sysutils;

var szamrendszerChar : Char;
    szam,szamrendszer,eredmeny : Int64;
    szamStr : String;
    mehet : boolean;

BEGIN
        clrscr;
        mehet := false;
        write('Válasszon számrendszert (2 vagy :');
        readln(szamrendszerChar);
        szamrendszer := strToInt64Def(szamrendszerChar,0);
        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(szamStr);
        szam := strToInt64Def(szamStr,0);
        if (szam<>0) and mehet then mehet := true;
        if not mehet then begin
                writeln('Hibás adatok');
        end
        else begin
                eredmeny := konvertal(szam,szamrendszer);
                writeln(eredmeny);
        end;
        writeln('END');
        readln();

END.

unit konvert;

interface
uses SysUtils,math,crt;
function konvertal (szam,szamrendszer:Int64) : Int64;

implementation

function konvertal (szam,szamrendszer:Int64) : Int64;
var szamStr : string;
    i,hossz : integer;
    akt,eredmeny : Int64;
begin

        eredmeny := 0;
        szamStr := intToStr(szam);
        hossz := length(szamStr);
        for i:=0 to hossz-1 do
        begin
                akt := strToInt64Def(szamStr[hossz-i],-1);
                if akt=-1 then begin
                        eredmeny := eredmeny * -1;
                end
                else begin
                        eredmeny := eredmeny + round(strToInt64(szamStr[hossz-i]) * intpower(szamrendszer,i));
                end;
        end;
        konvertal := eredmeny;
end;

end.

[aaggoottaa]

 de akkor miért nem mindent egyből longintbe adunk meg mindig?

mert az nagyobb helyet foglal sokkal lassabban dolgozik vele. optimalizalasnal es memoriagazdalkodasnal sokat szamit.... amit meg lehet oldani kicsivel, annak minek nagyot adni...

amugy meg van byte is... shortint is.... oket ismered? 


de a prgt erted is vagy csak megy?

[Greg]

így ni?!

Most működik így is de akkor miért nem mindent egyből longintbe adunk meg mindig?


program kelenyi;

var  szam,szamrendszer,vegeredmeny : longint;


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

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('Valasszon szamrendszert (2 vagy ');
        readln(szamrendszer);
         if (szamrendszer=2) or (szamrendszer=8) then
         begin
             write('Adja meg a konvertalni kivant nullatol kulonbozo szamot:');
             readln(szam);
             vegeredmeny := konvertal(szam,szamrendszer);
             writeln(vegeredmeny);
         end;
        writeln('END');
        readln();

END.

[aaggoottaa]

longint   ugy aszondjak neki pascalban

de akkor az eredmeny, szam, szorzo mindegyik olyan legyen...

[aaggoottaa]

ha számnál pl azt akarom hogy nagobb szám is beleférjen mitcsináljak (volt valamiolyan hogy long integer) ?!

longint   ugy aszondjak neki pascalban

[Greg]

ha számnál pl azt akarom hogy nagobb szám is beleférjen mitcsináljak (volt valamiolyan hogy long integer) ?!

[Noo]

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.

Ha meg elfogy a készlet a plazmából, akkor a kirakott és szétfurkált darabot leárazzák a felére, mert sérült, és már viszik is kifelé
De hát mindenkinek attól szaros a keze, amivel dolgozik.

[aaggoottaa]

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

 

ha tudnad micsoda orvendezos nosztalgiazas fogtt el  

meg a kedvem is megjott  

[Greg]

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

Közben folyamatosanírtam és megy :-)))))))

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