:: Contoh Pseudocode dan Flowchart... ::

Contoh Pseudocode dan Flowchart nya

Pseudocode dari luas Persegi

PROGRAM Luas_Persegi

DEKLARASI

    Luas        : integer

    panjang  : integer

    lebar       : integer

DESKRIPSI

    read(panjang, lebar)

    Luas = panjang * lebar

    write(Luas)

end 

 Pseudocode dari luas lingkaran

Program Luas_lingkaran

Deklarasi 

 π:3.14    :integer

 jari-jari  :integer

 Luas       :integer

Deskripsi

     Read(π:3.14, jari-jari)

     Luas = π:3.14 * jari-jari

     write (luas)

end 

 

Pseudocode menentukan bilangan ganjil atau genap

Program Bilangan_Genap 

   Bil : integer

Deskripsi

  read(Bil)

If Bil mod 2=0 then

write(genap) else

write(ganjil)

end 

Pseudocode menentukan rata rata, nilai min dan max

program Min_max_bilangan
A,B,C : integer
rata-rata : integer 
Deskripsi
 read(A,B,C, rata-rata, )

rata-rata=A+B+C

                        3
write(rata-rata)

 if A>B A>C then
write(Max)else
if B>A B>C then
write(max)else
C write(Min)
end

 






































 Pseudocode Konversi satuan Waktu

Program Konversi_waktu
 Detik:integer
 Menit : integer
 Jam: integer 
Deskripsi

read(detik)

menit=60 detik

write(menit)

jam=60*menit=3600 detik

write(jam)

end 

:: FLOWCHART DAN PSEUDOCODE ::

A.Buatlah algoritma menggunakan flowchart dan pseudocode untuk menghitung luas persegi panjang




Algoritma :1. Masukkan panjang
2. Masukkan lebar
3. Luas Persegi panjang adalah panjang dikalikan lebar
4. Tampilkan luas persegi panjang


Pseudocode :1. Input panjang
2. Input lebar
3. Luas = panjang x lebar
4. Print luas lingkaran












B. Buatlah algoritma menggunakan flowchart dan pseudocode untuk menghitung luas lingkaran

Algoritma :1. Masukkan phi (π)
2. Masukkan jari-jari (r)
3. Luas Lingkaran adalah phi dikalikan jari-jari
4. Tampilkan luas lingkaran





Pseudocode :1. Input phi (π)
2. Input jari-jari (r)
3. Luas = π x r x r
4. Print luas lingkaran









C.Buatlah algoritma menggunakan flowchart dan pseudocode untuk menentukan apakah bilangan yang di input adalah bilangan ganjil atau bilangan genap.


Algoritma :1. Masukkan sebuah bilangan
2. Bagi bilangan tersebut dengan bilangan atau angka 2
3. Jika bilangan menghasilkan sisa pembagian 0 maka genap
4. Jika bilangan tidak menghasilkan sisa pembagian 0 maka
ganjil




Pseudocode : Read Bilangan

If bil mod 2 = 0 then,

“Output Genap”

Else

“Output Ganjil”

End if




Catatan : Mod adalah sisa hasil bagi














D. Buatlah algoritma menggunakan flowchart danpseudocode untuk menginput 3 buah bilangan, kemudian tentukan bilangan terbesar, terkecil, dan rata-ratanya.




Algoritma :* 1. Masukkan bilangan A,B,C
2. Jika A>B dan A>C maka A paling besar
3. Jika B>A dan B>C maka B paling besar
4. Maka C paling kecil/terkecil


* Jumlah = A+B+C

Rerata = Jumlah
3




Pseudocode :* If (A>B ; A>C) then

Print “A paling besar”

If (B>A ; B>C) then

Print “B paling besar”

Else
Print “C terkecil”
End if



* Jumlah = A+B+C
Rerata = Jumlah
3 Output rerata

















E.Buatlah algoritma menggunakan flowchart danpseudocode untuk mengubah satuan waktu yang diinputkan dari detik ke satuan jam dan menit



Algoritma : Masukkan detik
Menit = 60 detik
Jam = 3600 detik
Tampilkan menit
Tampilkan jam



Pseudocode : Read detik
M = 60 s
H = 3600 s
Output M Output H

:: Flowchart dan Program Update Data ::

========================================================================

procedure tambahdata;

begin

     assign(file_mhs,'Mhs.txt');

     reset(file_mhs);

                 if IOresult <> 0 then rewrite(file_mhs);

                 seek(file_mhs,filesize(file_mhs));

lagi := 'Y';

while upcase(lagi)='Y' do

begin

     clrscr;

     with filemhs do

     begin

     gotoxy(5,5);write('-----------------------------------------------------');

     gotoxy(5,6);write('|nama mahasiswa    :                               |');

     gotoxy(5,7);write('|npm mahasiswa      :                               |');

     gotoxy(5,8);write('|kelas mahasiswa     :                               |');

     gotoxy(5,9);write('-----------------------------------------------------');

     gotoxy(27,6);readln(kelas);

     gotoxy(27,7);readln(npm);

     gotoxy(27,8);readln(nama);

     end;

     write(file_mhs, filemhs);

     gotoxy(5,15);write('anda ingin memasukkan data lagi(Y/T)?');readln(lagi);

     end;

     close(file_mhs);

   end;