Ĺadny brzuch
jak sprawdzić czy liczba rzeczywista (real) jest całkowicie podzielna przez 2 (ogólnie przez n)? (mowa o pascalu)
Użytkownik rObO87 edytował ten post 29 maj 2005, 13:09
jak sprawdzić czy liczba rzeczywista (real) jest całkowicie podzielna przez 2 (ogólnie przez n)? (mowa o pascalu)
mod działa na liczbach całkowitych,
a ja mam liczbę rzeczywistą :(
mod działa na liczbach całkowitych,
a ja mam liczbę rzeczywistą :(
Nie wiem... nie jest taki problem, że na realach jest problem z dokładnością... ale zaraz zaraz... co znacy że liczba rzeczywista jest podzielna przez 2, przecież każda liczba rz. jest podzielna przez 2, 7/2 =3.5, 2.11/2 = 1.055
Chyba ze chodzi ci o czesc całkowitą z tej liczby, no to wtedy trunc :D
dzielenie całkowite, tak!!
Niech a będzie tą liczbą rzeczywistą.
Sprawdzasz czy a-trunc(a) jest równe 0.
Jeśli tak to sprawdzasz czy trunc(a) mod n jest równe 0.
var r:real; begin readln(r); if round(r) mod 2=0 then writeln('Liczba jest podzielna przez 2') else (...)
var r, w : Real; // liczba do sprawdzenia, wynik n : Integer; // dzielnik begin readln(r); readln(n); w := r/n; if trunc(w) = w then Writeln('Liczba jest podzielna przez '+n); end;
zanotowane.pl doc.pisz.pl pdf.pisz.pl zsf.htw.pl
Użytkownik rObO87 edytował ten post 29 maj 2005, 13:09
jak sprawdzić czy liczba rzeczywista (real) jest całkowicie podzielna przez 2 (ogólnie przez n)? (mowa o pascalu)
mod działa na liczbach całkowitych,
a ja mam liczbę rzeczywistą :(
mod działa na liczbach całkowitych,
a ja mam liczbę rzeczywistą :(
Nie wiem... nie jest taki problem, że na realach jest problem z dokładnością... ale zaraz zaraz... co znacy że liczba rzeczywista jest podzielna przez 2, przecież każda liczba rz. jest podzielna przez 2, 7/2 =3.5, 2.11/2 = 1.055
Chyba ze chodzi ci o czesc całkowitą z tej liczby, no to wtedy trunc :D
dzielenie całkowite, tak!!
Niech a będzie tą liczbą rzeczywistą.
Sprawdzasz czy a-trunc(a) jest równe 0.
Jeśli tak to sprawdzasz czy trunc(a) mod n jest równe 0.
var r:real; begin readln(r); if round(r) mod 2=0 then writeln('Liczba jest podzielna przez 2') else (...)
var r, w : Real; // liczba do sprawdzenia, wynik n : Integer; // dzielnik begin readln(r); readln(n); w := r/n; if trunc(w) = w then Writeln('Liczba jest podzielna przez '+n); end;