Pseudocode Mencari kelulusan Turbo Pascal

Pseudocode Mencari kelulusan Turbo Pascal, Rumus Peseuducode untuk mencari kelulusan dengan mudah dan paling dasar menggunakan program Turbo Pascal versi 7, berikut akan saya sher tutorial paling mendasar untuk membuat Program yang berfungsi untuk mnecari tingkat kelulusan, semoga bermanfaat dan dapat digunakan shingga dikembangkan ketingkat berikutnya.

Berikut beberapa Peseudocode Menghitung Kelulusan Turbo Pascal :

Tingkat Awal :

Program Cari_Kelulusan;

Uses Crt;

VAR nilai : integer;

    nama  : string;

Begin

  Write(‘Nama siswa  : ‘);Readln(nama);

  Write(‘Nilai siswa : ‘);Readln(nilai);

  IF nilai >= 60 THEN

     begin

       write(‘Siswa Tersebut : ‘);

       writeln(‘ – L U L U S -’);

     end;

End.

Tampilan hasil:

Hasil eksekusi:                  

Nama siswa  : Muhammad

Nilai siswa : 76

Siswa Tersebut : - L U L U S -

Tingakat Berikutnya menggunakan IF Then Kombinasi:

Kita akan membuat Nilai kelulusan dengan criteria :

Nilai >/ 85 = a

Nilai >/ 68 = b

Nilai >/ 50 = c

Nilai>/ 30 = d

Dibawahnya nilai maka mendapat nilai : e

Simak dibawah ini:

Program Kelulusan;

Uses Crt ;

Var nilai : integer;

    nama  : string;

    huruf : char;

begin

    write ('nama siswa : ') ; Readln (nama);

    write ('nilai siswa :') ; Readln (nilai);

    if nilai >=60 Then

    begin

                write ('Siswa Tersebut ;');

                writeln ('LULUS');

    end;

    If nilai >= 80 Then Huruf:='A' Else

    If nilai >= 68 Then Huruf:='B' Else

    If nilai >= 50 Then Huruf:='C' Else

    If nilai >= 30 Then Huruf:='D' Else

    Huruf:='E';

    Writeln ('Dengan Hasil Nilai ; ',huruf);

End.

Hasil Tampilan :

Nama siswa  : Muhammad

Nilai siswa : 76

Siswa Tersebut : - L U L U S -

Dengan Hasil Nilai : B

Nah, demikian sher  singkat mengenai Turbo Pascal semoga bermanfaat . jika masih kurang memuaskan bisa komen dan dibahas bersama-sama dan saling belajar. Sekian dulu monggo berkomentar.