t.Pascal 22/09/11

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~`Turbo Pascal~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

program contoh_Tipe_data;

uses wincrt;

var

Nilai_Akhir:integer;

Nilai_rata2:real;

Grade :char;

Keterangan:String[5];

Kondisi:Boolean;

Begin

Nilai_Akhir:=87;

Nilai_Rata2:=87.25;

Grade:='A';

Keterangan:='Lulus';

Kondisi:=True;

writeln('Nilai Akhir Adalah',Nilai_Akhir);

writeln('Nilai Rata-Rata Adalah',Nilai_rata2);

writeln('Nilai Gradenya adalah',Grade);

Writeln('Nilai Keterangannya Adalah',Keterangan);

writeln('Kondisinya adalah',Kondisi);

End.

Program Operator_Binari;

uses Wincrt;

Begin

writeln (15*5);

writeln (20/30);

writeln (20 div 3);

writeln (20 mod 3);

end.

Program Operator_NOT;

uses wincrt;

begin

Writeln (NOT 0);

end.

Program Operator_AND;

Uses wincrt;

Begin

Writeln( 12 AND 23 );

End.

Program Operator_OR;

Uses Wincrt;

Begin

Writeln ( 12 OR 23 );

End.

Program Operator_XOR;

Uses wincrt;

Begin

writeln (12 XOR 23 );

end.

Program Operator_SHL;

uses Wincrt;

Begin

Writeln (5 shl 6);

end.

Program Operator_SHR;

uses wincrt;

begin

writeln (160 shr 6 );

end.

Program Operator_Relasi;

uses wincrt;

Var a,b:Integer;

begin

A:= 5; B:=3;

Writeln(A=B);

Writeln(A<>B);

Writeln(A>B);

Writeln(A<=B);

end.

Program Operator_Logika;

Uses Wincrt;

Begin

Writeln (Not True);

Writeln (True and False);

Writeln (True Or False);

Writeln (True XOR False);

end.

Program Operator_String;

Uses Wincrt;

Var Nama1,Nama2,Nama3:String[15];

Begin

Nama1:='Arief ';

Nama2:='Budiman';

Nama3:=Nama1+Nama2;

Writeln(Nama3);

end.