Contoh Pascal dengan Struktur Case Of beserta Flowchartnya

ALGORITME :

start
input pilihan:
1. volume balok
2. Impuls
3. Momen

pilihan 1.
input : p, l dan t
proses : p*l*t
output hasil

pilihan 2
input : gaya dan lengan
proses: gaya*lengan
output hasil

pilihan 3
input : gaya dan waktu
proses : gaya*waktu
output hasil

pilihan 4
input : Pilihan tdk tersedia
end.

SSOURCE CODE PASCAL :
program case_of;

uses wincrt;

var pilihan,panjang,lebar,tinggi,gaya,waktu,lengan,hasil:integer;

begin

     writeln ('this my program, dont copas :)');

     writeln;

     writeln ('Program Pengulangan');

     writeln;

     writeln ('1. Mencari volume balok');

     writeln ('2. Mencari Impuls');

     writeln ('3. Mencari Momen');

     writeln;

     writeln ('pilihan anda?'); readln (pilihan);

case pilihan of

1:

begin

     write ('panjang:'); readln (panjang);

     write ('lebar:'); readln (lebar);

     write ('tinggi:');readln (tinggi);

     hasil:=panjang*lebar*tinggi;

     writeln;

     writeln ('hasil:',hasil);

     end;

2:

begin

     write ('gaya:'); readln (gaya);

     write ('waktu:'); readln (waktu);

     hasil:=gaya*waktu;

     writeln;

     writeln ('hasil:',hasil);

     end;

3:

begin

     write ('gaya:'); readln (gaya);

     write ('lengan:'); readln (lengan);

     hasil:=gaya*lengan;

     writeln;

     writeln ('hasil:',hasil);

     end;

     else

     writeln;

     writeln ('pilihan tidak tersedia');

end;

end.

 Gambar hasil tampilan pada Pascal

FLOWCHART

 Gambar Flowchart beserta tampilan Pascal

Flowchart

Flowchart atau diagram alir merupakan sebuah diagram dengan simbol-simbol grafis yang menyatakan aliran algoritma atau proses yang menampilkan langkah-langkah yang disimbolkan dalam berbagai bentuk, beserta urutannya dengan menghubungkan masing masing langkah tersebut menggunakan tanda panah. Diagram ini bisa memberi solusi selangkah demi selangkah untuk penyelesaian masalah yang ada di dalam proses atau algoritma tersebut.

Berikut adalah contoh sebuah program beserta algoritma dan Flowchartnya 

Algoritma

Start
input
pilihan: 1.volume balok
pilihan: 2.mencari impuls
pilihan: 3.mencari momen
Proses
Hitung Pilihan: 1. L=pxlxt
Hitung pilihan: 2. impuls=gaya x lengan
Hitung pilihan: 3. momen=gaya x waktu
output hasil
pilihan : 1. volume balok
pilihan : 2. impuls
pilihan : 3. momen
End.

Untuk program pascalnya, kali ini Admin memilih menggunakan tipe data integer dengan menggunakan struktur IF ELSE,

Source Code Pascal program pengulangan;

uses wincrt;
var pilihan,panjang,lebar,tinggi,gaya,waktu,lengan,hasil:integer;
begin
writeln ('Program Pengulangan');
writeln;
writeln ('1. Mencari volume balok');
writeln ('2. Mencari Impuls');
writeln ('3. Mencari Momen');
writeln;
writeln ('pilihan anda?'); readln (pilihan);

if pilihan=1 then
begin
write ('panjang:'); readln (panjang);
write ('lebar:'); readln (lebar);
write ('tinggi:');readln (tinggi);
hasil:=panjang*lebar*tinggi;
writeln;
writeln ('hasil:',hasil);
end
else
if pilihan=2 then
begin
write ('gaya:'); readln (gaya);
write ('waktu:'); readln (waktu);
hasil:=gaya*waktu;
writeln;
writeln ('hasil:',hasil);
end
else
if pilihan=3 then
begin
write ('gaya:'); readln (gaya);
write ('lengan:'); readln (lengan);
hasil:=gaya*lengan;
writeln;
writeln ('hasil:',hasil);
end
end.

Fl

Gambar FlowChart dan Hasil tampilan pada Pascal

Pascal dan Contoh tipe data Real

Pascal adalah bahasa pemrograman yang pertama kali di buat oleh Profesor Niklaus Wirth seorang anggota International Federation of Information Processing (IFIP) pada tahun 1971. Dengan mengambil nama dari Blaise Pascal, yang pertama kali menciptakan mesin penghitung, Profesor Niklaus Wirth membuat bahasa Pascal ini sebagai alat bantu untuk mengajarkan konsep pemrograman komputer kepada mahasiswanya. Selain itu, Profesor Niklaus Wirth membuat Pascal juga untuk melengkapi kekurangan-kekurangan bahasa pemrograman yang ada pada saat itu.

banyak tipe data yang tersedia pada bahasa pemrograman Pascal. Untuk pemula, kita bisa menggunakan tipe data yang lebih mudah seperti real, integer, dll. Real digunakan untuk pengoperasian aritmatika yang dapat menerima nilai pecahan, sedangkan Integer digunakan dalam pengoperasian aritmatika yang hanya dapat menerima bilangan bulat. untuk tipe data real, berikuta adalah contohnya :

source code :

program bangun_ruang_balok;
uses wincrt;
var
panjang,lebar,tinggi,hasil :real;
begin
write ('panjang:') readln(panjang);
write ('lebar:') readln(lebar);
write ('tingg:') readln (tinggi);
hasil:=panjang*lebar*tinggi;
writeln;
write ('hasil:',hasil:0:2);
end.

 Berikut adalah Hasil yang akan ditampilkan.

selamat mencoba
:) :)