Forumet - Programmering A

Programmering A

100 0 12
Hej kan någn hjälpa mig skriva en kod till denna uppgiften, programmerar i Turbo Delphi.

Gör ett Program som omvandlar ett positivt heltal till dess binära form. DEt räcker med att programet klarar av att omvandla ett 4 siffrigt tal. Exempel på utskrifter:
Talet 1234 i binär form är 111 1011

Tacksam för hjälp [bigsmile]
jen91:

rogrammerar i Turbo Delphi.


Det är inget språk... men jag antar att du menar Pascal?

Men lite pseudokod:


while tal>0 do
if tal mod 2 = 1
skriv 1
else
skriv 0

tal := tal / 2 (avrunda)


Observera att detta skriver ut den binära strängen i FEL ordning, (baklänges), så du måste spara utskrifterna, vända strängen, och sedan skriva ut. (Om du vill använda denna algoritm.)
Gifted:

Men lite pseudokod:

while tal>0 do if tal mod 2 = 1 skriv 1 else skriv 0 tal := tal / 2 (avrunda)


ok tack för hjälpen[smile], aa jag menar pascal, behöver hjälp med en uppgift till[crazy]:

Gör ett program som slumpar fram en lottorad . det vill säga det ska skriva ut sju olika tal från 1 till 35 . Man ska använda arrayer.
jen91:

det vill säga det ska skriva ut sju olika tal från 1 till 35 . Man ska använda arrayer.


Ah. Problemet här är att talen skall vara OLIKA. Dessutom så måste man se till att de kommer med samma sannolikhet.


talArray := {1..35} (en array med talen mellan 1 och 35)

for i:= 1 to 35 do

swapIndex := Slumptal(i,35) //Slumpa tal mellan i och 35 (inklusivt)
temp := talArray
talArray := talArray[swapIndex]
talArray[swapIndex] := temp

for i:=1 to 7 do
skrivUt talArray



Denna algoritm är i princip http://en.wikipedia.org/wiki/Knuth_shuffle

och garanterar att inga tal är mer poppis än andra.

Spana också in: