1 / 5

CASE naredba

CASE naredba. II gimnazije. Sintaksa case naredbe. Izraz iza rezervisane r ij eči CASE ( s ) naziva se selektor . Vr ij ednost selektora može biti Cjelobrojnog Znakovnog Booleovog tipa. Ne sm ij e biti realnog tipa. CASE s OF 1 : N 1 ; 2 : N2 ; … n : Nn ; End ;.

ted
Télécharger la présentation

CASE naredba

An Image/Link below is provided (as is) to download presentation Download Policy: Content on the Website is provided to you AS IS for your information and personal use and may not be sold / licensed / shared on other websites without getting consent from its author. Content is provided to you AS IS for your information and personal use only. Download presentation by click this link. While downloading, if for some reason you are not able to download a presentation, the publisher may have deleted the file from their server. During download, if you can't get a presentation, the file might be deleted by the publisher.

E N D

Presentation Transcript

  1. CASE naredba II gimnazije

  2. Sintaksa case naredbe • Izraz iza rezervisane riječi CASE(s) naziva se selektor. Vrijednostselektora može biti • Cjelobrojnog • Znakovnog • Booleovog tipa. • Ne smije biti realnog tipa CASE s OF 1:N1; 2:N2; … n:Nn; End; Case naredba izvršava se na sledeći način: 1) Prvo se izračunava vrijednost selektora s a zatim 2) izvršava se naredba čije je obilježje jednako vrijednosti selektora s Vrijednost s određuje koja će se naredba izvršiti. Ako je s= 1 izvršiće se N1, ako je s = 2 onda N2 itd. U ovom primjeru mora vrijednost s biti u nizu od 1 do n. Ako je s izvan toga niza javlja se greška Milenko Soldat

  3. Primjeri case naredbe {Napisati program kojim se za unijetu ocjenu ispisuje: 1 - nedovoljan, 2 - dovoljan, 3- dobar, 4 - vrlodobar, 5 - odlican.} program ocjene; var ocjena : integer; BEGIN Writeln('Unesi ocjenu : ');Readln(ocjena); if (ocjena>5) or (ocjena<1) then writeln('Pogresan unos') else begin case ocjena of 1: WriteLn('Nedovoljan'); 2: WriteLn('Dovoljan'); 3: WriteLn('Dobar'); 4: WriteLn('Vrlodobar'); 5: WriteLn('Odlican'); end; end; readln;readln; END. Milenko Soldat

  4. Primjeri case naredbe program daniunedjelji; var dan:integer; BEGIN writeln(‘unesi redni broj dana’);read(dan); if (dan<1) or (dan>7) then writeln(‘Pogresno unijet broj dana’) else begin writeln(‘dan u sedmici je:’); case dan of 1:writeln(‘ponedeljak’); 2:writeln(‘utorak’); 3:writeln(‘srijeda’); 4:writeln(‘cetvrtak’); 5:writeln(‘petak’); 6:writeln(‘subota’); 7:writeln(‘nedjelja’); end; end; END. Milenko Soldat

  5. Primjeri case naredbe //Kolika je vrijednostza a ako je: //a) k=123 ; b) k=218; c) k=346 program izraz; var k:integer; a:real; BEGIN a:=2.6 //a) Const k=123; casek mod 10of 1,3,5,7: a:=a-2; a:=trunc(a)+1; a:=sqr(a)+3; 2,4,6: a:=a+5; 0,8: a:=round(a)+3; end; writeln(‘a=’, a:7:2); Readln; END. Milenko Soldat

More Related