Hitung nilai mahasiswa pascal
- Dapatkan link
- Aplikasi Lainnya
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);
write('masukan nilai kehadiran ke 11=');read(NK11);
write('masukan nilai kehadiran ke 12=');read(NK12);
write('masukan nilai kehadiran ke 13=');read(NK13);
write('masukan nilai kehadiran ke 14=');read(NK14);
write('masukan nilai kahadiran ke 15=');read(NK15);
TH:=15;
TNK:=(NK1+NK2+NK3+NK4+NK5+NK6+NK7+NK8+NK9+NK10+NK11+NK12+NK13+NK14+NK15)*(100
)/TH;
writeln('nilai kehadiran=',TNK:10:2);
writeln;
write('masukan nilai tugas ke 1='); read(NT1);
write('masukan nilai tugas ke 2='); read(NT2);
write('masukan nilai tugas ke 3='); read(NT3);
write('masukan nilai tugas ke 4='); read(NT4);
write('masukan nilai tugas ke 5='); read(NT5);
TT:=5;
TNT:=(NT1+NT2+NT3+NT4+NT5)/5;
writeln('nilai tugas=',TNT:10:2);
writeln;
write('masukan nilai mid=');
read(NM);
write('masukan nilai final=');
read(NF);
NA:=(0.1*TNK)+(0.3*TNT)+(0.3*NM)+(0.3*NF);
writeln('nilai akhir=',NA:10:2);
writeln;
read(NA);
if NA>=75 then
begin
NH:='A';
end
else if(NA>=60) and (NA<80) then
begin
NH:='B';
end
else if(NA>=40) and (NA<60) then
begin
NH:='C';
end
else if(NA>=30) and (NA<40) then
begin
NH:='D';
end
else
NH:='E';
writeln('nilai huruf:',NH);
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
Turbo pascal hitung nilai mahasiswa
Program Hitung Nilai Mahasiswa dengan Turbo Pascal program data_mahasiswa; uses crt; type 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; 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);