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();
}
#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.
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;
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.
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 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.
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;
Uses CRT;
var tokka : boolean;
lahir : String;
nama : String;
jawab : char;
•
Begin
Write(‘Masukkan nama : ‘);
readln (nama);
Write(‘Pernahkah melahirkan ?(Y/T) : ‘);
readln(jawab);
Write(‘Masukkan nama : ‘);
readln (nama);
Write(‘Pernahkah melahirkan ?(Y/T) : ‘);
readln(jawab);
•
if (jawab =’Y’) or (jawab=’y’) then tokka
:= true
else tokka := false;
else tokka := false;
•
if (tokka= False) then
Writeln(‘Berarti anda pria’)
else
Writeln(‘Berarti anda wanita’)
End.
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.
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.
0 comments:
Post a Comment