6. LINIJSKA STRUKTURA

6.3.3. Konstantna vrijednost u Pascalu:   CONST, VAR i  WRITE(LN)

Ovo poglavlje sadrži konstante u programu. Za bolje razumjevanje možete se podsjetiti na prethodno pogavlje:
4.7. Definisanje konstante /CONST/

Ovo poglavlje sadrži varijable u programu. Za bolje razumjevanje možete se podsjetiti na prethodno pogavlje:
4.9. Deklarisanje promjenljive /VAR/

6.3.  Slijedeći program prikazuje korištenje aritmetičkih operatora, primjenjenih na konstante.

Tabela 6.11. Aritmetičke operacije

Listing programa

Ekran

Opis

PROGRAM p63_const_var01;     { Operatori }

  

Zaglavlje

CONST

  

Definisanje konstanti:

    a = 2;

  

 a = 2

    b = 3;

  

b = 3

VAR   

 

 

    s, r, p, cio1, ost1, cio2, ost2: Integer;

    

    d: Real;

    

BEGIN

 

 Početak

  WRITELN('Operatori');

Operatori

 Naslov

  WRITELN('a = ',a);

a = 2

a = 2

  WRITELN('b = ',b);

b = 3

b = 3
     

  s := a + b;    { suma }

   Sabiranje

  WRITELN('Suma = ', s);

 Suma = 5  

 

   

  r := a - b;    { razlika }

   Oduzimanje

  WRITELN('Razllika = ', r);

 Razllika = -1  

 

    

  p := a * b;    { proizvod }

   Množenje

  WRITELN('Proizvod = ', p);

 Proizvod = 6

 

 

 

  d := a / b;    { kolicnik }

  

Dijeljenje

  WRITELN('Kolicnik = ', d);

 Kolicnik = 6.666666666666666E-001

 

 

    

  cio1 := a DIV b;    { cio dio a DIV b }

  

Cjelobrojno dijeljenje a / b

  WRITELN('Cio dio a DIV b = ', cio1);

 Cio dio a DIV b = 0

 

 

    

  cio2 := b DIV a;    { cio dio b DIV a }

   Cjelobrojno dijeljenje b / a

  WRITELN('Cio dio b DIV a = ', cio2);

 Cio dio b DIV a = 1  

 

    

  ost1 := a MOD b;    { ostatak dio a MOD b }

  

Ostatak dijeljenja a i b

  WRITELN('Ostatak a MOD b = ', ost1);

 Ostatak a MOD b = 2

 

 

    

  ost2 := b MOD a;    { ostatak dio b MOD a }

   Ostatak dijeljenja b i a

  WRITELN('Ostatak b MOD a = ', ost2);

 Ostatak b MOD a = 1  

 

   

  READLN;

  

Čekanje

END.

  

Kraj

 

PROGRAM p63_const_var01;     { Operatori }
CONST
    a = 2;
    b = 3;
VAR    
    s, r, p, cio1, ost1, cio2, ost2: Integer;
    d: Real;
BEGIN
  WRITELN('Operatori');
  WRITELN('a = ',a);
  WRITELN('b = ',b);
  s := a + b;    { suma }
  WRITELN('Suma = ', s);
  
  r := a - b;    { razlika }
  WRITELN('Razllika = ', r);

  p := a * b;    { proizvod }
  WRITELN('Proizvod = ', p);

  d := a / b;    { kolicnik }
  WRITELN('Kolicnik = ', d);

  cio1 := a DIV b;    { cio dio a DIV b }
  WRITELN('Cio dio a DIV b = ', cio1);

  cio2 := b DIV a;    { cio dio b DIV a }
  WRITELN('Cio dio b DIV a = ', cio2);

  ost1 := a MOD b;    { ostatak dio a MOD b }
  WRITELN('Ostatak a MOD b = ', ost1);

  ost2 := b MOD a;    { ostatak dio b MOD a }
  WRITELN('Ostatak b MOD a = ', ost2);
  
  READLN;
END.

Ispis na ekran:  
Operatori
a = 2
b = 3
Suma = 5
Razllika = -1
Proizvod = 6
Kolicnik =  6.666666666666666E-001
Cio dio a DIV b = 0
Cio dio b DIV a = 1
Ostatak a MOD b = 2
Ostatak b MOD a = 1

Konstantna vrijednost u Pascalu - riješeni primjeri i zadaci     Linijska struktura     Index

Index