Twoje PC  
Zarejestruj się na Twoje PC
TwojePC.pl | PC | Komputery, nowe technologie, recenzje, testy
B O A R D
   » Board
 » Zadaj pytanie
 » Archiwum
 » Szukaj
 » Stylizacja

 
M E N U
  0
 » Nowości
0
 » Archiwum
0
 » Recenzje / Testy
0
 » Board
0
 » Rejestracja
0
0
 
Szukaj @ TwojePC
 

w Newsach i na Boardzie
 
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
TwojePC.pl © 2001 - 2025
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."

  1. 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) :-)

    
All rights reserved ® Copyright and Design 2001-2025, TwojePC.PL