PROGRAM STUDY PERKULIAHAN PADA SEMESTER 1

 PROGRAM  STUDY  PERKULIAHAN PADA  SEMESTER   1

uses wincrt;

    function carinilai(x :integer) : char;

    var jawab:char;

    begin

    jawab:='?;    if (x>80) and (x<100) then

    jawab:='A'    else if (x>70) and (x<80) then

    jawab:='B'     else if (x>50) and (x<70) then

    jawab:='C'     else if (x>30) and (x<50) then

    jawab:='D'    else if (x<30) then

    jawab:='E';    carinilai:=jawab;

    end;

var mata_kuliah1,mata_kuliah2, mata_kuliah3, mata_kuliah4, mata_kuliah5, mata_kuliah6, mata_kuliah7, mata_kuliah8, mata_kuliah9, mata_kuliah10:string;nama :string;

    n1,n2,n3,n4,n5,n6,n7,n8,n9,n10:integer; total:integer;  cn:char;  pil:char;

   begin

repeat

clrscr; gotoxy(20,1);writeln('ket. masukan nilai dengan angka satuan');

gotoxy(20,5);writeln('| P R O G R A M   S T U D Y   S E M E S T E R   1  |');

gotoxy(15,7);writeln('|----------------------------------------------------------|');

gotoxy(20,8);write('masukan nama anda : ');readln(nama);

gotoxy(20,9);write('mata kuliah 1    : ');readln(mata_kuliah1);

gotoxy(20,10);write('nilai            : ');readln(n1);

clrscr; gotoxy(20,1);writeln('ket. masukan nilai dengan angka satuan');

gotoxy(20,5);writeln('| P R O G R A M   S T U D Y   S E M E S T E R   1  |');

gotoxy(15,7);writeln('|----------------------------------------------------------|');

gotoxy(20,8);write('mata kuliah 2    : ');readln(mata_kuliah2);

gotoxy(20,9);write('nilai            : ');readln(n2);

clrscr; gotoxy(20,1);writeln('ket. masukan nilai dengan angka satuan');

gotoxy(20,5);writeln('| P R O G R A M   S T U D Y   S E M E S T E R   1  |');

gotoxy(15,7);writeln('|----------------------------------------------------------|');

gotoxy(20,8);write('mata kuliah 3    : ');readln(mata_kuliah3);

gotoxy(20,9);write('nilai            : ');readln(n3);

clrscr; gotoxy(20,1);writeln('ket. masukan nilai dengan angka satuan');

gotoxy(20,5);writeln('| P R O G R A M   S T U D Y   S E M E S T E R   1  |');

gotoxy(15,7);writeln('|----------------------------------------------------------|');

gotoxy(20,8);write('mata kuliah 4    : ');readln(mata_kuliah4);

gotoxy(20,9);write('nilai            : ');readln(n4);

clrscr; gotoxy(20,1);writeln('ket. masukan nilai dengan angka satuan');

gotoxy(20,5);writeln('| P R O G R A M   S T U D Y   S E M E S T E R   1  |');

gotoxy(15,7);writeln('|----------------------------------------------------------|');

gotoxy(20,8);write('mata kuliah 5    : ');readln(mata_kuliah5);

gotoxy(20,9);write('nilai            : ');readln(n5);

clrscr; gotoxy(20,1);writeln('ket. masukan nilai dengan angka satuan');

gotoxy(20,5);writeln('| P R O G R A M   S T U D Y   S E M E S T E R   1  |');

gotoxy(15,7);writeln('|----------------------------------------------------------|');

gotoxy(20,8);write('mata kuliah 6    : ');readln(mata_kuliah6);

gotoxy(20,9);write('nilai            : ');readln(n6);

clrscr; gotoxy(20,1);writeln('ket. masukan nilai dengan angka satuan');

gotoxy(20,5);writeln('| P R O G R A M   S T U D Y   S E M E S T E R   1  |');

gotoxy(15,7);writeln('|----------------------------------------------------------|');

gotoxy(20,8);write('mata kuliah 7    : ');readln(mata_kuliah7);

gotoxy(20,9);write('nilai            : ');readln(n7);

clrscr; gotoxy(20,1);writeln('ket. masukan nilai dengan angka satuan');

gotoxy(20,5);writeln('| P R O G R A M   S T U D Y   S E M E S T E R   1  |');

gotoxy(15,7);writeln('|----------------------------------------------------------|');

gotoxy(20,8);write('mata kuliah 8    : ');readln(mata_kuliah8);

gotoxy(20,9);write('nilai            : ');readln(n8);

clrscr; gotoxy(20,1);writeln('ket. masukan nilai dengan angka satuan');

gotoxy(20,5);writeln('| P R O G R A M   S T U D Y   S E M E S T E R   1  |');

gotoxy(15,7);writeln('|----------------------------------------------------------|');

gotoxy(20,8);write('mata kuliah 9    : ');readln(mata_kuliah9);

gotoxy(20,9);write('nilai            : ');readln(n9);

clrscr; gotoxy(20,1);writeln('ket. masukan nilai dengan angka satuan');

gotoxy(20,5);writeln('| P R O G R A M   S T U D Y   S E M E S T E R   1  |');

gotoxy(15,7);writeln('|----------------------------------------------------------|');

gotoxy(20,8);write('mata kuliah 10   : ');readln(mata_kuliah10);

gotoxy(20,9);write('nilai            : ');readln(n10);

total:=n1+n2+n3+n4+n5+n6+n7+n8+n9+n10;

clrscr;   cn:=carinilai(total); writeln('nilai pada semester 1');

writeln('________________________'); writeln('nama            | total nilai | nilai   '); WRITELN('++++++++++++++++++++++++++++++++++++++++++');

writeln(nama:10,'|',total:15,'|',cn:10,'|');   writeln;    write('apakah anda ingin mengulanginya lagi[Y/T]: ');readln(pil);

until upcase(pil)='Y';

end.