Elektroda.pl
Elektroda.pl
X
Proszę, dodaj wyjątek dla www.elektroda.pl do Adblock.
Dzięki temu, że oglądasz reklamy, wspierasz portal i użytkowników.

PASCAL binarne na dziesiętne

27 Maj 2007 17:19 3786 4
  • Poziom 10  
    Witam
    Mam wielką prośbę, nie mogę sobie poradzić z programikiem zamieniającym liczby binarne na dziesiętne(tylko całkowite). Proszę o jakieś rady i wskazówki
  • Poziom 23  
    jak wiesz jak sie zamienia liczby binarne na dziesietne to nie powinno byc problemu, wejscie wczytujesz do tablicy 1-wymiarowej, znak po znaku,
    potem w petli lecisz od konca (lub od poczatku jak kto woli), i jak w komorce jest 0 to do zmiennej wynik dodajesz 0 (czyli nic nie robisz), jak 1 to 2^n (gdzie n to odpowiednia potega wynikajaca z indeksu tablicy)
  • Poziom 10  
    dzięki, a mógłbyś go napisać, bo jakoś mi nie do końca wychodzi ;( to nie z lenistwa tylko po prostu jestem w tym nowy i nie wszystko rozumiem
  • Poziom 10  
    faktycznie może i nie jest trudny, ale sam to nie wiem czy bym sobie poradził jeszcze raz dzieki

    Dodano po 1 [godziny] 33 [minuty]:

    jednak sobie nawet teraz nie poradziłem, wywala błąd przy validacji
    'error 98: Longint variable excepted'

    program bin;
    uses crt;
    var
    i,b,c:integer;
    m:longint;
    Result:real;
    BinStr:string;
    begin
    m:=1;
    Result:=0;
    readln(BinStr);
    for i:=1 to length(BinStr) do begin
    Val(BinStr,b,c );
    Result:=Result+m*Val(b);
    m:=m*2;
    writeln(Result);
    end;
    end.

    Pomocy!!! ,ja już nie mam pojęcia co to może być