Contoh Program Pascal Beserta Flowchart Algoritma

Hai sahabat blogger !


Kali ini Saya akan posting salah satu tugas Mata Kuliah Struktur Data dari Dosen Saya..

Untuk itu saya harus menyertakan bioadata kampus terlebih dahulu, agar Dosen yang bersangkutan tahu bahwa saya sudah mengerjakan tugas..

Nama : Indra Nurfajri
NPM : 432007006130148
Kelompok : A
Kelas Karyawan
STMIK Tasikmalaya

Tugasnya adalah membuat program pascal beserta flowchart algoritmanya..
Pada tugas ini saya membuat program sederhana konversi no. urut bulan masehi ke nama bulan masehi..






1. Flowchart

2. Listing Program

{Program Konversi Nomor urut bulan ke nama bulan}

{Created by: Indra Nurfajri}

{NPM : 432007006130148}

{Jurusan S1 Teknik Informatika Kelas Karyawan Kelompok A}

program bulan_angka;

uses wincrt;

var

indra_urbul:byte;

begin

writeln('Selamat Datang di Aplikasi Konversi Urutan Nomor Bulan ke Nama Bulan');

writeln('');

write('Silahkan Masukkan Nomor Urut Bulan : ');readln(indra_urbul);

                  case(indra_urbul)of

                  1 : writeln('Bulan Ke 1 Adalah Januari');

                  2 : writeln('Bulan Ke 2 Adalah Februari');

                  3 : writeln('Bulan Ke 3 Adalah Maret');

                  4 : writeln('Bulan Ke 4 Adalah April');

                  5 : writeln('Bulan Ke 5 Adalah Mei');

                  6 : writeln('Bulan Ke 6 Adalah Juni');

                  7 : writeln('Bulan Ke 7 Adalah Juli');

                  8 : writeln('Bulan Ke 8 Adalah Agustus');

                  9 : writeln('Bulan Ke 9 Adalah September');

                  10 : writeln('Bulan Ke 10 Adalah Oktober');

                  11 : writeln('Bulan Ke 11 Adalah November');

                  12 : writeln('Bulan Ke 12 Adalah Desember');

else

writeln('Nomor Yang Anda Masukkan Tidak Ada Dalam Urutan Bulan');

end;

end.

3. Tampilan Program Setelah dijalankan