PEMROGRAMAN PASCAL CONTOH PROGRAM RECORD MAHASISWA

SOAL:

1.  Buatlah sebuah program yang dapat mengolah data mahasiswa dengan ketentuan:

• User menginputkan NIM, Nama, Nilai Kuis, Nilai UTS, dan Nilai UAS.

•   Hasil atau output yang diinginkan: NIM, Nama, Nilai Kuis, Nilai UTS, Nilai UAS, dan Nilai Akhir.

•   Nilai akhir = 20% dari nilai kuis + 30% dari nilai UTS + 50% dari nilai UAS.
  JAWABANNYA:

  1. program recordmhs;
  uses crt ;
  type
  mahasiswa = record
  nim : real;
  nama : string[30] ;
  kuis: real;
  uts: real;
  uas: real;
  akhir: real;
  end;
  var
  recMhs : array[1..50]of mahasiswa ;
  byk: byte;
  i,j,k: integer;
  begin
  clrscr;
  write('Masukkan jumlah mahasiswa: '); readln(byk);
  
  for i:= 1 to byk do
  begin
  write('NIM : '); readln(recMhs[i].nim) ;
  write('Nama : '); readln(recMhs[i].nama) ;
  write('Kuis: '); readln(recMhs[i].kuis) ;
  write('UTS: '); readln(recMhs[i].uts) ;
  write('UAS: '); readln(recMhs[i].uas) ;
  writeln;
  end;
  writeln;
  
  for i:= 1 to byk do
  begin
  recMhs[i].akhir:= 0.2* recMhs[i].kuis + 0.3 * recMhs[i].uts + 0.5 * recMhs[i].uas ;
  writeln('NIM : ',recMhs[i].nim:0:1) ;
  writeln('Nama : ',recMhs[i].nama) ;
  writeln('Kuis: ',recMhs[i].kuis:0:1) ;
  writeln('UTS: ',recMhs[i].uts:0:1) ;
  writeln('UAS: ',recMhs[i].uas:0:1) ;
  writeln('Akhir: ',recMhs[i].akhir:0:1);
  writeln;
  end;
  readln;
  end. 

  NOTE

  JIKA ANDA ANDA  MALAS ATAU LANGSUNG MAU MENJALANKAN PROGRAMNNYA SILAHKAN DOWNLOAD ====>> DISINI!! 

  Jangan lupa comen dan like fb fanpage di sebelah kanan atas.

  thank you happy coding :v :D

Tweet