Question

proszę o opisanie pszczególnych funkcji i liniejej kodu w podanym poniżej kodzie kalkulatora binarnego w turbo passcal , z góry dziekuję :)

Program Bin;
Uses Crt;

Function Bin2Dec( bin_val : String ) : Longint;
var base, i, result : Longint;
Begin
base := 1;
result := 0;
for i:=1 To length( bin_val ) Do
begin
Inc( result, base * (Ord(bin_val[ i ]) - Ord('0')) );
base := base Shl 1;
End;
Bin2Dec := result;
End;

Begin
ClrScr;
writeln(Bin2Dec('111'));
readln;

End.

Answer 1

Program Bin; {nazwa programu}

Uses Crt; {import modułów} 

 

Function Bin2Dec(bin_val:String):Longint; {deklaracja funkcji, a w nawiasie wymagane dane do podania, po nawiasie masz to w czym funkcja zwraca wartość czyli tutaj Longint}

var base, i, result:Longint {deklaracja zmiennych użytych w funkcji}

Begin {początek}

base:=1 {base zyskuje wartość 1}

result:=0 {result zyskuje wartość 0}

for i:=1 to length(bin_val) do {length(bin_val) sprawdza długość znaków}

Begin {poczatek petli}

Inc(result, base * (Ord(bin_val[i]) - Ord('0'))); {inkrementacja czyli zwiększenie wartości o 1 podanych w nawiasie}

base:=base Shl 1 {operatro bitowy} 

End;{koniec petli}

Bin2Dec:=result; {Bin2Dec przyjmuje wartość result}

End; {Koniec funkcji} 

 

Begin {właściwy początek programu}

ClrScr; {czyści ekran}

WriteLn(Bin2Dec('111')); {zwraca wartość z funkcji}

End.{koniec programu}