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:eldoentes_tetele [2017/06/25 14:32] beistvan |
inf-prog-fszi:eldoentes_tetele [2017/06/25 14:33] (aktuális) beistvan |
||
---|---|---|---|
Sor 1: | Sor 1: | ||
+ | ====== Eldöntés tétele ====== | ||
+ | |||
+ | |||
+ | N elemű sorozat és egy a sorozaton értelmezett T tulajdonság. Van-e a sorozatnak legalább egy T tulajdonságú eleme? | ||
+ | <code bash eldontes1.txt> | ||
+ | Eljárás: | ||
+ | I := 1 | ||
+ | Ciklus amíg I <= N és A(I) nem T tulajdonságú | ||
+ | I := I + 1 | ||
+ | Ciklus vége | ||
+ | VAN := I <= N | ||
+ | Eljárás vége | ||
+ | </ | ||
+ | |||
+ | (" | ||
+ | |||
+ | Hasonló feladat: igaz-e, hogy a sorozat minden eleme T tulajdonságú? | ||
+ | <code bash eldontes2.txt> | ||
+ | Eljárás: | ||
+ | I := 1 | ||
+ | Ciklus amíg I <= N és A(I) T tulajdonságú | ||
+ | I := I + 1 | ||
+ | Ciklus vége | ||
+ | IGAZ := I > N | ||
+ | Eljárás vége | ||
+ | </ | ||
+ | |||
+ | Pascal forráskód | ||
+ | |||
+ | Van-e olyan eleme a tömbnek, ami megfelel a megadott feltételnek? | ||
+ | |||
+ | <code pascal eldontes_vane.pas> | ||
+ | program eldontes_vane; | ||
+ | const n = 10; | ||
+ | var a:array [1..n] of integer; | ||
+ | i: integer; | ||
+ | van: boolean; | ||
+ | begin | ||
+ | randomize; | ||
+ | //a tömb elkészítése | ||
+ | for i:=1 to n do | ||
+ | begin | ||
+ | a[i]: | ||
+ | write(a[i], ' '); | ||
+ | end; | ||
+ | writeln; | ||
+ | //van-e benne 5-ös? | ||
+ | i:=1; | ||
+ | while (i<=n) and (a[i]<> | ||
+ | i:=i+1; | ||
+ | van:= i<=n; | ||
+ | write(' | ||
+ | if van then | ||
+ | writeln(' | ||
+ | else | ||
+ | writeln(' | ||
+ | readln; | ||
+ | end. | ||
+ | </ | ||
+ | |||
+ | [[https:// | ||
+ | |||
+ | |||
+ | Minden eleme megfelel-e a tömbnek a megadott feltételnek? | ||
+ | |||
+ | <code pascal eldontes_minde.pas> | ||
+ | program eldontes_minde; | ||
+ | const n = 10; | ||
+ | var a:array [1..n] of integer; | ||
+ | i: integer; | ||
+ | igaz: boolean; | ||
+ | begin | ||
+ | randomize; | ||
+ | //a tömb elkészítése | ||
+ | for i:=1 to n do | ||
+ | begin | ||
+ | a[i]: | ||
+ | write(a[i], ' '); | ||
+ | end; | ||
+ | writeln; | ||
+ | //minden eleme 1-nél nagyobb-e? | ||
+ | i:=1; | ||
+ | while (i<=n) and (a[i]>1) do | ||
+ | i:=i+1; | ||
+ | igaz:= i>n; | ||
+ | write(' | ||
+ | if igaz then | ||
+ | writeln(' | ||
+ | else | ||
+ | writeln(' | ||
+ | readln; | ||
+ | end. | ||
+ | |||
+ | </ | ||
+ | |||
+ | |||
+ | [[https:// | ||
+ | |||
+ | Órai gyakorlat | ||
+ | |||
+ | <code pascal eldontes_van_e.pas> | ||
+ | program eldontes_van_e; | ||
+ | const n=8; | ||
+ | var i : integer; van : boolean; | ||
+ | a: array [1..n] of integer; | ||
+ | begin | ||
+ | writeln(' | ||
+ | for i:=1 to n do | ||
+ | begin | ||
+ | write(' | ||
+ | end; | ||
+ | i:=1; | ||
+ | while (i<=n) and (a[i]<> | ||
+ | inc(i); //i:=i+1; | ||
+ | van: | ||
+ | if van then write(' | ||
+ | readln; | ||
+ | end. | ||
+ | </ | ||
+ | |||
+ | <code pascal eldontes_mind_e.pas> | ||
+ | program eldontes_mind_e; | ||
+ | const n=8; | ||
+ | var i : integer; van : boolean; | ||
+ | a: array [1..n] of integer; | ||
+ | begin | ||
+ | writeln(' | ||
+ | for i:=1 to n do | ||
+ | begin | ||
+ | write(' | ||
+ | end; | ||
+ | i:=1; | ||
+ | while (i<=n) and (a[i]>5) do //a T tulajdonsag: | ||
+ | inc(i); //i:=i+1; | ||
+ | van: | ||
+ | if van then write(' | ||
+ | readln; | ||
+ | end. | ||
+ | |||
+ | </ | ||
+ | |||