Post by donw on Mar 30, 2024 21:21:16 GMT
Voorbeeld programma xor op de console:
program Vergelijk;
uses StrUtils, SysUtils;
var
x,y,z: Integer;
s1,s2,s3: string;
begin
x := 135;
y := 113;
s1 := IntToBin(x,8);
s2 := IntToBin(y,8);
z := x xor y;
s3 := IntToBin(z,8);
WriteLn(IntToStr(x) + ' ' + s1);
WriteLn(IntToStr(y) + ' ' + s2);
WriteLn(IntToStr(z) + ' ' + s3);
ReadLn;
end.
program Vergelijk;
uses StrUtils, SysUtils;
var
x,y,z: Integer;
s1,s2,s3: string;
begin
x := 135;
y := 113;
s1 := IntToBin(x,8);
s2 := IntToBin(y,8);
z := x xor y;
s3 := IntToBin(z,8);
WriteLn(IntToStr(x) + ' ' + s1);
WriteLn(IntToStr(y) + ' ' + s2);
WriteLn(IntToStr(z) + ' ' + s3);
ReadLn;
end.
