Thursday, April 3, 2008

BELAJAR PASCAL YYYUUUKK,,

BUATLAH PROGRAM UNTUK MENGUJI OPERATOR ARITMATIKA!!


PROGRAM OperatorAritmatikaLogika;

VAR

x,y:Boolean;

BEGIN

{inisialisasi variabel}

x:=TRUE;

y:=FALSE;

Writeln('Nilai X=',x);

Writeln('Nilai Y=',y);

Writeln('NOT X=',Not(X));

Writeln('NOT Y=',Not(Y));

Writeln('X AND Y=',X AND Y);

Writeln('X OR Y=',x OR y);

Writeln('X XOR Y=',X XOR Y);

Writeln('Anda Mengerti Sekarang');

Writeln('Coba dg nilai X dan Y beda');

readln;

END.





haduuuh,, menyenangkan sekaleeh belajar perogramann!♥♥♥

No comments: