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

1 Turbo Pascal: Program Lengkap Membuat Perhitungan Mahasiswa

 Pada Mata Kuliah Paket Program Aplikasi, kami dari kelas Sistem 
Informasi diberikan tugas untuk membuat program dengan ketentuan sebagai
 berikut:

1. Pengecekan operator di mana operator harus dapat memasukkan username dan password yang benar jika ada. Maka proses itu akan berulang terus menerus. (while do)
2. Nilai yang diinputkan ada 4 macam aktivitas kelas, nilai tugas, nilai UTS dan nilai UAS
3. Untuk perhitungan grade didapatkan dari nilai akhir dengan perhitungan
4. Tampilkan nilai akhir mahasiswa, grade dan keterangan lulus (A-D), tidak lulus (E), dan gagal (x)

Berikut tampilang programnya:

Read more

0 Membuat Program Pembagian 1 sampai 10 T.Pascal

Buat teman2 yang lagi buat tugas kul membuat program pembagian 1 to 10 dengan turbo pascal ne aq kasih source code nya.

uses crt;

var

 a,b,c : integer;

 begin

 clrscr;

    a:=0;

    while a < 1 do

    begin

    a:=a+1;

    b:=0;

    while b < 10 do

    begin

    b:=b+1;

    c:=a div b;

    writeln(a,':',b,'=',c:3);

    end;

    writeln;

    end;

    readln;

    end.

Read more

2 Membuat Program Perkalian 1 Sampai 10 Dengan T.Pascal

Pada x ini saya akan Meberitahu source code bagaimana cara membuat program PERKALIAN 1 to 10 dgan turbo pascal,y tentuna saya membuat ini hanya untuk membantu teman2 sekalian yang sedang di beri tugas oleh tugas.langsung aja neh source code nya.

uses crt;

var

 a,b,c : integer;

 begin

 clrscr;

    a:=0;

    while a < 1 do

    begin

    a:=a+1;

    b:=0;

    while b < 10 do

    begin

    b:=b+1;

    c:=a * b;

    writeln(a,':',b,'=',c:3);

    end;

    writeln;

    end;

    readln;

    end.

Read more

0 Menampilkan Angka 1 sampai 10 dengan pascal(fungsi pengulangan for..to..do)

source code untuk menampilkan angka 1 to 10 dengan fungsi for..to..do

uses crt;

  var

  a,b : integer;

  f : longint;

Begin

   clrscr;

   a:=1;

   b:=10;

   for a :=1 to b do

   begin

   writeln(a);

   end;

   readln;

   end.

Read more

0 Menampilkan Angka 1 sampai 10 dengan pascal(fungsi pengulangan for..to..do)

source code untuk menampilkan angka 1 to 10 dengan fungsi for..to..do

uses crt;

  var

  a,b : integer;

  f : longint;

Begin

   clrscr;

   a:=1;

   b:=10;

   for a :=1 to b do

   begin

   writeln(a);

   end;

   readln;

   end.

Read more

0 PASCAL : CONTOH PROGRAM HITUNG UMUR

Listing Program : 

program htg_umur;
uses crt;
var nama: string;
    th_L, umur: integer;
const th_skr:integer=2010;

begin
clrscr;
writeln('    PROGRAM HITUNG UMUR');
writeln('---------------------------');
write('Masukkan nama anda      : '); readln(nama);
write('Masukkan Tahun kelahiran: '); readln(th_L);
  umur:= th_skr - th_L;
writeln('Umur anda sekarang      : ',umur);
readln;
end.

Read more

0 PASCAL - MEMBUAT HASIL NILAI KELIPATAN DARI SEBUAH BILANGAN

Listing Program :

program kelipatan;
uses crt;
var bil,lipat,batas,x : integer;
    lagi : char;
begin
  repeat
     clrscr;
     writeln('MELIPAT ANGKA');
     write('Angka Awal      : ');readln(bil);
     write('Angka Kelipatan : ');readln(lipat);
     write('Panjang Lipatan : ');readln(batas);
     bil := bil - lipat;
     write('Hasil Lipatannya adalah : ');
     for x := 1 to batas do
     begin
          bil := bil + lipat;
          write(bil:4);
     end;
     writeln;
     write('Coba Lagi ? [y/t] : ');readln(lagi);
  until lagi = 't';
