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

• #1704 btotyi tag Style #1703

  Új Válasz 2007-01-04 21:33:00 #1704

  Ú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

  

  btotyi

  tag

  válasz Style #1703 üzenetére

  Ez ugyan delphi kód de TP-ben is hasonlóan van csak ott még nincs TextFile ;
  
  
  program Project2;
  
  {$APPTYPE CONSOLE}
  
  uses
  SysUtils;
  
  Var Kimenet : TextFile;
  
  begin
  AssignFile(Kimenet, 'kimenet.txt');
  Rewrite(Kimenet);
  WriteLn(Kimenet,'asasasas');
  WriteLn(Kimenet,'bbbbbbbbb');
  Close(Kimenet);
  end.
  

• #1673 alitak senior tag Style #1671

  Új Válasz 2006-12-11 20:30:57 #1673

  Ú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

  

  alitak

  senior tag

  válasz Style #1671 üzenetére

  Hát ha nem ismered sem a tömböt (array), sem a record-ot, akkor úgy nehéz lesz.
  Az a:array[1..100] of integer parancs 100 darab integer típusú változót hoz létre, amikre a[1], a[2], ..., a[100] címen hivatkozhatsz. A recordot szerintem ne erőltessük.
  Próbáld így deklarálni:
  nev:array[1..100] of string;
  pont:array[1..100] of real;
  
  És a nev[5] játékos pontja a pont[5] lesz. Remélem így érthető.

• #1672 Gyuri16 senior tag Style #1671

  Új Válasz 2006-12-11 20:28:45 #1672

  Ú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

  

  Gyuri16

  senior tag

  válasz Style #1671 üzenetére

  player:array[1..100] of record
  nev:string;
  pont:real;
  end;
  
  ez egy tomb lesz, melynek elemeire igy tudsz hivatkozni :
  player[1].nev <---- az elso jatekos neve
  player[1].pont <---- az elso jatekos pontja
  
  beolvasa valahogy igy lesz:
  
  read(szam); - mennyi versenyzo lesz
  for i:=1 to szam do
  begin
  readln(player[ i ].nev);
  readln(player[ i ].pont);
  end;
  
  
  lefuttatva beolvassa a szamot, majd szam szor nevet+pontot. Ezek utan a player ben lesz az i edik jatekosnak a neve es pontja.
  
  [Szerkesztve]

• #1669 alitak senior tag Style #1668

  Új Válasz 2006-12-11 19:56:11 #1669

  Ú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

  

  alitak

  senior tag

  válasz Style #1668 üzenetére

  1) 6.9
  Asszem csak így megy
  
  2) Hát ha versenyzőnként van egy név+pont akkor így deklarálnám:
  player:array[1..100] of record
  _____________________nev:string;
  _____________________pont:integer;
  ____________________end;
  
  Aztán jön egy for ciklus, amiben beolvassa a player.nev változóba a nevet, majd a pontokat a player.pont változóba.

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