Jak w PASCAL napisać program rozpoznający liczby parzyste i nieparzyste?

Question

Proszę o małą podpowiedź odnośnie programu który rozpoznaje jakie liczby wpisuje parzyste czy nie parzyste. Mniej więcej jak sie do tego zabrać. ??? jakie instrukcje użyć??.

MirekCz · Accepted Answer

Wystarczy sprawdzić najniższy bit liczby
Jeżeli jest 1 , to liczba nieparzysta, inaczej liczba parzysta.

W Pascalu dawno nie pisałem, ale to będzie coś w stylu

IF ((liczba and 1) = 1) then nieparzysta
else parzysta

MirekCz · Accepted Answer

c: real
real to typ liczb rzeczywistych, masz tam liczby typu 1.23 itd. Nawet nie wiem jak się określa, czy taka liczba jest parzysta czy nie (i czy w ogóle coś takiego można określić)

Poza tym typ real różni się sposobem zapisu liczb przez komputer i już ten trick z "and 1" nie będzie działał.

Zmień c:real na c:integer; (liczby całkowite) i powinno śmigać.

Łuk_F · Accepted Answer

Witam

Przecież można sprawdzić tak


if (a mod 2)=0 then
writeln('parzysta')
else
writeln('nieparzysta');

i raczej typ nie będzie miał znaczenia.

Lucart · Accepted Answer

Witam Kod podany przez Łuk_F będzie działał tylko w przypadku liczb całkowitych: byte, word, integer, itd. Operatory mod muszą być typu całkowitego. Jeśli chcesz sprawdzić liczbę rzeczywistą to tak: Kod: text Rozwiń Zaznacz wszystko Kopiuj do schowka  if (frac(c))  0 then      Write ('Liczba NIECALKOWITA')   else     if (trunc(c) mod 2)=0 then       writeln('parzysta')     else       writeln('nieparzysta'); wyjaśniam, że funkcja: frac(X) - część rzeczywista liczby X (np. frac (5.67) przyjmuje wartość 0.67) trunc(X) - część całkowita liczby X - typu longint (np. trunc (5.67) przyjmuje wartość 5) operator mod to reszta z dzielenia (dzielone liczby i wynik typu całkowitego longint) (np. 5 mod 2 da wynik 2, 5 mod 1 da wynik 0) Pozrawiam Artur

Kowal1X2 · Answer

Nie wiem czy ja coś robie nie tak napisałem tak

program liczby;
uses crt;
var c:real;

begin
clrscr;
gotoxy(10,10);
writeln('Podaj liczbe');
read(c);
if ((c and 1)=1) then writeln('licza nieparzysta');
else writeln('liczba parzysta');
readkey;
end.

Coś jest nie tak ale jeszcze sam do tego nie mogę dojść.

Kowal1X2 · Answer

Faktycznie MirekCz teraz sam też myśle że to nie miało ładu i składu z tym real. ale wiesz zaczynam sie dopiero w to bawić przez studia które mnie do tego zmusiły. Dzięki bardzo że na elektrodę można liczyć. Pozdrawiam.

Jak w PASCAL napisać program rozpoznający liczby parzyste i nieparzyste?

Post #1

Post #2

Post #3

Post #4

Post #5

Post #6

Post #7

Podsumowanie tematu