Turbo pascal hitung nilai mahasiswa
- Dapatkan link
- Aplikasi Lainnya
program data_mahasiswa;
uses crt;
uses crt;
type
mahasiswa=record
nim:string;
nama:string;
presnsi,uas,uts,tugas:integer;
nilai:real;
grade:char;
end;
mahasiswa=record
nim:string;
nama:string;
presnsi,uas,uts,tugas:integer;
nilai:real;
grade:char;
end;
var
mhs:array [1..10] of mahasiswa;
i,j,x:integer;
jml:integer;
kode_mk:integer;
nama_mk:string;
begin
clrscr;
j:=0;
writeln(‘=====================================’);
writeln(‘ PROGRAM HITUNG NILAI ‘);
writeln(‘=====================================’);
write(‘Masukan Jumlah Data : ‘);readln(jml);
write(‘Masukan Kode Matakuliah : ‘);readln(kode_mk);
writeln;
if kode_mk =151 then
begin
nama_mk:=’Algoritma & Pemograman’;
end
else
if kode_mk=422 then
begin
nama_mk:=’Linux 1′;
end
else
if kode_mk=733 then
begin
nama_mk:=’PPN II (Access)’;
end
else
if kode_mk=772 then
begin
nama_mk:=’DBMS’;
end
else
begin
nama_mk:=”;
end;
mhs:array [1..10] of mahasiswa;
i,j,x:integer;
jml:integer;
kode_mk:integer;
nama_mk:string;
begin
clrscr;
j:=0;
writeln(‘=====================================’);
writeln(‘ PROGRAM HITUNG NILAI ‘);
writeln(‘=====================================’);
write(‘Masukan Jumlah Data : ‘);readln(jml);
write(‘Masukan Kode Matakuliah : ‘);readln(kode_mk);
writeln;
if kode_mk =151 then
begin
nama_mk:=’Algoritma & Pemograman’;
end
else
if kode_mk=422 then
begin
nama_mk:=’Linux 1′;
end
else
if kode_mk=733 then
begin
nama_mk:=’PPN II (Access)’;
end
else
if kode_mk=772 then
begin
nama_mk:=’DBMS’;
end
else
begin
nama_mk:=”;
end;
if jml>10 then
begin
writeln(‘Melebihi Kapasitas’);
end
else
begin
for i:=1 to jml do
begin
with mhs[i] do
begin
write(‘Nilai ke- ‘,i,’ dari ‘,jml);writeln;
write(‘NIM : ‘);readln(nim);
write(‘Nama : ‘);readln(nama);
write(‘Nilai Presensi: ‘);readln(presnsi);
write(‘Nilai UTS : ‘);readln(uts);
write(‘Nilai UAS : ‘);readln(uas);
write(‘Nilai Tugas : ‘);readln(tugas);
writeln;
writeln;
writeln;
nilai:=(20/100*tugas)+(20/100*uts)+(10/100*presnsi)+(50/100*uas);
if nilai >= 80 then
begin
grade:=’A’;
j:=j+1;
end
else
if (nilai <=79) and (nilai>=70) then
begin
grade:=’B’;
j:=j+1;
end
else
if (nilai <=69) and (nilai>=60) then
begin
grade:=’C’;
j:=j+1;
end
else
if (nilai <=59) and (nilai>=50) then
begin
grade:=’D’;
x:=x+1;
end
else
begin
grade:=’E’;
x:=x+1;
end;
end;
end;
writeln(‘Kode Mata Kuliah : ‘,kode_mk);
writeln(‘Mata Kuliah : ‘,nama_mk);
writeln;
writeln(‘===============================================================================’);
writeln(‘NIM’:10,’Nama’:15,’Presensi’:10,’UTS’:7,’UAS’:7,’Tugas’:8,’Nilai’:10,’Grade’:10);
writeln(”:10,’Mhs’:15,”:10,”:7,”:7,”:8,”:10,”:10);
writeln(‘===============================================================================’);
for i:=1 to jml do
begin
with mhs[i] do
begin
writeln(nim:10,nama:15,presnsi:10,uts:7,uas:7,tugas:8,nilai:10:2,grade:10);
end;
end;
end;
writeln(‘===============================================================================’);
writeln;
write(‘ Jumlah Mahasiswa Yang Lulus Adalah : ‘,j);
writeln;
write(‘ Jumlah Mahasiswa Yang tidak lulus Adalah : ‘,x);
readln;
end.
begin
writeln(‘Melebihi Kapasitas’);
end
else
begin
for i:=1 to jml do
begin
with mhs[i] do
begin
write(‘Nilai ke- ‘,i,’ dari ‘,jml);writeln;
write(‘NIM : ‘);readln(nim);
write(‘Nama : ‘);readln(nama);
write(‘Nilai Presensi: ‘);readln(presnsi);
write(‘Nilai UTS : ‘);readln(uts);
write(‘Nilai UAS : ‘);readln(uas);
write(‘Nilai Tugas : ‘);readln(tugas);
writeln;
writeln;
writeln;
nilai:=(20/100*tugas)+(20/100*uts)+(10/100*presnsi)+(50/100*uas);
if nilai >= 80 then
begin
grade:=’A’;
j:=j+1;
end
else
if (nilai <=79) and (nilai>=70) then
begin
grade:=’B’;
j:=j+1;
end
else
if (nilai <=69) and (nilai>=60) then
begin
grade:=’C’;
j:=j+1;
end
else
if (nilai <=59) and (nilai>=50) then
begin
grade:=’D’;
x:=x+1;
end
else
begin
grade:=’E’;
x:=x+1;
end;
end;
end;
writeln(‘Kode Mata Kuliah : ‘,kode_mk);
writeln(‘Mata Kuliah : ‘,nama_mk);
writeln;
writeln(‘===============================================================================’);
writeln(‘NIM’:10,’Nama’:15,’Presensi’:10,’UTS’:7,’UAS’:7,’Tugas’:8,’Nilai’:10,’Grade’:10);
writeln(”:10,’Mhs’:15,”:10,”:7,”:7,”:8,”:10,”:10);
writeln(‘===============================================================================’);
for i:=1 to jml do
begin
with mhs[i] do
begin
writeln(nim:10,nama:15,presnsi:10,uts:7,uas:7,tugas:8,nilai:10:2,grade:10);
end;
end;
end;
writeln(‘===============================================================================’);
writeln;
write(‘ Jumlah Mahasiswa Yang Lulus Adalah : ‘,j);
writeln;
write(‘ Jumlah Mahasiswa Yang tidak lulus Adalah : ‘,x);
readln;
end.
- Dapatkan link
- Aplikasi Lainnya
Postingan populer dari blog ini
Komponen Utama Komputer
Komponen Utama Komputer Komponen-komponen komputer yang melekat dalam komputer personal merupakan benda penting yang bisa dikatakan sebagai nyawa dari komputer kita. Tanpa adanya salah satu dari komponen-komponen komputer berikut ini, komputer tidak akan dapat beroperasi dengan baik, malah kadang tidak dapat berfungsi sama sekali. Agar dapat menjaga komputer anda dalam kondisi baik, ada baiknya kita mengenal lebih akrab komponen-komponen komputer beserta fungsinya. Komponen Utama dalam Komputer Komponen pertama yang perlu kita kenal adalah motherboard. Motherboard merupakan komponen perangkat keras atau hardware paling penting dari seluruh komponen lain;di sinilah komponen penting lainnya terpasang, seperti hard disk, prosessor, memori, dan lainnya. Prosesor adalah bagian dari komponen komputer yang bertugas sebagai otak mesin. Ada pula RAM yang merupakan komponen yang bertugas menyimpan data sementara dari program yang tengah dijalankan. Video card dan sound card menjad
Hitung nilai mahasiswa pascal
Hitung nilai kehadiran mahasiswa pascal program hitung_nilai; var Np:string[6]; Nama:string[30]; NK1,NK2,NK3,NK4,NK5,NK6,NK7,NK8,NK9,NK10,NK11,NK12,NK13,NK14,NK15,TH,NT1,NT2,NT3,NT4,NT5,TT,NM,NF:integer; TNK,TNT,NA:Real; NH:char; begin writeln('menghitung nilai akhir'); write('masukan no pokok:'); readln(NP); write('masukan nama:'); readln(Nama); write('masukan nilai kehadiran ke 1='); read(NK1); write('masukan nilai kahadiran ke 2='); read(NK2); write('masukan nilai kehadiran ke 3='); read(NK3); write('masukan nilai kehadiran ke 4='); read(NK4); write('masukan nilai kehadiran ke 5='); read(NK5); write('masukan nilai kehadiran ke 6='); read(NK6); write('masukan nilai kehadiran ke 7='); read(NK7); write('masukan nilai kehadiran ke 8='); read(NK8); write('masukan nilai kehadiran ke 9='); read(NK9); write('masukan nilai kehadiran ke 10=');read(NK10); wr