Uvod u programiranje matematika VI predavanje Vesna Velikovi

  • Slides: 29
Download presentation
Uvod u programiranje - matematika – VI predavanje Vesna Veličković vesna@pmf. ni. ac. rs

Uvod u programiranje - matematika – VI predavanje Vesna Veličković vesna@pmf. ni. ac. rs

Prost broj • Prirodan broj je prost ako je deljiv samo sa jedinicom i

Prost broj • Prirodan broj je prost ako je deljiv samo sa jedinicom i samim sobom i veći je od 1. • Za dati prirodan broj ispitati da li je prost. Prost : = true; for k : = 2 to n-1 do if n mod k = 0 then Prost : = false

Ispitivanje do n/2 • Nema potrebe ispitivati brojeve veće od n/2. • Najmanji mogući

Ispitivanje do n/2 • Nema potrebe ispitivati brojeve veće od n/2. • Najmanji mogući delioc je 2, a najveći n/2. Prost : = true; for k : = 2 to n div 2 do if n mod k = 0 then Prost : = false

Ispitivanje do sqrt(n) • Neka je n = a*b. • Bar jedan od brojeva

Ispitivanje do sqrt(n) • Neka je n = a*b. • Bar jedan od brojeva a i b je manji od sqrt(n). • Kad bi bilo a, b > sqrt(n), onda a*b>n. koren : = trunc(sqrt(n)); Prost : = true; for k : = 2 to koren do if n mod k = 0 then Prost : = false

Ispitivanje dok se ne nadje prvi delioc • Kada se nadje prvi delioc nema

Ispitivanje dok se ne nadje prvi delioc • Kada se nadje prvi delioc nema potrebe da se ispituje dalje (for -> while). koren : = trunc(sqrt(n)); Prost : = true; k : = 2; while Prost and (k <= koren) do begin if n mod k = 0 then Prost : = false; k : = k + 1 end { posle petlje važi negacija uslova: not Prost or (k > koren)}

 • Izvršenje: Ispituje se uslov (k <= koren) i ako je on tačan,

• Izvršenje: Ispituje se uslov (k <= koren) i ako je on tačan, ispituje se uslov (n mod k = 0). Ako taj uslov nije tačan, izlazi se iz petllje. koren : = trunc(sqrt(n)); k : = 2; while (k <= koren) and (n mod k <> 0) do k : = k + 1; { posle petlje: prost (k>koren) ili nije prost (n mod k <> 0) } {štampanje izveštaja} if k > koren then writeln (‘Broj je prost’) else writeln (‘Broj nije prost’)

Ispitivanje samo neparnih • Polazimo od varijante koren : = trunc(sqrt(n)); k : =

Ispitivanje samo neparnih • Polazimo od varijante koren : = trunc(sqrt(n)); k : = 2; while (k <= koren) and (n mod k <> 0) do k : = k + 1; <štampanje izvestaja>

Ispitivanje samo neparnih if n = 2 then writeln (‘Broj je prost’) else if

Ispitivanje samo neparnih if n = 2 then writeln (‘Broj je prost’) else if n mod 2 = 0 then writeln (‘Broj nije prost’) else {broj je neparan} begin koren : = trunc(sqrt(n)); k : = 3; while (k <= koren) and (n mod k <> 0) do k : = k + 2; <štampanje izvestaja> end

Domaći zadatak 9 • Ispitati da li je dati prirodan broj prost.

Domaći zadatak 9 • Ispitati da li je dati prirodan broj prost.

Prosti činioci broja n • Odrediti sve proste činioce prirodnog broja n i i

Prosti činioci broja n • Odrediti sve proste činioce prirodnog broja n i i odštampati ih onoliko puta koliko puta se javljaju u razvoju broja n. 12 6 3 1 2 2 3

Prosti činioci broja n k : = 2; while n <> 1 do if

Prosti činioci broja n k : = 2; while n <> 1 do if n mod k = 0 then begin writeln (k); n : = n div k end else k : = k + 1

