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.
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.
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
Tidak ada komentar:
Posting Komentar