in

Jenis-jenis Tipe Data di Dalam Bahasa Pasca

Jenis-jenis Tipe Data di Dalam Bahasa Pasca
2

1.    Tipe Data Standar Pascal

Kelompok pertama adalah tipe data standar pascal, atau dikenal juga sebagai tipe data sederhana. Kelompok ini terdiri dari 4 tipe data: IntegerRealCharacter dan Boolean.

a.   Tipe Data Integer

Tipe data integer adalah tipe data yang terdiri dari angka bulat (tidak mengandung nilai pecahan atau nilai desimal). Nilai ini bisa berbentuk angka positif maupun negatif, contohnya 3, 99, 1114, -44, 10000, atau 128730123.
Berikut contoh cara pendefenisian tipe data integer di dalam pascal:
var
a:integer;

b.    Tipe Data Real

Tipe data real adalah tipe data angka yang mengandung nilai pecahan (baik positif maupun negatif), seperti: 3.14, 99.99, atau 679073.22.
Berikut contoh cara pendefenisian tipe data real di dalam pascal:
var
a:real;

c.    Tipe Data Char

Tipe data char adalah tipe data yang akan menampung karakter. Karakter ini hanya boleh terdiri dari 1 digit, seperti ‘a’, ‘A’, ‘x’, atau ‘#’.
Berikut contoh cara pendefenisian tipe data char di dalam pascal:
var
a:char;

d.   Tipe Data Boolean

Tipe data boolean adalah tipe data yang hanya bisa diisi dengan 1 diantara 2 nilai: true atau false (benar atau salah). Tipe data boolean biasanya digunakan untuk percabangan kode program seperti struktur IF atau perulangan (looping).
Berikut contoh cara pendefenisian tipe data boolean di dalam pascal:
var
a:boolean;

2.    Tipe Data Bentukan (User Defined) Pascal

Kelompok kedua dari tipe data pascal adalah tipe data bentukan (user defined) atau dikenal juga dengan tipe data non standar. Tipe data bentukan ini terdiri dari 2 tipe: enumerated dan subrange. Kedua tipe data ini harus didefenisikan di dalam bagian type struktur pascal.

a.   Tipe Data Enumerated

Tipe data enumerated adalah tipe data yang isinya terdiri dari kelompok data yang sudah ditentukan. Sebagai contoh, kita bisa membuat tipe enumerated warna yang berisi: merahkuningbiru dan ungu. Atau tipe nama_hari yang berisi nama-nama hari seperti seninselasarabu, dst.
Tipe data enumerated sering juga disebut enumeration atau enum saja.
Berikut contoh cara pendefenisian tipe data enumerated di dalam pascal:
type
nama_hari= (senin,selasa,rabu,kamis,jumat,sabtu,minggu);
var
a: nama_hari;

 b.    Tipe Data Subrange

Tipe data subrange adalah tipe data bentukan yang berasal dari bagian (sub) tipe data lain  dan berada dalam sebuah jangkauan (range). Contohnya, kita bisa membuat tipe data baru yang hanya terdiri dari angka 0 sampai 9, atau hanya dari huruf ‘a’ hingga ‘e’.
Berikut contoh cara pendefenisian tipe data subrange di dalam pascal:
type
satuan= 1..9;
vara: satuan;
Praktikum PASCAL
  1. Program Dasar
Latihan 1
program hello_world;
uses
WinCrt;
begin
Writeln('Hello World');
Writeln('Sedang Belajar Pascal');
Readln;
end.
  1. Variabel Karakter (Tipe Data : String)
Latihan 2
program inputoutput;
uses winCrt;
var
nama, nisn : String;
begin
Clrscr;
Writeln('Masukkan nama dan NISN');
Writeln('-------------------------');
Writeln('nama anda : '); Readln(nama);
Writeln('NISN anda : '); Readln(nisn);
Writeln('-------------------------');
writeln('Nama anda : ',nama ,'dan NISN anda : ',nisn);
Readln;
End.
Latihan 3
program biodatasaya;
uses wincrt;
var
nama, nisn, alamat : string;
begin
writeln('BIODATA SAYA');
writeln('------------');
write('Nama : '); readln(nama);
write('NISN : '); readln(nisn);
write('alamat : '); readln(alamat);
writeln('-------------------------');
writeln('Nama anda : ',nama);
writeln('NISN anda : ',nisn);
writeln('Alamat anda : ',alamat);
readln;
End.
Perbedaan write dan writeln
Perintah write akan menampilkan ‘output’, kemudian menyambung tampilan berikutnya dibaris yang sama (cursor teks tetap berada di baris yang sama).
Sedangkan perintah writeln akan menampilkan ‘output’, kemudian menyambung tampilan berikutnya di baris baru (cursor teks akan pindah ke baris baru).
  1. VariabelBilangan (Tipe Data : Integer)
Latihan 4
program bilanganinteger1;
uses wincrt;
var
bil : integer;
begin
write('Silakan input bilangan anda : '); read(bil);
writeln('------------------------------');
writeln('Bilangan yg anda input : ',bil);
readln;
end.
  1. Aritmatika (Perkalian, Pembagian, Pengurangan, Penjumlahan)
Flowchart
 3 Latihan 5
program kalkulator;
uses wincrt;
var
bil1,bil2,a,c,d : integer;
b : real;
Begin
writeln('Program Kalkulator Sederhana');
writeln('----------------------------');
write('Bilangan 1 : '); readln(bil1);
write('Bilangan 2 : '); readln(bil2);
writeln('----------------------------');
a:=bil1*bil2;
b:=bil1/bil2;
c:=bil1+bil2;
d:=bil1-bil2;
writeln('Hasil perkalian : ',a);
writeln('Hasil pembagian : ',b);
writeln('Hasil penjumlahan : ',c);
writeln('Hasil pengurangan : ',d);
end.
  1. Program hitung luas dan keliling bangun datar, serta volume bangun ruang
Flowchart : program hitung luas & keliling persegi panjang
4
 Latihan 6
program hitung_luas_keliling_persegipanjang;
uses wincrt;
var
p,l : integer;
luas,kll : integer;
begin
writeln('Program Bantu Hitung Luas & Keliling Persegi Panjang');
writeln('----------------------------------------------------');
write('Panjang : '); read(p);
write('Lebar : '); read(l);
luas:=p*l;
kll:=2*(p+l);
writeln('Luas Persegi Panjang : ',luas);
writeln('Keliling Persegi panjang : ',kll);
end.
Flowchart: program bantu hitung volume tabung 
 5
Latihan 7
program hitung_volumetabung;
uses wincrt;
var
r, t : integer;
phi, v : real;
begin
writeln('PROGRAM BANTU HITUNG VOLUME TABUNG');
writeln('----------------------------------');
write('Jari-jari : '); readln(r);
write('Tinggi : '); readln(t);
phi:=3.14;
v:=(phi*r*r*t)/3;
writeln('Volume Tabung : ',v:0:2);
end.
  
  1. Logika IF
