Hirdetés

Új hozzászólás Aktív témák

  • PazsitZ
    addikt

    De ha kivonom a pénzösszegből a címletet,akkor nem kapom meg,hogy hány db kell belőle nem?
    Azt nem osztani kell? Hogy határozom meg,hogy 0 vagy 5 legyen a vége?

    Azért írtam oda, hogy "letárolod a címletet"
    Bár osztással tényleg gyorsabb.
    Megtaláltam egy régi pascalos forráskódom.
    Ez bankautomata és csak pár értékes, de hátha segít:

    write('K‚rt ”sszeg:');readln(be);
    x:=be mod 1000;
    if x<=0 then begin
    y:=(be div 1000);
    if y mod 10>=0 then begin
    ossz10:=y div 10;
    be:=y mod 10;
    end;
    if y mod 5>=0 then begin
    ossz5:=be div 5;
    y:=be mod 5;
    end;
    if y mod 1>=0 then begin
    ossz1:=y div 1;
    be:=y mod 5;
    end;
    writeln('kiadand˘ cˇmletek:');
    writeln('10000ft-os cˇmlet:',ossz10:8:0);
    writeln('5000ft-os cˇmlet:',ossz5:8:0);
    writeln('1000ft-os cˇmlet:',ossz1:8:0);
    end
    else begin
    writeln('Minimum 1000,5000,10000ft-os cˇmletek vehet‹ ki');
    end;

Új hozzászólás Aktív témák