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

• #534 PazsitZ addikt cellpeti #527

  Új Válasz 2008-10-24 15:41:37 #534

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  PazsitZ

  addikt

  válasz cellpeti #527 üzenetére

  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