Cara Mengulang kembali program di turbo pascal

Hai gan,gimana kbarnya kalian semua?,semoga baik2 semua ,udah lama nih ane gk posting dikarenakan penat akan kesibukan sekolah (Pulang jam 4 boss) ,udah kyk kerja aja hehehe tapi seru sih daripada di rumah bosen dan akibatnya liat pelem 'gak jelas' .

Pada kesempatan kali ini ,aku akan bagikan sedikit ilmu tentang code turbo pascal,code yang akan saya share adalah code agar ada menu pilihan untuk mengulang program kembali atau langsung exit program.

Jadi kira2 outputnya seperti ini:

Apakah anda ingin mengulang program [y/n]

yang digunakan adalah perintah IF dan ELSE gan hehehe,langsung aja contoh programnya:

uses crt;
var
k,r: real;
a:char;
const  phi = 3.14;
label
1,2,3;
begin
1:clrscr;
writeln('Program by Faizal Rahman/begodol blog');
writeln;
writeln('Menghitung Keliling Lingkaran');
write('Jari-Jari = ');
readln(r);
k := 2*phi*r;
write('Keliling Lingkaran = ',k:9:2);

2:Writeln;
writeln;
writeln('Apakah  Anda Ingin mengulang Program kembali [y/n]  ?');readln(a);
if a='y'then goto 1
else if a='n' then goto 3;
3:
end.

---------------------------------------------

Pada label 2:.inilah kode programnya gan untuk menampilkan menu mengulang program lagi atau menutupnya

[y/n]bisa agan ganti sesuai keinginan namun pastikan juga mengganti persyaratan IF dan ElSE
menjadi kata/huruf/angka yang agan rubah.

writeln;  ---> yang tidak ada tulisannya digunakan untuk membuat pargraft baru dibawah pada pascal


segitu dulu gan ilmu yang bisa ane bagikan,soalnya mau menggarap tugas-tugas yang tiada habisnya heheheh,kalau ada saran atau pertanyaan silahkan tulis di kolom komentar,mimin jamin pasti akan dibalas :c....

Jumpa lagi di postingan berikutnya