Advertisement
Guest User

Untitled

a guest
May 9th, 2019
158
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
ABAP 0.81 KB | None | 0 0
  1. ******** Zadanie 1 ********
  2. DATA: BEGIN OF pacjent,
  3.       imie(15) TYPE c,
  4.       nazwisko(30) TYPE c,
  5.       pesel(11) TYPE n,
  6.       data_wizyty TYPE D.
  7.  
  8. ******** Zadanie 2 ********
  9. DATA: slowo1 VALUE 'Czesc',
  10.       slowo2 VALUE 'Maciej',
  11.       slowo3 VALUE 'Lech',
  12.       wynik.
  13.  
  14. CONCATENATE slowo1 slowo2 slowo3 INTO wynik SEPARATED BY ' '.
  15. WRITE:/ wynik.
  16.  
  17. ******** Zadanie 3 ********
  18. DATA: wiek TYPE n VALUE '5'.
  19.  
  20. * Wersja podstawowa z warnkiem IF
  21. WRITE:/ 'Twój wiek: ', wiek.
  22. IF wiek == 1.
  23.     WRITE:/ 'Twoja zniżka: 10%'.
  24. ELSEIF wiek == 2.
  25.     WRITE:/ 'Twoja zniżka: 20%'.
  26. ELSEIF wiek == 3.
  27.     WRITE:/ 'Twoja zniżka: 30%'.
  28. ELSEIF wiek == 4.
  29.     WRITE:/ 'Twoja zniżka: 40%'.
  30. ELSEIF wiek == 5.
  31.     WRITE:/ 'Twoja zniżka: 50%'.
  32. ELSEIF wiek >= 6.
  33.     WRITE:/ 'Twoja zniżka: 60%'.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement