Zamiana dec na bin i odwrotnie w pascalu.

	B O A R D
	» Board » Zadaj pytanie » Archiwum » Szukaj » Stylizacja

M E N U

» Nowości

» Archiwum

» Recenzje / Testy

» Board

» Rejestracja

Szukaj @ TwojePC

	OBECNI NA TPC
	» Mademan 02:21 » Pio321 02:15 » Visar 01:56 » Martens 01:26 » DYD 00:33 » ngP 00:24 » myszon 00:18 » rainy 23:53 » ManiusNG 23:47 » NWN 23:41 » Rybeck 23:38 » metacom 23:28 » Kenjiro 23:25 » Wedrowiec 23:11 » DJopek 23:01 » @GUTEK@ 22:57 » Fl@sh 22:56 » Tomasz 22:56 » Soulburne 22:49 » marekzi 22:45 Dzisiaj przeczytano 3384 postów, wczoraj 35014 Szybkie ładowanie jest: włączone.

ccc

A R C H I W A L N A W I A D O M O Ś Ć

Zamiana dec na bin i odwrotnie w pascalu. , laciak88 12/06/06 17:17
Jako, ze masta w pascalu nie jestem, to zwracam sie do was z prosba. Musze napisac na srode program na zaliczenie z infy o funkcjonalnosci jak w temacie i potrzebuje waszej pomocy. Jak w pascalu napisac najszybszy algorytm zamiany liczb dzietnych na binarne i odwrotnie? Prosze pomozcie mi, nakierujcie, podpowiedzcie. Z gory dziex!

"To Alcohol! The cause of, and solution to, all of
life's problems."

http://groups.google.pl/group/borland.public.delphi.objectpascal/browse_thread/thread/ea28 , tebe 12/06/06 18:32
<untested>

function bin2int (s : string) : integer;
var i : integer;
begin
result := 0;
for i := 1 to length(s) do begin
result := 2*result;
if s[i] = '1' then inc(result);
end;
end;

function int2bin (n : integer) : string;
var i : integer;
begin
if n = 0 then result := '0'
result := '';
while n > 0 do begin
if odd(n) then result := result + '1'
result := result + '0';
n := n div 2;
end;
end;
1. widzialem to , laciak88 12/06/06 18:35
  ale nie mam za cholere pojecia jak to wczepic do programu zeby dzialalo. Tzn jak dopisac reszte programu zeby to wszystko ruszylo. Nie uwazalo sie na infie i sie teraz ma :/. Wiesz jak to opisac?
  "To Alcohol! The cause of, and solution to, all of
  life's problems."
  1. Wczepić jako funkcje... , Umek 12/06/06 23:21
    j.w. (lol) :-)