OM SWASTIASTU, Punapi gatra? he...
baik rekan-rekan sekalian kali ini saya akan memberikan source code pascal yang dapat mendeteksi berapa jumlah huruf hidup, hurup mati serta angka, namun tanpa membaca spasi yang ada. dengan output sebagai berikut:




ini source codenya :


program carihurufhidupmatidanangka;
uses crt;
var b,k,i,j, angka:integer;
n:char;
begin
CLRSCR;
writeln('ANGKA, HURUF MATI DAN HURUF HIDUP DETECTOR');
WRITE('MASUKKAN KATA ATAU KALIMAT YANG DI AKHIRI TITIK(.) : ');
b:=0;
k:=0;
repeat
read(n...
Continue reading ...

Mungkin sebelumnya saya memosting Asscii viewer yang berguna untuk menampilkan hasil dari kode asscii ke charakter, nah rekan-rekan dapat mengonvert dari asscii ke charakter atau sebaliknnya. berikut source kode pada pascal:


PROGRAM ASSCIICHAR;
USES crt;
var i,j: char;
k : integer;
label akhir;
begin
clrscr;
repeat;
writeln;
writeln;
writeln;
writeln('1. ascii to char');
writeln('2. char to ascii');
write('input pilihan, ' + chr(39) + 'Q' + chr(39) +' untuk keluar : ');
j := readkey ;
j := upcase(j);
if j = '...
Continue reading ...

Berikut merupakan sebuah contoh program pada pascal yang menggunakan perulangan :
program anak_ayam;
uses crt;
var n:integer;
begin
write('Masukkan Jumlah Ayam');
readln(n);
writeln('lagu anak ayam:');

if n > 1 then
repeat
writeln('anak ayam turunlah ',n);
writeln('mati satu tinggalah ',n-1);
n:=n-1;
until (n=1);
writeln('anak ayam turunlah 1');
writeln('mati satu tinggalah induknya');
readkey;
end.


ketika program tersebut di run pada pascal maka anda harus mengimput angka, misalkan 7 maka akan terlihat output...
Continue reading ...