7.2.. Zavisno o upisanoj vrijednosti časa 0-23 ispisati poruku:

Opis rješenja:

Listing programa:

I varijanta   3x if
PROGRAM P07211067;
USES 
  WinCrt;
VAR                            { deklarisanje promjenljivih }
  x:integer;                   { cjelobrojne promjenljive }
BEGIN
  WRITE('Ukucajte broj proteklih casova: ');    { ulazne promjenljive }
  READLN(x);                       { ulaz - ucitavanje promjenljive }
  IF (x>=0) AND (X<=8) THEN        { ako je x vece od 0 i manje od 8  tada }
  WRITELN('Dobro jutro')           { x je vece od 0 i manje od 8  tada Dobro jutro }
  IF (x>=0) AND (X<=8) THEN Writeln('Dobro jutro');    { ako je x vece ili jednako od 0 i manje ili jednako 8 Dobro jutro }
  IF (x>=9) AND (x<=18) THENWriteln('Dobar dan');      { ako je x vece ili jednako od 9 i manje ili jednako od 18 tada Dobar dan }
  IF (x>=19) AND (x<=23) THENWriteln('Dobro vece');    { ako je x vece ili jednako od 19 i manje ili jednako od 23 Dobro vece }		
END.


II varijanta   if then else
PROGRAM P07211067;
USES 
  WinCrt;
VAR                            { deklarisanje promjenljivih }
  x:integer;                   { cjelobrojne promjenljive }
BEGIN
  WRITE('Ukucajte broj proteklih casova: ');    { ulazne promjenljive }
  READLN(x);                       { ulaz - ucitavanje promjenljive }
  IF (x>=0) AND (X<=8) THEN        { ako je x vece ili jednako od 0 i manje ili jednako 8 tada }
  WRITELN('Dobro jutro')           { x je vece od 0 i manje od 8  tada Dobro jutro }
    ELSE
      IF (x>=9) AND (x<=18) THEN   { ako je x vece od 8 i manje ili jednako 18 tada }
        WRITELN('Dobar dan')       { x je vece od 8 i manje ili jednako 18 tada Dobar dan }
      ELSE                         { inace }
        WRITELN('Dobro vece');     { Dobro vece }
END.

Ispis na ekranu:

Index