Jawaban:

Berikut ini adalah contoh program Pascal untuk memvalidasi input n sehingga pasti bernilai positif:

Penjelasan:

program ValidatePositiveInput;

// Program ini akan memvalidasi input n sehingga pasti bernilai positif

var

n: Integer; // Variabel untuk menyimpan input dari user

begin

// Selalu lakukan pengulangan selama input tidak valid

repeat

Write('Masukkan sebuah bilangan positif: ');

ReadLn(n); // Baca input dari user

// Cek apakah input merupakan bilangan positif

if n <= 0 then

begin

// Jika tidak, tampilkan pesan error

WriteLn('Maaf, input yang Anda masukkan tidak valid. Silakan coba lagi.');

end;

until n > 0; // Ulangi pengulangan sampai input valid

// Setelah input valid, tampilkan nilai n

WriteLn('Nilai yang Anda masukkan adalah: ', n);

end.

Pada program di atas, ku pake perulangan repeat ... until untuk memvalidasi input dari user. Perulangan ini akan terus berjalan sampai input yang dimasukkan oleh user adalah sebuah bilangan positif (lebih besar dari 0). Jika input tidak valid, maka program akan menampilkan pesan error dan meminta user untuk memasukkan input lagi. Setelah input valid, maka program akan menampilkan nilai n yang telah dimasukkan oleh user.