Obliczanie wartość bezwzględnej danej liczby jest najprostszym przykładem użycia algorytmu z decyzją. Dla danej liczby x wartość bezwzględna |x| wynosi:
- x jeżeli x ≥ 0,
- -x w przeciwnym wypadku.
program wart_bezwzgledna;
06.{$APPTYPE CONSOLE}07.uses08. SysUtils;09. 10.var11. x, wynik: Integer;12. 13.begin14. //pobierz wartosc od uzytkownika15. Writeln('Podaj wartosc x');16. Readln(x);17. 18. //oblicz wartosc bezwzgledna19. if (x >= 0) then20. wynik := x21. else22. wynik := -x;23. 24. //podaj wynik25. Writeln('|', x, '| = ', wynik);26. 27. //czekaj na enter od uzytkownika28. Readln;29. 30.end.
