[es] - Zadatak [Pascal]

LordVader
Vanja CuIafic
Vienna

Član broj: 1573
Poruke: 54
*.as54.ze-old.bih.net.ba.

Sajt: stud3.tuwien.ac.at/~e0426..

Profil

Zadatak [Pascal]

^{28.03.2002. u 21:37}

Napisati program koji ce ispisati sve dvocifrene dekadske brojeve u binarnom sistemu, a kod kojih je binarni zapis simetrican, tj. cita se isto slijeva nadesno i sdesna nalijevo!

"Strive not to be a success, but rather to be of value."
- Albert Einstein

^{28.03.2002. u 21:37}

ivan_tnt
Ivan Antolic
Iz Zagreba

Član broj: 3121
Poruke: 15
*.net.hinet.hr

Sajt: www.falcon-net.com

Profil

Re: Zadatak [Pascal]

^{28.03.2002. u 22:30}

Imas li onaj najobicniji borlandov paskal. Hitno ga trebam, posalji barem link gdje ga mogu skinuti !

^{28.03.2002. u 22:30}

Riste Pejov
Team Leader/Senior Software Developer @ Ein-Sof ltd S..
Skopje, Macedonia

Član broj: 128
Poruke: 571
*.mt.net.mk

Jabber: richie@bagra.net.mk
ICQ: 154236769
Sajt: riste.softver.org.mk

Profil

Re: Zadatak [Pascal]

^{28.03.2002. u 23:58}

tesko nama ako buduci elektro inzinjeri traze pomoc oko ovakvih trivijalnih problema, ili kad bi bar znali malo vise binarne matematike .... ali nema veze
evo malo pomoci ... jedna od funkcije ima gresku :)
bar se malo pomuci da je nadjes

prvo funkciju za mirror-ovanje binarnog stringa

Code:

funkcion mirror(str_in:string):string;
var
temp:string;
kinteger;
begin
temp:='';
for k=1 to length(str_in) do
temp:=temp+str_in[k];
mirror:=temp;
end;

onda funkcija za pronalazenje binarnog stringa od integera

Code:

function binstr(broj:integer):string;
var
temp:string;
int2bin:integer;
begin
bin2int:=broj;
temp:='';
if bin2int=0 then //ako je nula ne konvertiraj nista
begin
binstr:='0';
exit;
end;
while not(bin2int=1) do //sve dok ne stignes do keca dodaj ostatke delenja sa 2
begin
temp:=temp+inttostr(bin2int mod 2);
bin2int:=bin2int div 2;
end;
binstr:=temp;
end;

ako si vec primetio OVO JE OBRNUTI binarni string, sto znaci samo pozovemo mirror funkciju za dobijeni string i dobicemo pravi binarni string.
telo programa:

Code:

for m:=0 to 99 do
if mirror(binstr(m))=binstr(m) then
writeln(m);

People who think they know everything tend to irritate those of us who do.

^{28.03.2002. u 23:58}

tomdam
Tomic Damjan
Beograd

Član broj: 2495
Poruke: 36
*.yubc.net

ICQ: 135970738
Sajt: localhost

Profil

Re: Zadatak [Pascal]

^{30.03.2002. u 01:46}

Mala ispravka.
U zahtevu se trazilo da se ispisu svi dvocifreni dekadni brojevi....itd. ali u binarnom brojnom sistemu, tako da dole u poslednjoj for petlji umesto
... writeln(m) treba da stoji writeln(binstr);

Toliko.
Pozdrav.

blog

^{30.03.2002. u 01:46}

Riste Pejov
Team Leader/Senior Software Developer @ Ein-Sof ltd S..
Skopje, Macedonia

Član broj: 128
Poruke: 571
212.110.78.*

Jabber: richie@bagra.net.mk
ICQ: 154236769
Sajt: riste.softver.org.mk

Profil

Re: Zadatak [Pascal]

^{30.03.2002. u 11:10}

Kako se konvertuje iz dekadnog u binaran sistem ?
zeljeni broj podelimo sa 2 sve dok ne stignemo do jedan
i ostatke celobrojnog delenja sa 2 predstavljaju jedna cifra binarnog broja

evo da uzmemo broj 6, i prikazati binarno:

6 mod 2 = 0 (ostavimo nulu po strani, kao prvu cifru)
3 mod 2 = 1 ( sad je binarni broj 10 )
ostao je samo 1 i onda je jednostavno dodamo, i za binarnu shesticu dobili smo
110

greska je u drugoj funkciji, kad stigne do 1 ona jednostavno zavrsi, i u binarnog prikaza ce uvek faliti jedan 1 na kraj stringa.
Funkcija treba zavrsiti ovako:

Code:

...
binstr:=binstr+'1';
binstr:=temp;
end;

People who think they know everything tend to irritate those of us who do.

^{30.03.2002. u 11:10}