3 [Turbo Pascal] Program Data Mahasiswa dengan Type Data Terstruktur

Program Data_Mahasiswa;
Uses wincrt;

{------------TYPE RECORD------------}

  Type Tabel_Mhs = Record
     nim : String;
     nama: String;
     tgl : String;
  End;

  Type Tabel_MK = Record
     kode_MK : String;
     Nama_MK : String;
     jum_SKS : Integer;
  End;

  Type Tabel_Nilai = Record
     tugas     : Real;
     UTS       : Real;
     UAS       : Real;
     nil_Angka : Real;
     nil_Huruf : Char;
  End;

Var
  Mhs  : Array[1..20] of Tabel_Mhs;  
  MK   : Array[1..20] of Tabel_MK;
  Nilai: Array[1..20] of Tabel_Nilai;
  Angka: Real;
  i, n : Integer;


  {---PROCEDURE INPUT DATA MAHASISWA---}

     Procedure Mahasiswa;
     Begin
      With Mhs[i] do
        Begin          
          write('Nim Mahasiswa    : ');readln(nim);
          write('Nama Mahasiswa   : ');readln(nama);
          write('tgl lahir        : ');readln(tgl);
          Writeln;
        End;
      End;

  
  {---PROCEDURE INPUT MATAKULIAH---}

      Procedure Mata_Kuliah;
      Begin
       With MK[i] do
         Begin
           Write('Kode Mata Kuliah : ');readln(kode_MK);
           Write('Nama Mata Kuliah : ');readln(Nama_MK);
           Write('Jumlah SKS       : ');readln(jum_SKS);
           Writeln;
         End;
      End;


  {---FUNCTION HITUNG NILAI ANGKA---}

      Function Nilai_Mhs(tugas,UTS,UAS : Real; Var nil_Angka : Real) : Real; 
      Begin
        nil_Angka:= (0.2 * tugas) + (0.3 * UTS) + (0.5 * UAS);
        Nilai_Mhs:= nil_Angka;
      End;


{-----------PROGRAM UTAMA----------}

Begin
Write('Jumlah Data : ');readln(n);
Writeln;
For i:= 1 to n do
Begin
Writeln('Data',i);
Writeln('-------');
Mahasiswa;
Mata_Kuliah; 

With Nilai[i] do
   Begin
     Write('Nilai Tugas      : ');readln(tugas);
     Write('Nilai UTS        : ');readln(UTS);
     Write('Nilai UAS        : ');readln(UAS);
     Writeln('Nilai Angka      : ',Nilai_Mhs(tugas,UTS,UAS,nil_Angka):0:2);
     Angka:=Nilai_Mhs(tugas,UTS,UAS,nil_Angka);

      if Angka >= 81 then
         nil_Huruf:= 'A'
      Else if Angka >= 71 then
         nil_Huruf:= 'B'
      Else if Angka >= 61 then
         nil_Huruf:= 'C'
      Else if Angka >= 51 then
         nil_Huruf:= 'D'
      Else if Angka < 51 then
         nil_Huruf:= 'E';
     
     Writeln('Nilai Huruf      : ',nil_Huruf);readln;
   End;
 End;


{---MENAMPILKAN DATA DALAM BENTUK TABEL---}

Begin
Clrscr;
gotoxy(1,2);Writeln('DATA REPORT':45);
gotoxy(1,4);Writeln('[----][-------------][---------------][-----------][-----------][-------][-----]');
gotoxy(1,5);Writeln('[ NO ][     NIM     ][      Nama     ][  Kode MK  ][  Nama MK  ][  N.A  ][ N.H ]');
gotoxy(1,6);Writeln('[----][-------------][---------------][-----------][-----------][-------][-----]');

For i:= 1 to n do
 Begin
  gotoxy(1,6+i);Write('[    ][             ][               ][           ][           ][       ][     ]');
  gotoxy(3,6+i);Write(i);
  gotoxy(9,6+i);Write(Mhs[i].nim);
  gotoxy(24,6+i);Write(Mhs[i].nama);
  gotoxy(41,6+i);Write(Mk[i].Kode_MK);
  gotoxy(54,6+i);Write(Mk[i].nama_MK);
  gotoxy(67,6+i);Write(Nilai[i].nil_Angka:0:2);
  gotoxy(77,6+i);Write(Nilai[i].nil_Huruf);
 End;             
End;

End.

Read more

0 Pascal: Program Jumlah Persentasi Kehadiran Mahasiswa

Read more

0 Cara Mengobati Asma dengan Obat Tradisional

A. Bahan Ramuan menyembuhkan Asma dengan Daun-daunan

- Bahan

• Daun Seledri 3 tangkai
• Daun Randu 9 Lembar
• Garam dan Gula Aren secukupnya

Gambar Daun Randu

- Cara Penggunaan dan Pemakaian

• Semua bahan ditumbuk halus menjadi satu, kemudian masukkan ke dalam gelas, tambahkan air 1/2 gelar, aduk rata.
• Diminum setiap pagi, lakukan ini minimal 3 hari.

