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

• #5796 R0GERIUS tag Gyuri16 #5795

  Új Válasz 2012-02-26 14:34:39 #5796

  Ú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

  

  R0GERIUS

  tag

  válasz Gyuri16 #5795 üzenetére

  Köszönöm a válaszokat!
  Ez volt nekem is az első gondolatom, de nem jött össze...
  Be is illesztem ide ezt az alprogramot, mert lehet, hogy én írtam rosszul be, csak nem veszem észre.

  procedure F1;
  begin
  assign (be,'pitypang.txt');
  reset(be);
  n:=0;
  readln(be,n);
  for i:=2 to n do
  readln(be,t[i].foglalas,t[i].szoba,t[i].erkezes,t[i].tavozas,t[i].lakok,t[i].reggeli,t[i].azonosito);
  close(be);
  writeln('Sikeres!')
  end;

  Konkrétan itt hova kellene beszúrni az első sor "readln"-jét?

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