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

• #2201 nickwearby tag N!tRo #2200

  Új Válasz 2008-04-22 16:09:32 #2201

  Ú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

  

  nickwearby

  tag

  válasz N!tRo #2200 üzenetére

  Ok, akkor nem csak linkben.

  Ez az:
  ------------------------------------------------
  program record_tipusok;

  type szemely = record
  nev: string;
  szul_ev:integer;
  end;

  var a:array [1..5] of szemely;
  i,jelen:integer;

  function beolvas:szemely;
  var x:szemely;
  begin
  write('Nev: ');
  readln(x.nev);
  write('Szuletesi ev: ');
  readln(x.szul_ev);
  beolvas:=x;
  end;

  begin
  for i:=1 to 5 do
  begin
  writeln('Kerem az ',i,'. szemely adatait...');
  a[i]:=beolvas;
  end;
  write('Milyen evet irunk most? (pl.2004) :');
  readln(jelen);
  for i:=1 to 5 do
  writeln(a[i].nev,' ',jelen-a[i].szul_ev,' eves.');
  end.

  -----------------------------------

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