A kiválasztott változat és az aktuális verzió közötti különbségek a következők.
Előző változat mindkét oldalon Előző változat | |||
inf-prog-fszi:kivalogatas_tetele [2017/06/21 09:31] beistvan |
inf-prog-fszi:kivalogatas_tetele [2017/06/25 14:31] (aktuális) beistvan |
||
---|---|---|---|
Sor 1: | Sor 1: | ||
+ | ====== Kiválogatás tétele ====== | ||
+ | |||
+ | Egy N elemű sorozat összes T tulajdonságú elemét kell meghatározni. A kiválogatott elemek sorszámait egy B() vektorban gyűjtjük. | ||
+ | |||
+ | <code bash kivalogat.txt> | ||
+ | Eljárás: | ||
+ | J := 0 | ||
+ | Ciklus I = 1-től N-ig | ||
+ | Ha A(I) T tulajdonságú, | ||
+ | J := J + 1 | ||
+ | B(J) := I | ||
+ | Ha vége | ||
+ | Ciklus vége | ||
+ | Eljárás vége. | ||
+ | </ | ||
+ | |||
+ | Pascal forráskód | ||
+ | |||
+ | <code pascal kivalogatas.pas> | ||
+ | program kivalogatas; | ||
+ | const n = 10; | ||
+ | var a, b: array [1..n] of integer; | ||
+ | i, j: integer; | ||
+ | begin | ||
+ | randomize; | ||
+ | //a tömb elkészítése | ||
+ | for i:=1 to n do | ||
+ | begin | ||
+ | a[i]: | ||
+ | write(a[i], ' '); | ||
+ | end; | ||
+ | writeln; | ||
+ | // | ||
+ | j:=0; | ||
+ | for i:=1 to n do | ||
+ | if a[i]=5 then begin | ||
+ | j:=j+1; | ||
+ | b[j]:=i; | ||
+ | end; | ||
+ | writeln(' | ||
+ | for i:=1 to j do | ||
+ | write(b[i], ' '); | ||
+ | readln; | ||
+ | end. | ||
+ | |||
+ | |||
+ | </ | ||
+ | |||
+ | [[https:// | ||
+ | |||
+ | Órai gyakorlat | ||
+ | |||
+ | <code pascal kivalogatas.pas> | ||
+ | program kivalogatas; | ||
+ | const n=8; | ||
+ | var i,j : integer; | ||
+ | a,b: array [1..n] of integer; | ||
+ | begin | ||
+ | writeln(' | ||
+ | for i:=1 to n do | ||
+ | begin | ||
+ | write(' | ||
+ | end; | ||
+ | j:=0; | ||
+ | for i:=1 to n do //a T tulajdonsag: | ||
+ | if a[i]=5 then | ||
+ | begin | ||
+ | inc(j); | ||
+ | b[j]:=i; | ||
+ | end; | ||
+ | write(' | ||
+ | for i:=1 to j do | ||
+ | write(b[i]: | ||
+ | readln; | ||
+ | end. | ||
+ | |||
+ | </ |