Tuesday, 22 October 2013

Algoritma & Pemrograman (Case of-->Fungsi Percabangan)


Buat Program menampilkan grade nilai !


Saya akan membuat program pengelompokan keberhasilan studi mahasiswa

Jalankan Delphi 7 --> File --> New ---> Other--> Console Application --->
 Masukkan script

program Project2;
{$APPTYPE CONSOLE}
uses
  SysUtils;
 var
  n:integer;
  grade, ket:string;
begin


  writeln ('Program Penentu Grade Pengelompokan Keberhasilan Stui Mahasiswa'); writeln; writeln;
  write ('Masukkan Nilai Anda = '); readln(n);
case n of
  0..25 : begin grade:='E'; ket:='GAGAL';
          writeln('Grade = ', grade);
          writeln('Keterangan  = ', ket); end;
  26..55 : begin grade:='D'; ket:='KURANG';
          writeln('Grade = ', grade);
          writeln('Keterangan  = ', ket); end;
  56..75 : begin grade:='C'; ket:='CUKUP';
          writeln('Grade = ', grade);
           writeln('Keterangan  = ', ket); end;
  76..85 : begin grade:='B'; ket:='BAIK';
          writeln('Grade = ', grade);
          writeln('Keterangan  = ', ket); end;
  86..100 : begin grade:='A'; ket:='SANGAT MEMUASKAN';
            writeln('Grade = ', grade);
            writeln('Keterangan  = ', ket); end;
else writeln('Nilai Salah');

end;
  readln;
end.


Jalankan dengan tekan Run/F9



ini Gambar setelah kita memasukkan nilai


2.Buat program bebas dengan menngunakan case of minimal 3 percabangan listing program & running.!

Kali ini saya akan membuat program pembagian kelas atau jurusan yang berdasarkan nilai..


Jalankan Delphi 7 --->> File---> New---> other--> Console Application
masukkan script

program Project2;
{$APPTYPE CONSOLE}
uses
  SysUtils;
VAR
  nilai:integer;
  GRADE,Kelas:STRING;

begin
    write('nilai=');readln(nilai);
    case nilai of
    56..75:
      begin
      GRADE:='C';
          kelas :='IPS';
      end;
    76..85:
    begin
      GRADE:='B';
          kelas:='BAHASA';
       end;
    ELSE
    GRADE:='A';
          kelas:='IPA';
      end;
      WRITELN('GRADE=',GRADE,' Masuk Kelas=',kelas);{ TODO -oUser -cConsole Main : Insert code here }
      READLN
end.


Jalankan dengan tekan Run/F9
ini Gambar setelah kita memasukkan nilai


Bagikan

Jangan lewatkan

Algoritma & Pemrograman (Case of-->Fungsi Percabangan)
4/ 5
Oleh

Subscribe via email

Suka dengan artikel di atas? Tambahkan email Anda untuk berlangganan.