Pascal

09.03.2006

13:39

[1]

grzesiiek [ Centurion ]

Pascal

Prosiłbym was GOLasy o pomoc,a mianowicie potrzebuję programik
polecenie brzmi tak
: napisz pogram znajdownia wartosci bezwglednj n liczby
w Pascalu :)
Pomoże ktoś?

Las Ca [ focus 12 ]

var n,modul:integer;

begin
write('Podaj liczbe: ');
readln(n);
if (n>=0) modul:=n;
if (n<0) modul:=n*(-1);
writeln('Wartosc bezwgleda z n to' ,modul);
readkey;
end.

Pisalem to z glowy, nie sprawdzalem czy dziala, ale powinno z dokladnoscia do malego bledu.