B. Bahan Ramuan menyembuhkan Asma dengan Bawang Putih dan Madu

- Bahan

• Bawang Putih 5 siung
• Madu asli 1 sendok makan

- Cara Penggunaan dan Pemakaian

• Bawang Putih diiris kecil-kecil lalu direbus dengan 1 gelas air biarkan hingga tinggal 1/2 gelas.  Masukkan madu ke dalam air rebus itu lalu diaduk
• Diminum sekali habis pagi hari.  Sorenya buat lagi, lakukan selama seminggu.
• Selain Cara Mengobati Asma dengan Obat Tradisional , diharapkan mandi dengan air hangat, tidur dan istirahat yang cukup, jangan merokok dan hindarkan udara dingin.

Read more

0 Turbo Pascal Window: Program Membalikkan Kata

Program Membalikkan;
uses wincrt;
var
   i,panjang:integer;
   kata,balik:string;
begin
     clrscr;
     writeln('Balik Kata');
     writeln('==========');
     writeln('Masukkan Sebuah Kata');readln(kata);
     panjang:=length(kata);
     balik:=' ';

     for i:=panjang downto i do
     balik:=balik+kata[i];
     writeln('Hasil Pembalikannya :',balik);
     readln;
end. 

Read more

0 Turbo Pascal Window: Program Bukan Nol

 Program Sederhana untuk menentukan bilangan tersebut 0 atau bukan... Konyol memang... tetapi penting sebagai dasar pembelajara. Haha... Check it out! Bentuk Program sebagai berikut:
Program BukanNol;
uses wincrt;
var
   x:integer;
begin
     clrscr;
     write('Masukkan Nilai 0!:');readln(x);
     while x<>0 do
     begin
     clrscr;
     write('Masukkan Nilai 0!:');readln(x);
     end;
write('Terima Kasih telah memasukkan nilai 0:)');
readln;
end.

Read more

0 Turbo Pascal Window: Password

Kadang untuk proteksi , password merupakan hal yang sangat penting. Dan ternyata, password juga dibuat menggunakan bahasa program. Contohnya sebagai berikut:
program password;
uses wincrt
var
    x:string;
begin
    clrscr;
    write('masukkan password! : ');readln(x);
    while x <> 'ampera' do
    begin
    clrscr;
    writeln('password anda salah');
    writeln;
    write('masukkan password! :');readln(x);
    end.
clrscr;
writeln('password anda benar!');
readln;
end.

Outputnya Jika kita memasukkan Kata yang salah (contoh di atas: bukan AMPERA) maka akan memunculkan pesan 'Password Anda Salah!' Kemudian perintah baru untuk memasukkan password kembali. Jika kita mengetikkan AMPERA maka akan keluar perintah 'Password Anda Benar.' ^^

Read more

2 Turbo Pascal Window: Deret Hitung Real Bentuk Segitiga Paskal

 Berikut adalah Program Pascal untuk membuat segitiga siku-siku namun dengan deret hitung bilangan real 1,2,3,4 dst. Check it out:
Program DeretAngkaSikuSiku;
uses wincrt;
var
   i,j,m:integer;
begin
     clrscr;
     write('Masukkan Sembarang Angka: ');readln(m);
     i:=1;
     while i<=m do
     begin
          j:=1;
          while j<=i do
          begin
               j:=j+0;
               write(j);
               inc(j);
          end;
          writeln;
          inc(i);
     end;
     readln;
end.

Read more

1 Turbo Pascal Window: Program Segitiga Pascal Dengan Inputan Apapun

Berikut adalah input koding untuk membuat program segitiga pascal dengan menggunakan variable tunggal apa saja yang dideret sebanyak 10 kali... ^^
berikut codingnya:
Program SegitigaSikuSiku;
uses wincrt;
var
   i,j:integer;
   m:char;
begin
     clrscr;
     write('Masukkan Sembarang Karakter: ');readln(m);
     i:=1;
     while i<=10 do
     begin
          j:=1;
          while j<=i do
          begin
               write(m);
               inc(j);
          end;
          writeln;
          inc(i);
     end;
     readln;
end.

Read more

1 Turbo Pascal Window: Membuat Segitiga Berbintang

Program BintangSegitiga;
uses wincrt;
var
   i,j,m:integer;
begin
     clrscr;
     write('Masukkan Sembarang Angka: ');readln(m);
     i:=1;
     while i<=m do
     begin
          j:=1;
          while j<=i do
          begin
               write('*');
               inc(j);
          end;
          writeln;
          inc(i);
     end;
     readln;
end.

Read more

4 Turbo Pascal Window: Segitiga Paskal Terbalik

Program SegitigaPascalTerbalik;
uses wincrt;
var
   a,b,c,d:integer;

begin
     clrscr;                
     write('masukkan angka : ');readln(a);
     c:=a;
     for b:=1 to a do
     begin
          for d:=1 to c do
          begin
          write('*');
     end;
     writeln;
     dec(c);
     end;
     readln;
end.

Read more