Aktív témák

• #4 skera tag czibie #2

  2006-06-27 11:10:51 #4

  Ö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

  

  skera

  tag

  válasz czibie #2 üzenetére

  Minimum és maximum kiszámoló függvények
  
  const N=5000;
  
  {Minimum; bemenet egy tomb}
  function min(var be: Array [0..N-1] of Integer)
  var i,minszam: Integer;
  begin
  minszam:=N;
  for i:=1 to N do
  begin
  if minszam < be then
  begin
  minszam:=be;
  end;
  end;
  return minszam;
  end;
  
  {Maximum; bemenet egy tomb}
  function max(var be: Array [0..N-1] of Integer)
  var i,maxszam: Integer;
  begin
  maxszam:=0;
  for i:=1 to N do
  begin
  if maxszam > be then
  begin
  maxszam:=be;
  end;
  end;
  return maxszam;
  end;
  
  
  NEM GARANTÁLOM, HOGY JÓ. LEHET, SŐT BIZTOS, HOGY VAN BENNE HIBA!!!!
  Főleg a :=-vel vagyok mindig gondba, hiszen régen pascaloztam már. Remélem hasznát veszed valamennyire...

  import szte.ttk.ptm.*;

Aktív témák