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

• #1428 Wizardmon csendes tag

  Új Válasz 2006-07-21 13:26:27 #1428

  Ú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

  

  Wizardmon

  csendes tag

  Naszóval. Én most csináltam egy rekordos és egy rekord nélküli adatolást, ahol mind a 2 program ugyan azt tudja. A külömbség az, hogy a rekord nélküli rövidebb. Most akkor én nem használtam ki eléggé a rekord képességeit vagy csak erre való?
  Itt a két program:
  Rekordos:
  program m;
  uses crt;
  var adat : record
  nev : string;
  cim : string;
  kor : byte;
  x : byte;
  begin
  clrscr;
  x:=0;
  repeat
  x:=x+1;
  write('Név: '); readln(adat.nev);
  write(Cím: '); readln(adat.cim);
  write(Kor: '); readln(adat.kor);
  writeln;
  until x=5;
  end.
  
  Rekord nélkül:
  program m;
  uses crt;
  var nev,cim:string;
  kor,x:byte;
  gegin
  clrscr;
  x:=0;
  repeat
  x:=x+1;
  write('Név: '); readln(nev);
  write(Cím: '); readln(cim);
  write(Kor: '); readln(kor);
  writeln;
  until x=5;
  end.
  
  
  [Szerkesztve]

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