Tugas 2: Program-program pada Pascal



Type data Sederhana
A. Integer
Contoh :
program nilai_m;
uses winCrt;
var m : integer;
Begin
                write('masukan nilai m:');readln(m);
                writeln('Nilai yg anda masukan adalah:',m);
                readln;
end.



B. Real
Contoh :
Program celcius_ke_fahrenheit;
uses wincrt ;
var
   c : real ;
   f : real ;
begin
     writeln ('Program Konversi Suhu Celcius Ke Fahrenheit');
     writeln ;
     write ('Masukkan Suhu Dalam Celcius : ');
     readln (c) ;
     f:=(9/5)*c+32;
     writeln ;
     writeln ('Jadi Suhu Dalam FAHRENHEIT : ',f:0:0) ;
end.

Contoh :
Program karakter ;
uses winCrt;
var G:char;
begin
 writeln(‘G');
end.



Program Boolean2;
Uses WinCrt;
var tokka : boolean;
pink: String;
kode : String;
jawab : char;
Begin
                Write(‘masukkan kode : ');
                readln (kode);
                Write(‘apakah kamu menyukai pink ?(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.


Type data majemuk
A. String
Contoh program :
                Program data_diri;
                uses winCrt;
                var nama, nim, alamat, jurusan :string;
                begin
                                writeln('-------------------------------');
                                 writeln('---------Data Diri----------');
                                 writeln('-------------------------------');
                                Write('Masukkan nama anda :'); readln(nama);
                                write('Masukkan nim anda :'); readln(nim); 
                                write('Masukkan alamat anda :'); readln(alamat);
                                write('Masukkan jurusan anda :'); readln(jurusan);
                                writeln;
                end.'


OPERATOR
    1. Operator assignment
Contoh :
                Program assignment;
                                Uses winCrt;
Var
                                                x: integer;
                                                y: integer;
                                                q: integer;
                                Begin
                                                 x := 30;
                                                 y := 20;
                                                q:=x-y;
                                                  write('nilai hasil=',q);
                                                readln;
                                end.


2. Operator Aritmatika
Contoh :
Program Aritmatika;
Uses winCrt;
Var
g, h: integer;
Begin
Clrscr;
Writeln('#########################');
Writeln('########ARITMATIKA#########’);
Writeln('#########################');
Write ('nilai G  : '); readln (g);
Write (' nilai H : '); readln (h);
Writeln;
Writeln ('g+h = ' , g+ h);
Writeln ('g - h = ' , g - h);
Writeln ('g* h=' , g* h);
Writeln ('g / h = ' , g / h);
Writeln ('g div h = ' , g div h);
Writeln ('g mod h = ' , g mod h);
Readln;
End.

0 komentar:

Tugas 1 : Artikel type data,

     1.   Artikel tentang Type data sederhana dan majemuk .
Tipe Data menunjukkan suatu nilai yang dapat digunakan oleh suatu variable yang bersangkutan. Konstanta menyatakan nilai yang tetap, sedangkan variabel menyatakan nilai yang dapat berubah-ubah selama eksekusi berlangsung.
A.   Tipe data sederhana.
Merupakan tipe data dasar yang sering dipakai oleh program, meliputi: integer (bilangan bulat), real (bilangan pecahan), char (alphanumerik dan tanda baca), dan boolean (logika). Untuk data integer dan real masing-masing terbagi menjadi beberapa kategori.
1.      Bilangan Integer
Merupakan tipe data berupa bilangan bulat, terbagi atas beberapa kategori seperti terlihat dalam tabel 1.
Tabel 1 menunjukkan jenis data, ukuran dalam memori dan rentang nilainya.
Tabel 1. Tipe data bilangan integer
Tipe Data
Ukuran Tempat
Rentang Nilai
Byte
1 byte
0 s/d +255
Shortint
1 byte
-28 s/d +127
Integer
2 bytes
-32768 s/d 32767
Word
2 bytes
0 s/d 65535
Longint
4 bytes
2147483648 s/d 2147483647

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 =
2.      Bilangan 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.
Penggolongan tipe data bilangan real dapat dilihat pada tabel 2.
Tipe Data
Ukuran Tempat
Rentang Nilai
Real
6 bytes
2.9 x 10-39 s/d 1.7 x1038
Single
4 bytes
1.5 x 1045 s/d 3.4 x 1038
Double
8 bytes
5.0 x 10-324 s/d 1.7 x 10308
Extended
10 bytes
3.4 x 10-4932 s/d 1.1 x 104932
Comp
8 bytes
-9.2x 1018 s/d 9.2x 1018
Tabel 2. Bilangan Real
















3.      Karakter ( Char )
Karakter merupakan tipe data yang hanya mampu menyimpan 1 digit karakter.  Ukuran untuk tipe data karakter adalah 1 byte (1 byte = 8 bit). Adapun macam karakter yang ada sejumlah 256 macam karakter yaitu dari kode karakter (ASCII), 0 sampai dengan 255. Untuk penulisan karakter menggunakan tanda petik tunggal (‘)  di depan dan belakang karakter yang ditulis.
Contoh : ‘a’, ‘A’,’&’ dll.
Nilai-nilai yang termasuk karakter adalah:
a)       Karakter huruf  : ‘a’..’z’,’A’..’Z’
b)      Karakter angka  : ‘0’..’9’
c)      Karakter tanda baca  : titik, koma, titik koma, titik dua dan sebagainya
d)     Karakter khusus : $, %, #, @ dan sebagainya.
4.      Boolean
Adalah tipe data yang hanya bernilai benar (true) atau salah (false).
Jangkauan (nilai yang mungkin) hanya 2 yaitu true atau false.
Contoh pengunaannya pada pascal:
VAR benar : BOOLEAN;
BEGIN
benar := TRUE;
WRITELN('benar = ',benar);
END.
hasil : benar = TRUE
B.     Tipe data majemuk
§  Tipe String
Tipe data ini menyimpan data yang berisi suatu teks (rangkaian karakter/huruf) dan bisa juga berisi angka.
Contoh pendeklarasian :
Var      kalimat : string

Begin kalimat  := ‘Jl.Bima Sakti no.3 Pengok’;

0 komentar: