Laporan Program Sederhana Pascal Ubuntu

LAPORAN PROYEK AKHIR

MATA PELAJARAN TEKNOLOGI INFORMASI DAN KOMUNIKASI

SEMESTER 3 T.A 2013/2014

SMA UNGGUL DEL

Oleh:

Maria Theresia Simanjorang

XI IPA 1

112078

A. Nama Program

“Menghitung Nilai Akhir Semester”

B. Tujuan

Tujuan pembuatan program adalah untuk membantu dalam penghitungan nilai akhir semester siswa.

C. Program

program Menghitung_Nilai_Akhir;

uses crt;

var

ns,mapel: string[30];

nis: longint;

nuh1,nuh2,nuas,nuts,na: real;

grade: string;

writeln('________Nilai AKHIR SEMESTER SISWA SMA UNGGUL DEL________');

writeln('---------------------------------------------------------');

writeln('Selamat Datang di Program Menghitung Nilai Akhir Semester');

writeln('=========================================================');

writeln;

writeln('Silakan input identitas dan nilai anda :');

write('Nama Siswa :');readln(ns);

write('NIS :');readln(nis);

write('Mata Pelajaran :');readln(mapel);

write('Nilai UH1 :');readln(nuh1);

write('Nilai UH2 :');readln(nuh2);

write('Nilai UTS :');readln(nuts);

write('Nilai UAS :');readln(nuas);

na:=(nuh1+nuh2+nuts+(2*nuas))/5;

begin

if (na>=90) and (na<=100) then

grade:='A (Lulus Dengan Sangat Memuaskan)'

else if (na>=85) and (na<=89) then

grade:='B (Lulus Dengan Sangat Baik)'

else if (na>=80) and (na<=84) then

grade:='C (Lulus dengan baik)'

else if (na>=75) and (na<=79) then

grade:='D (Lulus mencapai KKM)'

else if (na>=70) and (na<=74) then

grade:='E (Lulus dengan penugasan)'

else if (na<=69) then

grade:='F (Tidak Lulus)'

else if (na>100) then

grade:='Maaf, grade tidak ada, nilai anda tidak sesuai'

end;

writeln;

writeln('Berdasarkan data yang masukkan, maka dapat diketahui bahwa;');

writeln('Siswa bernama :',ns);

writeln('NIS :',nis);

writeln('Pada Mata Pelajaran :',mapel);

writeln('Telah Mencapai Nilai :',na:2:0);

writeln('Dengan Grade :',grade);

writeln;

writeln('Untuk Kepastian Nilai, Silakan Hubungi Guru Mata Pelajarannya');

writeln('-------------------------------------------------------------');

writeln;

writeln('Terima Kasih Telah Mencoba Program Ini :)');

writeln('===================================================');

readln;

end.