cara membuat program agar bisa di ulang atau tidak di pascal

hallo programmer..
kali ini saya mau sharing cara agar program bisa di ulang dari awal atau tidak, biasanya ini sangat di butuhkan, agar pemakai jadi nyaman untuk memilih apakah ingin mengulang dari awal atau tutup ketika menjalan kannya.

sebenarnya cara menggunakan seperti ini sangatlah gampang, namun bagi para pemula mungkin sedikit lebih bingung, kita bisa menggunakan label. sudah tau label dalam pascal kan ?
label >if then goto.

baiklah, mari kita mulai ,

• menggunakan label >if then >goto.
  
  contohnya seperti ini,
  
  uses crt;
  var
  nama, alamat :string(20);
  label awal;
  lagi :char;
  begin
  awal:
  end;
  begin
  clrscr;
  write('nama kamu :'); readln(nama);
  write('alamat kamu :'); readln(alamat);
  writeln(nama);
  writeln(alamat);
  write('apakah ingin memulai lagi [y/n] ?'); readln(lagi);
  if lagi:='y' then
  goto awal;
  end.
  
  Penjelasan:
  (label awal) kita sudah mendefinisikan label awal di paling awal program, dan ketika ada pertanyaan (apakah ingin memulai lagi[y/n]) pilihannya y/n, dan yg di inputkan di masukkan ke variael lagi. dan variabel "lagi" di definisikan dengan if then goto. artinya apa,[ if lagi:='y' then goto awal ] jika kita mengartikan pada bahasa manusia bisa seperti ini,
  jika variable "lagi" adalah "y" maka pergi ke label "awal" dan jika "n" maka tutup program.
  
  mudah bukan ?
  
  semoga bermanfaat.
  

Share

Like

G+

Tweet

Tweet