" Life is not a problem to be solved but a reality to be experienced! "
© Copyright 2013 - 2024 KUDO.TIPS - All rights reserved.
schemat blokowy podaję w załączniku.
Dodaj również przykładowy zapis algorytmu w języku ObiectPascal dla Delphi:
program wart_bezwzgledna;
{$APPTYPE CONSOLE}
uses
SysUtils;
var
x, wynik: Integer;
begin
Writeln('Podaj wartosc x');
Readln(x);
if (x >= 0) then
wynik := x
else
wynik := -x;
Writeln('|', x, '| = ', wynik);
Readln;
end.
Pozdrawiam.