algorytm.org

Implementacja w Delphi/Pascal

Baza Wiedzy
wersja offline serwisu przeznaczona na urządzenia z systemem Android
Darowizny
darowiznaWspomóż rozwój serwisu
Nagłówki RSS
Artykuły
Implementacje
Komentarze
Forum
Bookmarki






Sonda
Implementacji w jakim języku programowania poszukujesz?

Wartość bezwzględna - Implementacja w Delphi/Pascal
Ocena użytkownikóww: *****  / 5
SłabyŚwietny
Nadesłany przez Tomasz Lubiński, 13 września 2009 01:00
Kod przedstawiony poniżej przedstawia główną część rozwiązania problemu.
Pobierz pełne rozwiązanie.

Jeżeli nie odpowiada Ci sposób formatowania kodu przez autora skorzystaj z pretty printer'a i dostosuj go automatycznie do siebie.

Wartosc bezwzgledna - Delphi/wart_bezwzgledna.dpr:
//Obliczanie wartosci bezwzglednej
//(c) 2009 by Tomasz Lubinski
//www.algorytm.org

program wart_bezwzgledna;
{$APPTYPE CONSOLE}
uses
  SysUtils;

var
  x, wynik: Integer;

begin
  //pobierz wartosc od uzytkownika
  Writeln('Podaj wartosc x');
  Readln(x);

  //oblicz wartosc bezwzgledna
  if (x >= 0) then
     wynik := x
  else
     wynik := -x;

  //podaj wynik
  Writeln('|', x, '| = ', wynik);

  //czekaj na enter od uzytkownika
  Readln;

end.
Dodaj komentarz