Tugas Akhir DDPK Fisika 2010

Pada semester ganjil tahun ajaran 2011/2012 mahasiswa fisika yang mengambil mata kuliah Dasar Dasar Pemograman Komputer(DDPK) telah berhasil menyelesaikan sebuah tugas Tugas Akhir yaitu berupa Raport Digital yang dibuat melalui Turbo Pascal 7.0 . 

Diharapkan Tugas yang telah dibuat agar terus dikembangkan dan bermanfaat untuk umum khususnya dunia pendidikan, dan diharapkan juga menjadi gebrakan awal dari perkembangan pemogram di Fisika FKIP Unsyiah. Berikut cuplikan coding dan  gambar dari tugas yang telah dibuat:

Screen Shot Gambar 

Cuplikan Coding

PROGRAM TUGAS;
USES CRT;
Label menu,atas;
VAR
lagi: char;
nilai: array[1..10, 1..20] of integer;
sum: array[1..10] of integer;
rata: array[1..10] of real;
nama: array[1..10] of string;
mapel: array[1..10] of string;
jumlah: array[1..10] of real;
nmapel: integer;
nsiswa: integer;
nis, i: integer;
pilihan: integer;
huruf: char;
rank: integer;
BEGIN
nsiswa := 0;
menu:
CLRSCR;
GOTOXY(15,10);WRITELN('=====================================================');
GOTOXY(15,11);WRITELN('LAPORAN HASIL BELAJAR SISWA SMP N.1 BENDAHARA');
GOTOXY(15,12);WRITELN('=====================================================');
GOTOXY(15,13);WRITELN('1.LAPORAN DATA SISWA');
GOTOXY(15,14);WRITELN('2.LIHAT RAPOR MAHASISWA MELALUI NIS');
GOTOXY(15,15);WRITELN('3.EXIT');
GOTOXY(15,16);WRITELN('=====================================================');
GOTOXY(15,17);WRITE('MASUKKAN PILIHAN:');READLN(PILIHAN);
if pilihan = 1 THEN
BEGIN
nsiswa := nsiswa + 1;
atas:
CLRSCR;

WRITELN('DATA SISWA');
WRITELN('==========');
WRITE('NIS: ');READLN(nis);
WRITE('NAMA: ');READLN(nama[nis]);
WRITELN('====================');
WRITE('MASUKKAN JUMLAH MATA PELAJARAN: ');READLN(nmapel);
sum[nis] := 0;
FOR i:=1 TO nmapel DO
BEGIN
GOTOXY(5,7+i);WRITE('MATA PELAJARAN KE ',i:2, '= ');READLN(mapel[i]);

GOTOXY(45,7+i);WRITE('NILAI: ');READLN(nilai[nis,i]);

sum[nis] := sum[nis] + nilai[nis, i];
readln;
END;
rata[nis] := sum[nis] / nmapel;

WRITELN;
WRITE('MAU COBA LAGI[Y/T]: ');READLN(lagi);

if lagi='y' then
goto atas
else goto menu;
END
else
if pilihan = 2 then
BEGIN
CLRSCR;

Ingin Coding yang lengkap Hubungi Mahasiswa Fisika yang mengambil mata kuliah DDPK semester ganjil 2011/2012. hak cipta sepenuhnya milik mereka. 

copyright(c)2012 Fisika 2010

Posted in: Pemograman