Kamis, 02 September 2010

Program jenis bilangan

Program Konstanta_numeric_integer ;
uses Crt ;

const
c1 = 197 ; {byte}
c2 = -2 ; {ShortInt}
c3 = 1050 ; {integer}
c4 = 506789 ; {word}
c5 = 3000000 ; {LongInt}

Begin
Clrscr;
Writeln(‘Bilangan byte =’,c1:4);
Writeln(‘Bilangan shortInt =’,c2:4);
Writeln(‘Bilangan Integer =’,c3:4);
Writeln(‘Bilangan word =’,c4:5);
Writeln(‘Bilangan LongInt =’,c5:7);
Readln
End.