contoh rumus menggunakan do while

   1.  Soal: 
Buatlah algoritma dan program yang menginputkan sebuah bilangan bulat yang merupakan nilai ujian. Apabila nilai yang diinput < 0 atau > 100 maka cetak perkataan “Data salah, silahkan ulangi lagi” dan ulangi menginput data. Bila nilainya >= 60 maka cetak perkataan “LULUS”, selainnya cetak perkataan “COBA LAGI TAHUN DEPAN”. Gunakan format Do While

uses crt;

var

             nilai: integer;

begin

clrscr;

             write('Masukkan Nilai Mahasiswa    : '); readln(nilai);

             

             while (nilai < 0) or (nilai > 100) do

             begin

                         write('Data salah, Silahkan Ulangi lagi    : '); readln(nilai);

             end;

             writeln;

             

             if (nilai >= 60) then

                         write('Lulus!')

             else

                         write('Coba Lagi Tahun Depan'); readln;

                         

end.