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