60 likes | 152 Views
Eljaras linearis_kereses(adatok[],n) Szamlalo:=0; Megvan:=hamis; Ciklus amíg (szamlalo<n) ha (adatok[szamlalo]>0) akkor megvan:=igaz; szamlalo:=szamlalo+1; Ciklus vege; Ki: megvan; Eljaras vege; 0 0 hamis 2 1 igaz -1 2 igaz. Eljaras maximumkivalasztas(adatok[],n)
E N D
Eljaras linearis_kereses(adatok[],n) Szamlalo:=0; Megvan:=hamis; Ciklus amíg (szamlalo<n) ha (adatok[szamlalo]>0) akkor megvan:=igaz; szamlalo:=szamlalo+1; Ciklus vege; Ki: megvan; Eljaras vege; 0 0 hamis 2 1 igaz -1 2 igaz
Eljaras maximumkivalasztas(adatok[],n) Szamlalo:=0; Maximum:=adatok[0]; Ciklus amíg (szamlalo<n) ha (adatok[szamlalo]>maximum) akkor maximum:=adatok[szamlalo]; hanyadik:=szamlalo; szamlalo:=szamlalo+1; Ciklus vege; Ki: maximum, hanyadik; Eljaras vege; 0 0 0 2 1 2 -1 2 2
Eljaras minimumkivalasztas(adatok[],n) Szamlalo:=0; Minimum:=adatok[0]; Ciklus amíg (szamlalo<n) ha (adatok[szamlalo]<minimum) akkor minimum:=adatok[szamlalo]; hanyadik:=szamlalo; szamlalo:=szamlalo+1; Ciklus vege; Ki: minimum, hanyadik; Eljaras vege; 0 0 0 2 1 0 -1 2 -1 kisfaludybertold@gmail.com
Összegzés Adott egy n elemű e sorozat, vagy tömb. Határozzuk meg az elemek összegét! A végeredményt s tartalmazza. s:=0; ciklus i:=1 - től n - ig s:=s + e[i]; ciklus vége Ki(s);
Példa összegzésre Határozza meg az [1, 100] intervallumba eső páros számok összegét! Osszeg:=0; Ciklus i:=1 - től 100 - ig Ha (i mod 2 = 0) akkor /a mod a maradékképzés operátora, a feltétel /arra a osszeg:=osszeg + i; /matematikai igazságra utal, hogy a páros /számok 2-vel Elágazás vége /maradék nélkül oszthatóak Ciklus vége Ki(osszeg);
Megszámlálás Adott egy intervallumon vagy tömbön értelmezett T tulajdonság. Határozzuk meg, hogy hány T tulajdonságú elem van a sorozatban vagy a tömbben. db:=0; Ciklus i: = 1 - től n - ig Ha (e[i] T tulajdonságú) akkor db:=db + 1; Elágazás vége Ciklus vége Ki (db);