end.

Read more

0 Materi Pertemuan 6 (Perulangan)

Perintah perulangan merupakan perintah yang dilakukan secara berulang-ulang dengan terbatas/ terkendali sesuai dengan nilai  yang telah ditentukan. Perulangan tersebut diulang dengan sampai batas tertentu yang kita inginkan. Setelah memenuhi sejumlah yang kita tentukan maka akan keluar dari perulangan atau selesai. 
UnduhSaja Materi Perulangan atau bisa baca file pertemuan pertama Judul " Aturan penulisan pascal " oleh Heriyanto

Flowchart Perulangan:

A. Perulangan menggunakan For.. To.. DO:
FOR variabel := 1     To   n     Do  (untuk perulangan positif :  variabel +1 s/d  variabel = n)
FOR variabel := n     DownTo   1     Do   (untuk perulangan Negatif :  variabel -1 s/d  variabel = 1)
{variabel = nama variabel berupa integer}

Contoh:
Mengulang penulisan "Belajar Perulangan" sebanyak 5 x

Read more

0 30 Cara Membuat Cewek Nyaman Dan Makin Sayang Pasangan

Mau buat pasangan kamu klepek-klepek dan tersenyum2 malu didepan kamu? Berikut ini ada 30 jurus ampuh biar pasangan kamu merasa nyaman dan tersipu malu di depan kamu, semua sudah kami rangkum dalam 30 Cara Membuat Cewek Nyaman Dan Makin Sayang Pasangan  dan sudah pasti hal ini akan membuat pasangan kamu makin sayang sama kamu :
1. Jangan memeluk temannya atau temanmu dimana hal itu bisa membuatnya merasa ditinggalkan.

2. Pegang tangannya pada setiap kesempatan… meskipun hanya sedetik saja.

3. Peluk dia dari belakang.

4. Tinggalkan pesan suara untuk dia untuk membangunkan dia dari tidurnya.

5. Bergulat dengan dia.

6. Jangan pergi jalan-jalan dengan mantanmu jika dia sedang tidak bersama kamu, kamu mungkin tidak mengetahui betapa menyakitkannya hal itu bagi dia.

7. Jika kamu sedang berbicara dengan seorang Cewe, setelah kamu selesai berbicara, berjalanlah dan peluklah dia serta ciumlah dia… Tunjukkan pada dia bahwa dia milikmu dan mereka bukan apa-apa.

8. Tuliskan dia sebuah catatan atau telepon dia hanya untuk sekedar menyapanya… dan tidak hanya pada saat malam hari setelah kamu bepergian dengan Cewe-Cewe lain.

9. Perkenalkan dia pada teman-temanmu… sebagai kekasihmu.

10. Bermain dengan rambutnya.

11. Gendong dia. (buat yang berat badan ceweknya gak memungkinkan untuk di gendong, gak perlu dipaksain, ntar musibah. lanjut aja ke no. 12)

12. Merasa kesal apabila ada Cowo lain memegang-megang dia dan dia tidak menyukainya.

13. Buat dia tertawa, jika kamu bisa membuat dia tertawa. kamu bisa membuat dia melakukan apa saja.

14. Biarkan dia tertidur lelap di dalam pelukanmu.

15. Jika dia marah padamu, cium dia.

16. Jika kamu perhatian pada dia, katakan.

Read more

0 Cara mudah Memasang Password di Flashdisk tanpa software

Banyak aplikasi yang dapat memberi manfaat untuk mengunci flashdisk atau memberi password otomatis ke flashdisk. Tetapi beda lagi dengan postingan kali ini . sebelumnya cara ini saya dapatkan dari seorang programmer yang hebat http://inside-and.blogspot.com

"Cara ini sangat mudah dan bermanfaat apalagi seperti saya bermain di warnet sebelah rumah yang pakai flashdisk harus di comokin dulu di komputer sever. jadi bahaya dong bisa dibuka dari client lainnya"

Cara ini akan otomatis meminta password ketika flashdisk dimasukan ke PC dan jika password salah, maka komputer akan shutdown secara otomatis.
Langsung saja .

Read more