Felhasználói eszközök

Eszközök a webhelyen


inf-prog-fszi:szoeveges_allomanyok

Különbségek

A kiválasztott változat és az aktuális verzió közötti különbségek a következők.

Összehasonlító nézet linkje

Előző változat mindkét oldalon Előző változat
inf-prog-fszi:szoeveges_allomanyok [2017/06/22 17:35]
beistvan
inf-prog-fszi:szoeveges_allomanyok [2017/06/23 13:55] (aktuális)
beistvan
Sor 221: Sor 221:
 10 10
 </​code>​ </​code>​
 +
 +
 +Órai gyakorlat
 +
 +<code pascal feleles.pas>​
 +program feleles;
 +var t:text;
 +    i,​n,​x:​integer;​
 +    a:array [1..30] of string;
 +begin
 +  assign(t,'​nevsor.txt'​);​
 +  reset(t);
 +  i:=0;
 +  while not eof(t) do
 +  begin
 +    inc(i);
 +    readln(t,​a[i]);​
 +    writeln(a[i]);​
 +  end;
 +  n:=i;
 +  close(t);
 +  randomize;
 +  x:​=1+random(n);​
 +  writeln;
 +  writeln('​Felelo:​ ',​a[x]);​
 +  readln;
 +end.
 +</​code>​
 +
 +
 +<code pascal gyakorlatvedes.pas>​
 +program gyakorlatvedes;​
 +var t:text;
 +    i,​n,​x:​integer;​
 +    cs: string;
 +    a:array [1..30] of string;
 +begin
 +  assign(t,'​nevsor.txt'​);​
 +  reset(t);
 +  i:=0;
 +  while not eof(t) do
 +  begin
 +    inc(i);
 +    readln(t,​a[i]);​
 +    writeln(a[i]);​
 +  end;
 +  n:=i;
 +  //​randomize;​
 +  for i:=1 to n do
 +  begin
 +    x:​=1+random(n);​
 +    cs:= a[i];
 +    a[i]:= a[x];
 +    a[x]:= cs;
 +  end;
 +  writeln('​A labor vedesi sorrend: ');
 +  for i:=1 to n do
 +    writeln(i:​2,'​. ',​a[i]);​
 +  readln;
 +end.
 +</​code>​
 +
 +
 +<code pascal feleles_hianyzok_nelkul.pas>​
 +program feleles_hianyzok_nelkul;​
 +var t:text;
 +    i,​j,​k,​n,​m,​p,​x:​integer;​
 +    cs: string;
 +    a,h,o:array [1..30] of string;
 +begin
 +  writeln('​Teljes nevsor:'​);​
 +  assign(t,'​nevsor.txt'​);​
 +  reset(t);
 +  i:=0;
 +  while not eof(t) do
 +  begin
 +    inc(i);
 +    readln(t,​a[i]);​
 +    writeln(i:​2,'​. ',​a[i]);​
 +  end;
 +  n:=i;
 +  assign(t,'​hianyzok.txt'​);​
 +  reset(t);
 +  i:=0;
 +  while not eof(t) do
 +  begin
 +    inc(i);
 +    readln(t,​h[i]);​
 +    //​writeln(i:​2,'​. ',​h[i]);​
 +  end;
 +  m:=i;
 +  for i:=1 to m-1 do
 +    for j:=i+1 to m do
 +      if a[i]>​a[j] then
 +      begin
 +        cs:=a[i];
 +        a[i]:=a[j];
 +        a[j]:=cs;
 +      end;
 +  writeln;
 +  writeln('​Hianyzok nevsora:'​);​
 +  for i:=1 to m do
 +    writeln(i:​2,'​. ',​h[i]);​
 +  writeln;
 +  writeln('​Oran jelenlevok nevsora:'​);​
 +  k:=0;
 +  for i:=1 to n do
 +  begin  //Keressuk azt az a[i]-t, ami nincs a h tombben.
 +    j:=1;
 +    while (j<​=m)and(a[i]<>​h[j])do
 +      inc(j);
 +    if j>m then
 +    begin
 +      k:=k+1;
 +      o[k]:=a[i];
 +    end;
 +  end;
 +  p:=k;//p-az o[] tomb elemeinek szama
 +  for i:=1 to p do
 +    writeln(i:​2,'​. ',​o[i]);​
 +  randomize;
 +  x:​=1+random(p);​
 +  writeln;
 +  writeln('​Felelo:​ ',​o[x]);​
 +  readln;
 +end.
 +</​code>​
 +
 +
 +<code text nevsor.txt>​
 +Bado Edina
 +Baksa Adrien
 +Barta Erik
 +Bagu Cintia-Erzsebet
 +Buda Krisztian
 +Homoki Janos
 +Hofman Attila
 +Demjen Dominika
 +Ilosvay Aron
 +Kerek Vanessza
 +Kovacs Petra-Mariann
 +Kovacs Julia
 +Mirosnicsenko Beatrix
 +Orosz Evelin
 +Orosz Zsolt
 +Papp Imre
 +Penzes Zsolt
 +Palinszki Alexandra
 +Szirmai Stefania
 +Szolnoki Gyula
 +Toth Ferenc
 +Himinec Kalman-Laszlo
 +Juhasz Tamas
 +</​code>​
 +
 +
 +
 +<code text hianyzok.txt>​
 +Hofman Attila
 +Kovacs Julia
 +Mirosnicsenko Beatrix
 +Orosz Evelin
 +Orosz Zsolt
 +Toth Ferenc
 +Juhasz Tamas
 +Baksa Adrien
 +Demjen Dominika
 +Kerek Vanessza
 +Penzes Zsolt
 +Palinszki Alexandra
 +Szirmai Stefania
 +</​code>​
 +
 +
inf-prog-fszi/szoeveges_allomanyok.txt · Utolsó módosítás: 2017/06/23 13:55 szerkesztette: beistvan