Hajtsuk a bináris számokat pascal - Műszaki Fórum
De nem nehéz örömet.
1. A fő program:
N - szóhossz (számjegyek száma) A bináris szám
i - változó ciklus
M - magát a számot. Alakult véletlenszerű generációs nullák és egyesek a legkisebb helyiértékű (n-1) -edik. Az idősebb (n-edik) számjegy 1 mindig írva.
T - számláló bit
M1 - az eredmény a változó balra összes számjegyét M egy, attribúciókat a jogot nulla. A bináris szám M felel szorzást kettő. "Belső használatra" M1 = M * 10.
2. BIN2DEC funkció (átalakítása bináris számot decimális):
b, B1 - átalakítani bináris
Q - következő jelentős számjegy (0 vagy 1), kezdve az LSB
r - a súlya a következő bináris számjegy
D - extra azonosítót. Én el.
3. A funkciók a bináris összeadás Sum2Bin:
B1, B2 (B1A, B2A) - összecsukható bináris számok
b3 - kialakult bináris összeg
r - tizedes mentesítés súly
c1, c2, c3 - számjegy (0 vagy 1) a következő mentesítési összecsukható számok és mennyiségek.
d - átvihető a következő számjegyű.
__________________
A Mozilla Firefox - egyenesen a kommunizmus!
Vladimir_S, Hello! Tegnap adták át ezt a feladatot, és azt mondták, hogy ez egyszerűbb, így be bármilyen méretű bináris számot, és mindent megtenni a segítségével a funkció és lefordítani 3 a tízes számrendszerben. Van valami, amit írtam (nem tudom, hogy a jobb oldalon), de nem tudok rájönni, hogyan kell kiszámítani a számát p. Ön is tudja, hogyan kell csinálni? Kérem, mondja meg!
funkció um (const s: string): longint;
var
i: integer;
R: longint;
kezdődik
R: = 0;
i: = 1 hossza (s) do
kezdődik
ha a (s [i] = '1') vagy (s [i] = '0'), akkor
r: = r * 2 + (ORD (s [i]) - ORD ( '0'))
máshol kezdődik
um: = -i;
exit;
végén;
végén;
um: = r
végén;
funkció umnogenie (bomlás: longint): string;
kezdődik
ha december = 0, akkor umnogenie: = ''
más
Ha páratlan (bomlik), majd
umnogenie: = umnogenie (bomlik div 2) + '1'
más
umnogenie: = umnogenie (bomlik div 2) + '0';
végén;
var
s: string;
D1: longint;
Write ( „adja az első bináris számot:”); ReadLn (s);
d1: = um (s);
WriteLn ( 'termék egyenlő', umnogenie (d1 * t));
Readln
végén.