Jambiseru.com – Ini contoh program luas ketupat dengan teks warna dan kedap kedip pakai Pascal.
Sebelum memulai, kita harus tahu dulu rumus LUAS KETUPAT. Luas ketupat = (Diagonal 1 x Diagonal 2) / 2. Jika Luas ketupa kita kasih variabel LS, Diagonal 1 = D1 dan Diagonal 2 = D2, maka rumus pascal ialah, LS=((D1*D2)/2).
Baca Juga : Video – Foto – Audio – Teks dan Kegelisahan Media Berbasis Teks
Untuk syntax atau perintah progam Pascal teks berwarna, gunakan TEXTCOLOR dan TEXTBACKGROUND.
Baca Juga : Contoh Program Pascal Luas Trapesium
Syntax colortext berfungsi untuk memberi warna kepada teks yang kita pilih. Sedangkan textbackground untuk mewarnai background atau latar teks.
Lalu warna apa saja yang ada di Pascal? Lumayan lah untuk program dasar satu ini. Dimulai dari warna biru, hijau, kuning, putih, pink, putih dan sebagainya.
Bisa di-googling sendiri syntax warna teks untuk Pascal di internet. Variabel warna teks ini dimulai dari 1-15. Atau bisa juga ditulis karakter warna. Misal, TEXTCOLOR(9); untuk warna merah atau TEXTCOLOR(red).
Lalu syntax teks berkedip, silakan pakai BLINK. Contoh penggunaannya, TEXTCOLOR(red+blink), maka outputnya nanti teks akan berwarna merah dan berkedap-kedip.
Contoh program pascal mencari atau menghitung luas ketupat dengan varias warna teks dan warna background teks serta berkedip, adalah sebagai berikut:
program luas_belah_ketupat;
uses crt;
label 9;
var
D1,D2,LS:real;
JAWAB: char;
begin
9:clrscr;
writeln(‘—————————–‘);
textcolor(9);
textbackground(7);
writeln(‘Program Hitung Luas Ketupat’);
writeln(‘By: Jambiseru.com’);
writeln(‘—————————–‘);
writeln(”);
write(‘Input Nilai Diagonal 1 : ‘);readln(D1);
write(‘Input Nilai Diagonal 2 : ‘);readln(D2);
LS:=((D1*D2)/2);
textcolor(red + blink);
writeln(‘Luas Ketupat = ‘,LS);
textcolor(9);
write(‘Hitung Lagi? (Y/T)’);readln(JAWAB);
IF (JAWAB=’Y’)or(JAWAB=’y’) then goto 9;
IF (JAWAB=’T’)or(JAWAB=’t’) then
textcolor(blue + blink);
writeln(‘TERIMA KASIH – Jambiseru.com-‘);
readln
end.
Itulah contoh program PASCAL menghitung atau mencari LUAS KETUPAT. Program ini sudah dites tim kreatif Jambiseru, jika ada error kecuali kesalahan typo pembaca, silakan beritahu kami di email [email protected]. (red)
JAMBISERU – MEDIA ONLINE JAMBI YANG SIAP MEMBANTU… Anda.
