Program sederhana dengan mengunakan type data serhana

Program sederhana dengan mengunakan type data serhana

Contoh penggunaannya pada pascal 

VAR a,b,jumlah1,jumlah2 : INTEGER;

BEGIN

jumlah1:=10;

jumlah2:=3;

a:=jumlah1 DIV jumlah2;

b:=jumlah1 MOD jumlah2;

WRITELN('HASIL A = ',a);

WRITELN('HASIL B =',b);

END.

hasil program : hasil a = 3

hasil b = 1

  Boolean

                Merupakan tipe data logika, yang berisi dua kemungkinan nilai: TRUE (benar) atau FALSE (salah). Turbo Pascal for Windows memiliki tiga macam jenis ini yaitu: Boolean, WordBool, dan LongBool. Tipe boolean memakai memori paling kecil, sedangkan WordBool dan LongBool dipakai untuk menulis program yang sesuai dengan lingkungan Windows.

Contoh pengunaannya pada pascal:

VAR

benar : BOOLEAN;

BEGIN

benar := TRUE;

WRITELN('benar = ',benar);

END.

hasil : benar = TRUE

Real

                Konstanta bertipe real adalah bilangan yang berisi titik desimal atau jenis bilangan pecahan. Dalam Pascal paling sedikit harus ada satu digit sebelum dan sesudah titik desimal, tidak boleh ada koma dan nilainya bisa positif atau negatif. Dapat dituliskan secara biasa atau model scientific. Contoh bilangan real: 34.265 -3.55 0.0 35.997E+11, dimana E merupakan simbol perpangkatan 10. Jadi 452.13 mempunyai nilai sama dengan 4.5213e2.

•      Contoh :

Contoh penggunaan tipe data real pada pascal

VAR nilai1,nilai2 hasil : REAL;

BEGIN

nilai1 := 2.52;

nilai2 := 3.2;

hasil := nilai1 + nilai2;

WRITE('HASIL PENJUMLAHAN = ',hasil:4:2);

END.

Output program, sbb : hasil penjumlahan = 5.72

Contoh-Contoh program Sederhana Dengan Pascal

•      Contoh pengunaannya dalam bahasa C++

•      Contoh program tipe data character
#include
#include
#include
#include
void main()
{
char *kalimat=”Institut Teknologi Padang″;
int x,jmlupp,jmllow,jmldig,jmlspc;
jmlupp=jmllow=jmldig=jmlspc=0;
clrscr();
for(x=0;x<=strlen(kalimat);x++)
{
if(isupper(kalimat[x])) jmlupp++;
else if(islower(kalimat[x])) jmllow++;
else if(isdigit(kalimat[x])) jmldig++;
else if(isspace(kalimat[x])) jmlspc++;
}
printf(“Jumlah Karakter : %d karakter\n”,strlen(kalimat));
printf(“Jumlah Upper    : %d karakter\n”,jmlupp);
printf(“Jumlah Lower    : %d karakter\n”,jmllow);
printf(“Jumlah Angka    : %d karakter\n”,jmldig);
printf(“Jumlah Spasi    : %d karakter\n”,jmlspc);
getch();
}

Contoh penggunaan tipe data real pada pascal

VAR nilai1,nilai2 hasil : REAL;
BEGIN
nilai1 := 2.52;
nilai2 := 3.2;
hasil := nilai1 + nilai2;
WRITE('HASIL PENJUMLAHAN = ',hasil:4:2);
END.

•      Program menggunakan Array

•      Program BalikArray;
Uses CRT;
Var a : array[1..25] of char;
temp : char;
i,n : byte;
Begin
Clrscr;
Writeln(‘Masukkan Nilai Array’);
for i:= 1 to 5 do
Begin
Write(‘a[‘,i,’]= ‘); Readln(a[i]);
End;
clrscr;
for i := 1 to 5 do
Write(a[i],’ ‘);
Writeln;

•      i:=1; n:=5;
While (i<=n) do
Begin
temp := a[i];
a[i] := a[n];
a[n] := temp;
inc(i);
dec(n);
End;
for i:=1 to 5 do
Write(a[i],’ ‘);
Readln;
End.

 Program bagi pemula dengan struktur biasa
Program ContohInteger;
Uses CRT;
Var y : Integer;
p : Real;
X : Real;
Begin
y := 5;
p := 6;
x := y + p;
Writeln(‘Nilai X adalah :’,x:4:1);
End.

•      Program pengolahan data

Program SoalNo3;
Uses CRT;
var NIM : String[9];
Nm : String[25];
nh : Char;
tgs, mid, fnl, tot : Real;
Begin
ClrScr;
Write(‘NIM : ‘); Readln(NIM);
Write(‘Nama : ‘); Readln(Nm);
Write(‘Tugas : ‘); Readln(tgs);
Write(‘MID : ‘); Readln(mid);
Write(‘Final : ‘); Readln(fnl);
tot := 0.2*tgs + 0.3*Mid + 0.5*fnl;
If tot >= 80 Then nh := ‘A’ Else
If tot >= 70 Then nh := ‘B’ Else
If tot >= 51 Then nh := ‘C’ Else
If tot >= 41 Then nh := ‘D’ Else
nh := ‘E’;
Clrscr;
Writeln(‘ DAFTAR NILAI MAHASISWA’);
Writeln(‘ JURUSAN INFORMATIKA’);
Writeln;
Write(‘NIM Mahasiwa : ‘,NIM);
Writeln(‘ Nama Mahasiswa : ‘,Nm);
Writeln(‘Nilai Tugas : ‘,tgs:3:2);
Writeln(‘Nilai Mid Test : ‘,mid:3:2);
Writeln(‘Nilai final Test : ‘, fnl:3:2);
Write(‘Total Nilai : ‘,tot:3:2);
Writeln(‘ Nilai Huruf : ‘,nh);
Readln;
End.

 Program untuk Tipe data Boolean

•      Program Boolean1;
Uses CRT;
var tokka : boolean;
lahir : String;
nama : String;
jawab : char;

•      Begin
Write(‘Masukkan nama : ‘);
readln (nama);
Write(‘Pernahkah melahirkan ?(Y/T) : ‘);
readln(jawab);

•      if (jawab =’Y’) or (jawab=’y’) then tokka := true
else tokka := false;

•      if (tokka= False) then
Writeln(‘Berarti anda pria’)
else
Writeln(‘Berarti anda wanita’)
End.

•      Program untuk menginput sejumlah variabel dan menampilkannya

•      Program Contoh_Variabel;
Uses crt;
Var
Nama : string[15];
Jumlah,harga : Longint;
Nilai : real;
Begin
ClrScr;
{Memasukkan data}
Nama:=’Semen’;
jumlah:=10;
harga :=250000;
Nilai :=Harga * Jumlah ;
{Menampilkan Data yang Telah Diproses}
writeln(‘Nama Barang:’,Nama);
writeln(‘Jumlah:’,Jumlah);
writeln(‘Harga:’,Harga);
writeln(‘Nilai Barang:’,Nilai);
Readln;
end.