Felhasználói eszközök

Eszközök a webhelyen


inf-prog-fszi:kivalasztas_tetele

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:kivalasztas_tetele [2017/06/21 12:31]
beistvan
inf-prog-fszi:kivalasztas_tetele [2017/06/25 14:35] (aktuális)
beistvan
Sor 1: Sor 1:
 +====== Kiválasztás tétele ======
  
 +
 +Adott egy N elemű sorozat, egy - a sorozat elemein értelmezett - T tulajdonság, és tudjuk, hogy a sorozatban van legalább egy T tulajdonságú elem. A feladat ezen elem sorszámának meghatározása.
 +
 +<code bash kivalasztas.txt>
 +Eljárás:
 +    I:=1
 +    Ciklus amíg A(I) nem T tulajdonságú
 +        I:=I+1
 +    Ciklus vége
 +    SORSZ:=I
 +Eljárás vége
 +</code>
 +
 +Pascal forráskód
 +
 +Az első elem kiválasztása a tömbből.
 +
 +<code pascal kivalasztas.pas>
 +program kivalasztas;
 +const n = 10;
 +var a:array [1..n] of integer;
 +    i, sorsz: integer;
 +begin
 +  randomize;
 +  //a tömb elkészítése
 +  for i:=1 to n do
 +  begin
 +    a[i]:=random(8);
 +    write(a[i], ' ');
 +  end;
 +  writeln;
 +  //mi az 5-ös sorszáma?
 +  i:=1;
 +  while (i<=n) and (a[i]<>5) do
 +    i:=i+1;
 +  sorsz:= i;
 +  write('Az 5-os elem sorszama: ',sorsz);
 +  readln;
 +end.
 +</code>
 +
 +[[https://ideone.com/1Li1mg | A <kivalasztas.pas> forráskódjának futtatása online ]]
 +
 +Az utolsó elem kiválasztása a tömbből.
 +
 +<code pascal kivalasztas_utolso.pas>
 +program kivalasztas_utolso;
 +const n = 10;
 +var a:array [1..n] of integer;
 +    i, sorsz: integer;
 +begin
 +  randomize;
 +  //a tömb elkészítése
 +  for i:=1 to n do
 +  begin
 +    a[i]:=random(8);
 +    write(a[i], ' ');
 +  end;
 +  writeln;
 +  //mi az utolsó 5-ös sorszáma?
 +  for i:=1 to n do
 +    if a[i]=5 then
 +      sorsz:= i;
 +  write('Az utolso 5-os elem sorszama: ', sorsz);
 +  readln;
 +end.
 +</code>
 +
 +[[https://ideone.com/X9dDaw | A <kivalasztas_utolso.pas> forráskódjának futtatása online ]]
 +
 +Órai gyakorlat
 +
 +<code pascal kivalasztas_elso.pas>
 +program kivalasztas_elso;
 +const n=8;
 +var i, sorszam : integer;
 +    a: array [1..n] of integer;
 +begin
 +  writeln('Kerem a tomb elemeit: ');
 +  for i:=1 to n do
 +  begin
 +    write('a[',i,'] = '); readln(a[i]);
 +  end;
 +  i:=1;
 +  while a[i]<>5 do //a T tulajdonsag: a tomb egyik eleme egyenlõ 5-tel
 +    inc(i); //i:=i+1;
 +  sorszam:=i;
 +  write('Az (elso) 5-os sorszama a tombben: ', sorszam);
 +  readln;
 +end.
 +
 +</code>
 +
 +<code pascal kivalasztas_utolso.pas>
 +program kivalasztas_utolso;
 +const n=8;
 +var i, sorszam : integer;
 +    a: array [1..n] of integer;
 +begin
 +  writeln('Kerem a tomb elemeit: ');
 +  for i:=1 to n do
 +  begin
 +    write('a[',i,'] = '); readln(a[i]);
 +  end;
 +  for i:=1 to n do //a T tulajdonsag: a tomb egyik eleme egyenlõ 5-tel
 +    if a[i]=5 then sorszam:=i;
 +  write('Az (utolso) 5-os sorszama a tombben: ', sorszam);
 +  readln;
 +end.
 +
 +</code>
inf-prog-fszi/kivalasztas_tetele.txt · Utolsó módosítás: 2017/06/25 14:35 szerkesztette: beistvan