jak zaokrąglic liczbe w pascalu

[C@ro]

jaką procedurą moge zaokrąglić liczbe w pascalu?tylko tak zebym mogla zdecydowac ile miejsc po przecinku ma byc zaokrąglonych,a nie zeby zaokrąglało sie do całkowitych

[Ciuchcia]

Wiem ze mozna sformatowac przy wyswietlaniu, ale to nie jste typowe zaokraglanie. Tylko format WYSWIETLANIA liczby np. x:2:2. Juz dokladnie nie pamietam jak to dziala, ale ktoras liczba oznacza liczbe miejsc po przecinku.


EDIT
Nie wiem czy w pascalu dziala, ale w delphi robi sie to komenda
round();

[wizu]

piszesz np writeln(a:3:3);
zaokrągli ci do 3 miejsc po przecinku chyba tak

[Ciuchcia]

Nie zaokragli tylko sformatuje wyswietlany wynik. A jak zalezy Ci na obliczeniach to nic nie da. Zreszta napisalem o tym wyzej.

[Lukesh]

Tak, jak pisał wizu; np do writeln(a) przed ostatnim readln dopisujemy writeln(a:2:0)

przyklady:

program silnia;
var
w:real;
n:word;
Z:char;
begin
repeat
writeln('PROGRAM SILNIA');
write('wprowadz ilosc liczb:');
readln(n);
w:=1;
for n:=1 to n
do
w:=w*n;
write('Oto wynik:');
writeln(w:100:0);
writeln('Czy chcesz liczyc dalej? T lub N');
read(Z)
until Z='N';
end.



lub


program srednia;
var a,suma,sr:real;
i,n:integer;
begin;
write('podaj ilosc liczb: ');
readln(n);
suma:=0;
for i:=1 to n do
begin
write('podaj liczbe: ');
readln(a);
suma:=suma+a;
end;
sr:=suma/n;
write('srednia arytmetyczna wynosi: ',sr:0:2);
readln;
end.

[Ciuchcia]

LUDZIE czy ktoś mnie tu słucha ? To skoro już naskrobałeś sobie takie sprytny programik dopisz jeszcze na końcu np.

Kod: Zaznacz wszystko

write (sr);

to będziesz wiedział, że sr zostało NIEZAOKRĄGLONE, a Ty mogłeś zdecydować jedynie jak Ci się wyświetli. C@ro napisz dokładnie co Ci jest potrzebne, bo prowadzimy tu niepotrzebną dyskusje.

Natomiast ja stworzyłem coś takiego:

Kod: Zaznacz wszystko

var a:real;
begin
readln(a);
a:=round(a);    //zaokrągla !!
writeln(a:2:2);    //zmienia format wyświetlanej liczby !
readln;
end.


Zaokrągla do liczb całkowitych, natomiast jeśli byś chciał zaokrąglić do jakiejś konkretnej liczby miejsc po przecinku mnożysz przed zaokrągleniem przez wielokrotnosc 10, a po zaokrągleniu dzielisz przez tą samą wielokrotność. Np. jeśli chce zaokrąglić 20,5553 do 2 miejsc po przecinku:

Kod: Zaznacz wszystko

x:=20,5553;
x:=x*100;         //x=2055,53
x:=round(x);      //x=2055
x:=x/100;         //x=20,55
write(x);         //x=20,55

Mam nadzieje, że nie zakręciłem za mocno.