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

• #1200 bbazsy őstag Tottu #1163

  Új Válasz 2006-05-15 18:58:09 #1200

  Ú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

  

  bbazsy

  őstag

  válasz Tottu #1163 üzenetére

  ezt én élesbe csináltam(teljes feladatsor, külön tanárnál, 4 óra alatt..), 2.5 órát szoptam csak ezzel, de végül 100% -os lett.
  a beolvasás valami 2 oldal pascalba, nagyon bonyolultra vettem, de nem tudtam máshogy.
  holnap elkérem majd, ha esetleg utolsó nap rá akarsz gyúrni
  
  amúgy nézem most a megoldását a feladatnak, és csak nézek... nem fogom fel, h hogy lehet ilyen a beolvasás, de mégis... Te azt érted ?

• #1168 Tangerine senior tag Tottu #1163

  Új Válasz 2006-05-15 14:21:21 #1168

  Ú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

  

  Tangerine

  senior tag

  válasz Tottu #1163 üzenetére

  Valami ilyesmi: (nem póbáltam ki)
  
  type
  thuzas= record
  szam : array [1..5] integer;
  end;
  
  var
  lotto: array [1..52] of tHuzas ;
  
  szam, x, y, max, temp,het, hibakod :integer;
  kihuzva: set of integer;
  valasz: string;
  
  begin
  
  {52. heti beolvasás}
  
  x := 1;
  kihuzva := [];
  het := 52 ;
  max := 5 ;
  
  repeat
  writeln('Kerem a '+ IntToStr (x) + '. szamot!: ') ;
  readln(valasz);
  val(valasz,szam,hibakod);
  if (hibakod = 0) and (szam not (in kihuzva)) and (szam > 0) and (szam < 91) then
  begin
  lotto[het].szam[x] := szam;
  kihuzva := kihuzva + szam;
  inc(x);
  end
  else
  begin
  writeln('Hiba: ' + valasz);
  readln;
  end;
  until x > 5 ;
  
  
  
  {52. heti rendezés}
  
  
  for x := 1 to Max - 1 do
  begin
  for y := x+1 to Max do
  begin
  if lotto[het].szam[x] > lotto[het].szam[y] then {csere-bere}
  begin
  temp := lotto[het].szam[x];
  lotto[het].szam[x] := lotto[het].szam[y];
  lotto[het].szam[y] := temp;
  end;
  end;
  end;
  
  end.
  
  
  [Szerkesztve]

• #1164 Tyrael senior tag Tottu #1163

  Új Válasz 2006-05-15 13:22:45 #1164

  Ú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

  

  Tyrael

  senior tag

  válasz Tottu #1163 üzenetére

  http://www.prog.hu/tudastar/47584-11/Matematikai+fuggveny+szam+-e.html
  itt pont errol beszeltek tegnap.
  ez lett a helyes megoldas:
  
  ''
  Szia.
  
  A System unit Val függvénye lesz a neked megfelelő.
  
  Val(szoveg :String; var szam; var kod :Integer);
  
  Ez a szoveg Stringben megadott szöveget számmá konvertálja a szam változóba. A visszatérési érték a kod. A kod=0 ha minden hibátlan, ellenkező esetben pedig az a hely, ahol szoveg adott karaktere már számmá nem alakítható.
  
  Itt egy példa:
  
  Var s1 :String;
  i, j :Integer;
  r :Real;
  
  Begin
  s1:='12'; Val(s1,i,j); {i=12, j=0 mert hibátlan}
  s1:='1.2E3'; Val(s1,r,j); {r=1.2, j=0}
  s1:='123a76'; Val(s1,i,j); {i=0, j=4 mert az 'a' nem konvertálható számmá}
  End.
  ''
  
  Tyrael
  
  [Szerkesztve]

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