Kamis, 05 Januari 2017

Contoh Program Pascal Percabangan dan Perulangan

Contoh Program Pascal Percabangan dan Perulangan - Postingan Kali ini yaitu source code program pascal perulangan dan percabangan tentang program nilai mahasiswa :



program Nilai_Mhs;

uses wincrt;

Const
N : array[1..3] of integer= (1,2,3);

var nama,nim,almt,lagi:char;
    prdkt,prodi:string;
    ntgs,nuts,nuas,na:real;
    a,b,index:integer;

begin

repeat
begin


writeln('1. Pendidikan Ilmu Komputer (Kode= 1 )');
writeln('2. Ilmu Komputer (Kode= 2 )');
writeln('3. Teknik Informatika (Kode= 3 )' );                   
writeln;
writeln;
write('Masukan kode jurusan sesuai di atas      : ');readln(a);

index:=0;
for b:=1 to 3 do begin
if N[b] = a then begin
index:=b


end;
end;

case a of
1 : prodi:='Pendidikan Ilmu Komputer';
2 : prodi:='Ilmu Komputer';
3 : prodi:='Teknik Informatika';
end;

case a of
1 : writeln('Pilihan anda adalah Program Studi yang ditemukan pada index nomor ',index,' dengan Program Studi ',prodi);
2 : writeln('Pilihan anda adalah Program Studi yang ditemukan pada index nomor ',index,' dengan Program Studi ',prodi);
3 : writeln('Pilihan anda adalah Program Studi yang ditemukan pada index nomor ',index,' dengan Program Studi ',prodi);
else
writeln('Data Yang Anda Masukkan Salah');
end;

writeln;
writeln;
writeln;
  Write('Nama                   : ');readln(nama);
  Write('NIM                    : ');readln(nim);
  Write('Alamat                 : ');readln(almt);
  Writeln('Kampus                 : STMIK Indonesia Banjarmasin');
  Writeln('Program Studi          : ',prodi);
  Write('Nilai Tugas            : ');readln(ntgs);
  Write('Nilai UTS              : ');readln(nuts);
  Write('Nilai UAS              : ');readln(nuas);

  na := ntgs*0.3 + nuts*0.3 + nuas*0.4;

  Writeln('Nilai Akhir            : ',na:0:0);

  if (na>=85)and(na<=100) then
  prdkt :='A'
  else
  if (na>=75)and(na<=84) then
  prdkt :='B+'
  else
  if (na>=70)and(na<=74) then
  prdkt :='B'
  else
  if (na>=65)and(na<=69) then
  prdkt :='B-'
  else
  if (na>=60)and(na<=64) then
  prdkt :='C+'
  else
  if (na>=55)and(na<=59) then
  prdkt :='C'
  else
  if (na>=40)and(na<=54) then
  prdkt :='D'
  else
  if (na>=0)and(na<=39) then
  prdkt :='E'
  else
  prdkt :='Data Semua Nilai Yang Anda Isikan Salah!';
  Writeln('Predikat               : ',prdkt);
  write('Apakah Anda Ingin Mengisikan Data Kembali? (y/n) : ');readln(lagi);
  writeln;
  writeln;
  end;

  until lagi = 'n';
  clrscr;


end.


Contoh Gambar Program Di Atas :
Load disqus comments

0 komentar