Tok izvršenja programa Upravljačke strukture • Sekvenca • Grananje • Petlje Moguće je proizvoljno

Tok izvršenja programa Upravljačke strukture • Sekvenca • Grananje • Petlje Moguće je proizvoljno kombinovanje.

Petlje Naredbe u petlji se izvršavaju nula ili više puta. U Pascal-u postoje tri

Petlje Naredbe u petlji se izvršavaju nula ili više puta. U Pascal-u postoje tri naredbe koje realizuju petlje (cikluse): • For • While • Repeat

Izbor naredbe za petlju • Ako znamo tačan broj prolazaka kroz petlju, biramo FOR.

Izbor naredbe za petlju • Ako znamo tačan broj prolazaka kroz petlju, biramo FOR. • Ako ne znamo tačan broj prolazaka kroz petlju, pitamo se da li se kroz petlju mora proći bar jedanput. • Ako se kroz petlju mora proći bar jedanput, biramo REPEAT. • Ako se kroz petlju ne mora proći ni jedanput, biramo WHILE.

REPEAT petlja repeat <naredba> { ; <naredba> } until <uslov> Uslov je logički izraz.

REPEAT petlja repeat <naredba> { ; <naredba> } until <uslov> Uslov je logički izraz. Primenjuje se kada ne znamo broj prolazaka kroz petlju, ali znamo da se kroz petlju mora proći bar jedanput. Izlazak iz petlje mora biti definisan nekim uslovom. Ako imamo više naredbi u petlji, nije potrebna složena naredba jer imamo okvir repeat. . . until.

Izvršenje REPEAT naredbe Naredbe u petlji se izvršavaju sve dok se ne ispuni uslov.

Izvršenje REPEAT naredbe Naredbe u petlji se izvršavaju sve dok se ne ispuni uslov. • Prvo se izvrše naredbe u petlji. • Zatim se izračuna vrednost uslova. • Ako je ta vrednost FALSE, ponovo se izvršavaju naredbe u petlji. Zatim se ponovo ispituje uslov. • Ako je je ta vrednost TRUE, izlazi se iz petlje. Napomena: I sa repeat naredbom možemo napraviti beskonačnu petlju!

Beskonačna petlja k : = 1; repeat writeln (k); until k > 10 Izvršenje:

Beskonačna petlja k : = 1; repeat writeln (k); until k > 10 Izvršenje: K se postavi na 1. Odštampa se ta vrednost. Ispita se uslov k > 10. Kako je k=1<10, uslov nije zadovoljen i ponovo se izvršava se naredba u petlji (odštamta se k=1). Ponovo se ispituje uslov. I dalje je k=1<10, pa se ponovo štampa k=1. Ponovo se ispituje uslov. . . Na ovaj način smo napravili beskonačnu petlju.

Ispravan primer Naredba u petlji mora da menja uslov! k : = 1; repeat

Ispravan primer Naredba u petlji mora da menja uslov! k : = 1; repeat writeln (k); k : = k+1; until k > 10

Naredba u petlji se mora izvršiti bar jednom Pre ispitivanja uslova u repeat naredbi

Naredba u petlji se mora izvršiti bar jednom Pre ispitivanja uslova u repeat naredbi izvršavaju se naredbe u petlji. Ako je uslov odmah zadovoljen, izlazi se iz petlje, ali smo kroz naredbe u petlji već jednom prošli. k : = 1; repeat writeln (k); k : = k+1; until k > 0

FOR i REPEAT for i: =1 to 10 do writeln (i) i : =

FOR i REPEAT for i: =1 to 10 do writeln (i) i : = 1; repeat writeln (i); i : = i + 1; end i>10 Ako se kroz for petlju prolazi bar jedanput, ona se može realizovati i preko repeat. Inače ne može.

WHILE i REPEAT i : = 1; while i <= 10 do begin writeln

