Witam , założyłem dziś konto ponieważ kolega polecił mi się tu zarejestrować i powiedział że "mogą" mi pomóc żeby zrobić coś co nam zadano . A więc chodzi o , Wykonanie tablicy prawd dla programu w pascalu który wygląda następująco
Uses Crt,
Var a, b : Integer;
Procedure Zamien1(x, y : Integer);
Var z : Integer
Begin
z :=x;
x :=y;
y :=z;
End;
Procedure Zamiken2(Var x, y : Integer);
Var z : Integer;
Begin
z := x;
x := y;
y := z;
End;
Begin
ClrScr;
a := 5;
b := 7;
WriteLn('a = ', a, ' b = ', b);
Zamien1 (a, b);
WriteLn('a = ', a, ' b = ', b);
Zamien2 (a, b);
WriteLn('a = ', a, ' b = ', b);
WriteLn('Koniec. dowolny klawisz....');
ReadKey;
End.
Z góry dzięki , jeśli ktoś wie jak to zrobić proszę o pomoc , czekam z niecierpliwością .
