CARA MEMBUAT PROGRAM KALKULATOR CINTA DENGAN TURBO PASCAL
Ikuti langkah-langkah berikut:
=> Buka Turbo Pascal
=> copy kode berikut
Program Kalkulator_Cinta;
uses wincrt;
var Saya, Pacar : string;
PS, PP, Prosentase: real;
Begin
clrscr;
write ('Nama Anda:');
readln (Saya);
write ('Nama Pasangan Anda:');
readln (Pacar);
PS := length (Saya);
PP := length (Pacar);
IF PS<PP then
Prosentase := (PS/PP)*100
else
Prosentase := (PP/PS)*100;
witeln ('Prosentase Cinta',Saya,'dan',Pacar,'adalah',Prosentase:3:),'%');
readln;
end.
=> Blok semua kode diatas, dan paste di Turbo Pascal
=> tekan alt+F9 untuk menguji, jika berhasil akan keluar tulisan compile successfull
=> Simpan dengan nama (terserah anda.pas) atau jika ingin jadi program maka simpan (terserah anda.exe).