Pascal - Program Nilai Ujian dgn Output Huruf

Siang sobat, Kali ini saya share tentang tugas dari Kampus, dengan Mata Kuliah Algoritma & Pemrograman.

Tugasnya yaitu mencari Nilai akhir dengan bentuk Output Huruf.

Langsung saja Copas Listingnya :

Klik show untuk melihat

PROGRAM MENCARI_NILAI_DENGAN_BENTUK_OUTPUT;
USES CTR;
VAR NIM:STRING[9];
NAMA:STRING[30];
NM,NS,NA:REAL;
NH:CHAR;

BEGIN
CLRSCR;
WRITELN;
WRITELN('PROGRAM NILAI UJIAN');
WRITELN;
WRITELN('=================================');
WRITELN;
WRITE('NIM : ');READLN(NIM);
WRITE('NAMA : ');READLN(NAMA);
WRITE('NILAI MID : ');READLN(NM);
WRITE('NILAI SEMESTER : ');READLN(NS);

NA:=(0.4*NM)+(0.6*NS);

IF NA>=80 THEN
BEGIN NH:='A';
END
ELSE

IF NA>=70 THEN
BEGIN NH:='B';
END
ELSE

IF NA>;=56 THEN
BEGIN NH:='C';
END
ELSE

IF NA>;=45 THEN
BEGIN NH:='D';
END
ELSE

BEGIN NH:='E';
END;

WRITELN('NIM AKHIR : ',NA:4:1)
WRITELN('NIM : ',NH);
WRITELN;
WRITELN('=================================');
READLN;
END.

Semoga Bermanfaat.