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 Következő változat | Előző változat | ||
inf-prog-fszi:kivalasztas_tetele [2017/06/21 07:41] 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, | ||
+ | |||
+ | <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 | ||
+ | </ | ||
+ | |||
+ | 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]: | ||
+ | write(a[i], ' '); | ||
+ | end; | ||
+ | writeln; | ||
+ | //mi az 5-ös sorszáma? | ||
+ | i:=1; | ||
+ | while (i<=n) and (a[i]<> | ||
+ | i:=i+1; | ||
+ | sorsz:= i; | ||
+ | write(' | ||
+ | readln; | ||
+ | end. | ||
+ | </ | ||
+ | |||
+ | [[https:// | ||
+ | |||
+ | 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]: | ||
+ | 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(' | ||
+ | readln; | ||
+ | end. | ||
+ | </ | ||
+ | |||
+ | [[https:// | ||
+ | |||
+ | Ó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(' | ||
+ | for i:=1 to n do | ||
+ | begin | ||
+ | write(' | ||
+ | end; | ||
+ | i:=1; | ||
+ | while a[i]<> | ||
+ | inc(i); //i:=i+1; | ||
+ | sorszam:=i; | ||
+ | write(' | ||
+ | readln; | ||
+ | end. | ||
+ | |||
+ | </ | ||
+ | |||
+ | <code pascal kivalasztas_utolso.pas> | ||
+ | program kivalasztas_utolso; | ||
+ | const n=8; | ||
+ | var i, sorszam : integer; | ||
+ | a: array [1..n] of integer; | ||
+ | begin | ||
+ | writeln(' | ||
+ | for i:=1 to n do | ||
+ | begin | ||
+ | write(' | ||
+ | end; | ||
+ | for i:=1 to n do //a T tulajdonsag: | ||
+ | if a[i]=5 then sorszam:=i; | ||
+ | write(' | ||
+ | readln; | ||
+ | end. | ||
+ | |||
+ | </ |