Ocena użytkownikóww: ***** / 5
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.
