*&---------------------------------------------------------------------*
*& Report Z_SKOLENIE
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
REPORT z_skolenie.

*&---------------------------------------------------------------------*
*&  DEKLARACIA PREMENNYCH
*&---------------------------------------------------------------------*
*&  Dolezite:
*&  - prikaz DATA sa pouzije k deklaracii premennych pre urcity datovy typ
*&
*&  Cislo1 TYPE i VALUE 30
*&  .. typ I, pre cele cislo s prednastavenou hodnotou 30
*&
*&  VysledokD TYPE p DECIMALS 2
*&  .. typ P, pre desatinne cislo s presnostou na 2 desatinne miesta
*&
*&  - ak by bolo treba ako prednastavenu hodnotu zadat desatinne alebo
*&    zaporne cislo, potom priklad na zapis VALUE je nasledovny..
*&       DATA: CisloX TYPE i VALUE '-123',
*&             CisloZ TYPE p DECIMALS 2 VALUE '1.23'.
*&---------------------------------------------------------------------*

DATA: cislo1    TYPE i VALUE 30,
      cislo2    TYPE i VALUE 12,
      vysledokp TYPE i,
      vysledokm TYPE i,
      vysledokk TYPE i,
      vysledokd TYPE p DECIMALS 2,
      napis     TYPE string VALUE 'Vysledok vypoctu:'.

* /// ---------------------------------------------------------------- /

*&---------------------------------------------------------------------*
*&  MATEMATICKW OPERACIE - SPRACOVANIE
*&---------------------------------------------------------------------*

vysledokp = cislo1 + cislo2.        " pre sucet hodnot
vysledokm = cislo1 - cislo2.        " pre rozdiel hodnot
vysledokk = cislo1 * cislo2.        " pre sucin hodnot
vysledokd = cislo1 / cislo2.        " pre podiel hodnot

* /// ---------------------------------------------------------------- /


*&---------------------------------------------------------------------*
*&  MATEMATICKE OPERACIE - ZOBRAZENIE
*&
*&  Dolezite:
*&  - prikaz WRITE zobrazi na obrazovke text, cisla alebo znaky
*&  - ak je za prikazom WRITE znak /, potom po vypisani napriklad textu
*&    na obrazovke sa vykona prechod na novy riadok
*&  - ak chceme pod sebou vypísat niekolko udajov a pouzit iba jeden prikaz
*&    WRITE, potom zadavame do prveho riadku za prikaz WRITE znak :,
*&    na konci kazdeho riadku zadame ciarku a na konci posledneho riadku
*&    bodku (tak ako je zadane nizsie v tomto zdrojovom kode)
*&---------------------------------------------------------------------*
WRITE   napis.

WRITE :/ 'Hodnota A =',cislo1,
       / 'Hodnota B =',cislo2.

SKIP.   " Jeden prazdny riadok

WRITE : / 'A + B =', vysledokp,
        / 'A - B =', vysledokm,
        / 'A * B =', vysledokk,
        / 'A / B =', vysledokd.

SKIP.

* Ak chceme vysledok vypisat hned za znamienkom = , potom treba pouzit
* zarovnanie doprava, ako je to uvedene v zdrojovom kode nizsie
WRITE : / 'A + B =', |{ vysledokp ALIGN = RIGHT }|,
        / 'A - B =', |{ vysledokm ALIGN = RIGHT }|,
        / 'A * B =', |{ vysledokk ALIGN = RIGHT }|,
        / 'A / B =', |{ vysledokd ALIGN = RIGHT }|.

* /// ---------------------------------------------------------------- /