Součet dvou binárních čísel – Pascal – Fórum – Programujte.com

Ahoj, potřebovala bych pomoct s jednou úlohou z programování - se sčítáním dvou čísel ve dvojkové soustavě. Něco jsem zkoušela, vím, že mám jít od konce a hlídat pravidla součtu, kdy 1 + 1 je 0 a pamatuji si 1, ale netuším, jak to zapsat do pascalu.

Byla bych ráda za každou pomoc. Děkuji.

Co konkrétně nevíš, jak udělat?

Uses strutils;
Begin
  WriteLn(intToBin(%1010 + %0011, 5)); // dvě binární čísla a počet číslic ve výsledku
End.

Potřebovala bych program nebo proceduru/funkci provádějící součet dvou binárních čísel. Nejspíše půjdu zprava doleva pomocí for cyklu, ale poté nevím jak podmínit sčítání u 1+1, kde si musím pamatovat 1 a pak to implementovat do sčítání. Opravdu si s tím nevím rady.

Tak si uděláš proměnnou, ve které budeš mít tu hodnotu, co si chceš pamatovat.

Takže procedure o dvou parametrech - 1. a 2. binární číslo. Pak proměnné pro přiřazení délek řetězců. Pak projít for cyklem od posledního charakteru až k prvnímu a pak nevím jak... Přiřadit proměnné součet a když je to 1+1, tak si pamatovat 0, ale jak to přidat do dalšího součtu. Poradíte prosím?

Kdyz nevis, kudy kam... Co jsi nasla googlem?
google = pascal binary counting
https://www.tutorialspoint.com/…perators.htm
 

obvykle
x := b + c // scitani
x := b or c // binarni scitani

v := 123;
bit0 := v and 0x01; // nebo mozna pujde v & 1
bit1 := (v>>1) & 0x01;

v & 1 udela to, ze binarne ANDuje bity v, 00001111 and 00000001 = 00000001.
Shifty delaji to, ze rotuji bity doprava nebo doleva,  00001111>>1 = 000000111
if (v & 1 == 1) jestli se posledni bit vpravo ==1
Jestli potrebujes poscitat binarne vsechny bity cisla V, pak potrebujes cislo rotovat shifty a pouzit cyklus pro 8 bitu.

Je samozrejme otazka, zda pracujes s cisly (1, 2, 3... 255) nebo stringem '000000001'. U stringu musis nejakym zpusobem vybrat posledni cislo, prevest jej na cislo a pak jej muzes jako cislo ANDovat. Nebo to zpracujes pres prevadeni, jako string.
Tezko rict, jake mas zadani...

Sak, zkus napsat tvuj program a pridej tm komentare, co to ma delat nebo si myslis, ze ma delat a co ti tam schazi dodelat a s cim si nevis rady. Pokud dokazes popsat, co ma ktera cast programu delat, tak ji obvykle taky dokazes napsat v kodu.
Mne hodne pomahalo promyslet si programy s papirem a tuzkou, kdyz slo o nejake slozite veci. Napsal jsem si tam, co chci mit na vystupu, tipnul nejake zaludne moznosti vstupu. A opravoval do tehdy, nez to vyhovelo vsem testovacim hodnotam. Pak presel k dalsi casti. Nebo na preskacku, odladil jednu cas pro nejake vstupni hodnoty...
 

Chtěla bych to vyřešit tak, že na vstupu se zadají dva řetězce, které budou představovat dvě binární čísla. Ty řetězce budu procházet od konce. Pokud bude poslední ''znak'' (1.čísla) jedna a (2.čísla) také jedna, tak do výsledné proměnné uložím na poslední místo nulu a pamatuju si jedničku. Pak pokračuju podle pravidel, ale jde mi o to, jak to správně zapsat. 

delka:=Ord(bin1[0]); (bin1>bin2)
      for I:=5 downto 1 do begin
                                      if (bin1[delka] = 1) and (bin2[delka] = 1) then begin
                                                                                      vysledek[delka] :=0;
                                                                                      carry := 1;
                                                                                      end;

No, vida, s tímhle už se dá pracovat.

Pro zjištění délky stringu mi přijde jasnější použití funkce Length, než technický detail, že na indexu 0 je délka.

Pro procházení těch stringů by se hodilo, aby měly stejnou délku, tak bych je zarovnal. A ještě bych na začátek přidal jednu 0, aby tam bylo místo pro případný poslední carry. Na tom úplně nesejde, ale přijde mi to jako takové přímočaré zjednodušení pro začátečníky.

To sčítaní samotné je pak sčítání tří hodnot (nebo dvakrát sčítání dvou hodnot). Dvě číslice z těch sčítaných stringů a carry z předchozího sčítání. To si myslím, že nemusíš vypisovat a můžeš použít matematické operace.

Takže nevím, v jakém Pascalu děláš, ale toto projde ve FreePascalu.

uses
    math, // max
    strutils, // addchar
    sysutils; // strtoint

// digit to integer
function d2i(c: char): integer;
begin
  d2i := ord(c) - ord('0');
end;

// integer to digit
function i2d(i: integer): char;
begin
  i2d := chr(ord('0') + i);
end;

var
    a, b, c: string;
    i, soucet, prenos: integer;

begin
    // vstup
    a := '111110';
    b := '1011';
    
    // priprava
    a := addchar('0', a, max(length(a), length(b)) + 1);
    b := addchar('0', b, length(a));
    c := addchar('0', '', length(a));
    prenos := 0;

    // vypocet
    for i := length(a) downto 1 do
    begin
        soucet := d2i(a[i]) + d2i(b[i]) + prenos;
        c[i] := i2d(soucet mod 2);
        prenos := soucet div 2;
    end;

    // kontrola
    writeln('  ', a, ' ', strtoint('%' + a));
    writeln('+ ', b, ' ', strtoint('%' + b));
    writeln('= ', c, ' ', strtoint('%' + c));
end.

Supéér, moc Vám děkuji. Jen bych se ještě prosím chtěla zeptat, co znamenají tyto dva řádky. Proč převádím na char zbytek po součtu vyděleném dvěma?

c[i] := i2d(soucet mod 2);

prenos := soucet div 2;

Protože počítáš ve dvojkové soustavě. Zbytek po dělení 2 je 0 nebo 1.

Zkus si ten součet představit binárně: 

div --, ,-- mod
      | |
      V V
   0: 0 0
   1: 0 1
   2: 1 0
   3: 1 1

Jestli tomuhle nerozumíš, tak si to napiš po svém, na tom nesejde.