Pilih chanel TV
program Percabangan1;
uses wincrt;
var
kode : integer;
begin
clrscr;
writeln('Program Percabangan IF/memilih chanel');
writeln('-------------------------------------');
write('silahkan pilih chanel anda [1 s/d 4] : '); readln(kode);
if (kode=1) then
begin
writeln('RCTI');
end;
if (kode=2) then
begin
writeln('ANTV');
end;
if (kode=3) then
begin
writeln('METROTV');
end;
if (kode=4) then
begin
writeln('INDOSIAR');
end;
end.
Pilih Menu Makanan
program Percabangan2;
uses wincrt;
var
kode : string;
begin
clrscr;
writeln('Program Percabangan IF/memilih menu makanan');
writeln('-------------------------------------------');
write('a Mie Bakso');
write('b Mie Ayam');
write('silahkan pilih menu anda [a/b] : '); readln(kode);
if (kode='a') then
begin
writeln('Menu anda : Mie bakso');
writeln('Bonus : Teh Botol Sosro');
end;
if (kode='b') then
begin
writeln('Menu anda : Mie Ayam');
writeln('Bonus : Teh Botol Sisri');
end;
end.
Program Menentukan Bilangan ganjil/genap
program Percabangan3;
uses wincrt;
var
bil : integer;
begin
clrscr;
writeln('Program Percabangan IF/menentukan bilangan ganjil atau genap');
writeln('------------------------------------------------------------');
writeln('Genap bil mod 2=0');
writeln('Ganjil bil mod 2 <> 0');
write('silahkan input bilangan anda : '); readln(bil);
if (bil mod 2=0) then
begin
writeln(bil, ' : Bilangan Genap');
end;
if (bil mod 2<>0) then
begin
writeln(bil, ' : Bilangan Ganjil');
end;
end.
Program Konversi nilai dari Angka menjadi Huruf
program Percabangan4;
uses wincrt;
var
bil : integer;
begin
clrscr;
writeln('Program Percabangan IF/konversi Nilai Angka menjadi huruf');
writeln('---------------------------------------------------------');
write('silahkan input nilai anda : '); readln(bil);
if (bil>=85) and (bil<=100) then begin writeln(bil, 'nilai huruf : A'); end else if (bil>=75) and (bil<85) then begin writeln(bil, 'nilai huruf : B'); end else if (bil>=65) and (bil<75) then begin writeln(bil, 'nilai huruf : C'); end else if (bil>=50) and (bil<65) then
begin
writeln(bil, 'nilai huruf : D');
end
else if (bil<50) then
begin
writeln(bil, 'nilai huruf : E');
end;
end.
Advertisement
  1. Logika FOR
Menampilkan Bilangan 1 s/d 10
program perulangan1;
uses wincrt;
var
bil,j : integer;
begin
writeln('Program Menampilkan bil 1-10 & Jumlahnya ');
writeln('----------------------------------------');
j:=0;
for bil:=1 to 10 do
begin
writeln(bil);
j:=j+bil;
end;
writeln('Jumlah : ',j);
end.
Menampilkan Tulisan
program perulangan2;
uses wincrt;
var
bil : integer;
begin
writeln('Program Menampilkan Perulangan Tulisan ');
writeln('----------------------------------------');
for bil:=1 to 10 do
begin
writeln('I LOVE U PASCAL');
end;
end.
Program Perkalian
program perulangan3;
uses wincrt;
var
i,bil : integer;
begin
writeln('Program Perkalian ');
writeln('------------------');
write('Input perkalian yang diinginkan : '); read(bil);
for i:=1 to 10 do
begin
writeln(i, ' x ', bil, ' = ',i*bil);
end;
end.
Program hitung mundur
program perulangan4;
uses wincrt;
var
bil : integer;
begin
writeln('Program Hitung Mundur ');
writeln('----------------------');
for bil:=10 downto 1 do
begin
writeln('mundur ke : ',bil);
end;
end.
Program hitung mundur “Lagu Anak Ayam”
program perulangan4;
uses wincrt;
var
ayam,bil : integer;
begin
writeln('Program lagu Anak Ayam ');
writeln('-----------------------');
write('Input Jumlah Anak ayam : '); read(ayam);
writeln;
for bil:=ayam downto 1 do
begin
writeln('Anak Ayam turun : ',bil, ' pergi 1, tinggal ', bil-1);
end;
end.
Referensi :
  1. https://www.duniailkom.com/tutorial-belajar-pascal-perulangan-for-downto-dalam-pascal/
  2. https://antoken.wordpress.com/2012/10/16/perbedaan-write-writeln-read-dan-readln/
  3. https://sites.google.com/site/joosdottk/comp/pascal
  4. https://kodedasar.blogspot.co.id/2016/12/belajar-pascal.html
  5. Modul algoritma dan pemrograman pascal, https://tiklc.files.wordpress.com/2014/02/modul-algotima_dan_pemrograman_pascal.pdf
Advertisement

Written by nandasanjaya38@yahoo.com

I'm blink-182 fan and i'm proud of it. 4505 likes. Just another page about the most awesome band on the planet.

Leave a Reply

Your email address will not be published. Required fields are marked *

Hakikat Qada dan Qadar : Memperkaya Khazanah

Glosarium Pengertian Agama Hindu Kelas XI