input : nama,nim,nilai(0-100) jika nilai 80-100 nilai hurufnya dan lulus 70-79 B dan LULUS 60-69 C dan LULUS 50-59 D dan LULUS 0-49 E dan TIDAK LULUS.Bagaimana dalam bentuk pascalnya?

By Posted on

input : nama,nim,nilai(0-100) jika nilai 80-100 nilai hurufnya dan lulus 70-79 B dan LULUS 60-69 C dan LULUS 50-59 D dan LULUS 0-49 E dan TIDAK LULUS.Bagaimana dalam bentuk pascalnya?

Jawaban Terkonfirmasi

Program untuk permasalahan tersebut dalam pascal adalah sebagai berikut

var

nama,nim,ket:string;

nilai:integer;

begin

    writeln('Masukkan nama: ');  

    readln(nama);  

    writeln('Masukkan nim: ');  

    readln(nim);  

    writeln('Masukkan nilai (0-100) :');  

    readln(nilai);  

    if (nilai >= 80)  then

         ket := 'Lulus dengan nilai A'

   else if (nilai >=70) then

         ket := 'Lulus dengan nilai B'

   else if (nilai >=60) then

         ket := 'Lulus dengan nilai C'

   else if (nilai >=50) then

         ket := 'Lulus dengan nilai D'

   else

        ket := 'Tidak Lulus dengan nilai E';

    writeln('Nama :', nama, ' Nim : ',nim, ' Status : ' ,ket);

end.

Pembahasan

Dari soal diminta agar program menerima 3 buah input berupa nama, nim dan nilai. Maka  kita mendeklarasikan variabel yang akan digunakan sebagai langkah awal

    var

   nama,nim,ket:string;

   nilai:integer;

lalu kemudian kita menerima input dari user dan menyimpan masing – masing input ke dalam variabel yang sudah disiapkan sebelumnya

  writeln('Masukkan nama: ');  

  readln(nama);  

baru kemudian kita mengecek nilai sesuai dengan kondisi yang diminta dalam soal.

    if (nilai >= 80)  then

         ket := 'Lulus dengan nilai A'

   else if (nilai >=70) then

         ket := 'Lulus dengan nilai B'

   else if (nilai >=60) then

         ket := 'Lulus dengan nilai C'

   else if (nilai >=50) then

         ket := 'Lulus dengan nilai D'

   else

        ket := 'Tidak Lulus dengan nilai E';

barulah kita mencetak hasil pengecekan nilai tersebut bersama dengan nama dan nim yang dimasukkan oleh pengguna

    writeln('Nama :', nama, ' Nim : ',nim, ' Status : ' ,ket);

Pelajari lebih lanjut  

1. Penjelasan tentang algoritma percabangan brainly.co.id/tugas/18963044

2. Percabangan dalam bahasa pemrograman php brainly.co.id/tugas/3740774

Detail jawaban

Kelas:  10

Mapel:  TIK

Bab:  Mengenal Pemrograman Komputer

Kode:  10.11.06

Kata Kunci:  percabangan, pascal