WHILE i REPEAT i : = 1; while i <= 10 do begin writeln (i); i : = i + 1; end {negacija uslova: i>10} i : = 1; repeat writeln (i); i : = i + 1; end i > 10 {uslov: i>10} Ako se kroz while petlju prolazi bar jedanput, ona se može realizovati i preko repeat. Primetite da je uslov u repeat naredbi negacija uslova u while naredbi.

FOR i WHILE Nekada su while i repeat zgodnija, čak i ako znamo tačan

FOR i WHILE Nekada su while i repeat zgodnija, čak i ako znamo tačan broj prolazaka kroz petlju. • Odštampati sve parne brojeve do n. for i: =1 to n div 2 do writeln (2*i) i : = 2; while i<=n do begin writeln (i); i : = i + 2; end i : = 2; repeat writeln (i); i : = i + 2; until i > n

Učitavanje elemenata koji zadovoljavaju neki uslov Tipičana situacija u kojoj se primenjuje repeat naredba

Učitavanje elemenata koji zadovoljavaju neki uslov Tipičana situacija u kojoj se primenjuje repeat naredba je pri učitavanju elemenata koji treba da zadovolje neki uslov. • Učitati mesec repeat write (‘m=‘); read (m) until (1<=m) and (m<=12) • Učitati rečenicu ch : char; repeat read (ch); until ch = ‘. ‘

Učitavanje brojeva dok se ne učita odredjeni broj • Izračunati aritmetičku sredinu brojeva učitanih

Učitavanje brojeva dok se ne učita odredjeni broj • Izračunati aritmetičku sredinu brojeva učitanih sa tastature. • Poslednji učitani broj je 0. S : = 0; n : = 0; repeat read (x); S : = S + x; n : = n + 1 until x = 0; Aritmetička. Sredina : = S / n

Rečenica se završava tačkom • Koliko cifara se nalazi u datoj rečenici? • ch

Rečenica se završava tačkom • Koliko cifara se nalazi u datoj rečenici? • ch : char; Broj. Cifara : = 0; repeat read (ch); if (‘ 0’ <= ch) and (ch <= ‘ 9’) then Broj. Cifara : = Broj. Cifara + 1; until ch = ‘. ’

Izdvajanje cifara broja • Odštampati sve cifre broja n. • Broj ima bar jednu

Izdvajanje cifara broja • Odštampati sve cifre broja n. • Broj ima bar jednu cifru. repeat cifra : = n mod 10; n : = n div 10; writeln (cifra) until n = 0

Izdvajanje cifara broja • Da li su prva i poslednja cifra broja n jednake.

Izdvajanje cifara broja • Da li su prva i poslednja cifra broja n jednake. Prva. Cifra : = n mod 10; repeat Cifra : = n mod 10; n : = n div 10; until n = 0; {poslednja odredjena cifra je posljednja cifra broja n} if Cifra = Prva. Cifra then writeln (‘Jednake su’) else writeln (‘Nisu jednake’)

Svi k-tocifreni brojevi čije cifre zadovoljavaju uslov • Odrediti sve četvorocifrene brojeve čije cifre

Svi k-tocifreni brojevi čije cifre zadovoljavaju uslov • Odrediti sve četvorocifrene brojeve čije cifre zadovoljavaju dati uslov. for i : = 1 to 9 do for j : = 0 to 9 do for k : = 0 to 9 do for l : = 0 to 9 do if <uslov za i, j, k, l> then writeln (i: 1, j: 1, k: 1, l: 1)

Domaći zadatak 10 • Prirodan broj n je p-broj ako je zbir njegovih cifara

Domaći zadatak 10 • Prirodan broj n je p-broj ako je zbir njegovih cifara deljiv sa p. • Na primer 123 je 3 -broj jer je 1+2+3=6, a 6 je deljiv sa 3. a) Učitati prirodne brojeve n i p i ispitati da li je n p-broj. b) Odštampati sve petocifrene p-brojeve.