Nama    : Dhamario Gymnastiarno

Kelas     : 1IA05

1.       Integer

program tipe_integer;

  uses crt;

var

  a,b,c,d:integer;

begin

  clrscr;

  a:=1234;

  b:=-1234;

 

  c:= a + b;

  d:= a * 3;

 

  writeln('a: ',a);

  writeln('b: ',b);

  writeln('c: ',c);

  writeln('d: ',d);

  readln;

end.

2.       Real

 

program tipe_real;

uses crt;

var

  a:real;

begin

  clrscr;

  a:=3.14;

  writeln('a: ',a);

 

  a:=999.99;

  writeln('a: ',a);

 

  a:= a + 0.01;

  writeln('a: ',a);

  readln;

end.

3.       Karakter

program tipe_char;

uses crt;

var

  a:char;

begin

  clrscr;

  a:=#65;

  writeln('a: ',a);

 

  a:=#57;

  writeln('a: ',a);

 

  readln;

end.

4.       String

program tipe_string;

uses crt;

var

  a:string;

begin

  clrscr;

  a:='Dhamario Gymnastiarno';

  writeln('a: ',a);

 

  a:='Sedang belajar Pascal';

  writeln('a: ',a);

 

  a:='12345678';

  writeln('a: ',a);

  readln;

end.

5.       Boolean

 

program tipe_boolean;

uses crt;

var

  a:boolean;

begin

  clrscr;

 

  a:= true;

  writeln('a: ',a);

 

  a:= false;

  writeln('a: ',a);

 

  a:= not true;

  writeln('a: ',a);

 

  a:= not false;

  writeln('a: ',a);

 

  readln;

end.

6.       Longint

 

program tipe_integer;

  uses crt;

var

  c:longint;

begin

  clrscr;

  c:=-2147483648;

 

  writeln('c: ',c);

  readln;

end. 

7.       Shortint

program tipe_integer;

  uses crt;

var

  a:shortint;

begin

  clrscr;

  a:=-128;;

 

  writeln('a: ',a);

  readln;

end.

8.       Word

 

program tipe_integer;

  uses crt;

var

  d:word;

begin

  clrscr;

  d:=4294967295;

 

  writeln('d: ',d);

  readln;

end.

9.       Byte

program tipe_integer;

  uses crt;

var

  b:byte;

begin

  clrscr;

  b:=255;

 

  writeln('b: ',b);

  readln;

end.