prokomp

couple

lshw — Sun, 21 Dec 2008 09:57:48 +0000

program hitung_ple;
kamus
	adv;
	start;
	CC,C1,C2:char;
	jum,Ci:integer;
	kalimat:string;
algoritma
input(kalimat)
start
	while CC'.' do
		 if ((CC='P') or (CC='p'')) then
			adv
			if ((CC='L') or (CC='l))then
				adv
				if  ((CC='E') or (CC='e')) then
			     jum<-jum+1
		adv
	ouput(jum);

program hitung_ple;
kamus
	adv-couple;
	start-cople;
	CC,C1,C2:char;
	jum,Ci:integer;
	kalimat:string;
algoritma
input(kalimat)
start-couple
	while CC'.' do
		adv-couple
		 if ((C1='P') or (C1='p'')) and ((C2='L') or (C2='l))then
			adv-couple
			if  ((C2='E') or (C2='e')) then
			     jum<-jum+1
	ouput(jum);

program hitung_plee;
kamus
	adv-couple;
	start-cople;
	CC,C1,C2:char;
	jum,Ci:integer;
	kalimat:string;
algoritma
input(kalimat)
start-couple
	while CC'.' do
		adv-couple
		 if ((C1='P') or (C1='p'')) and ((C2='L') or (C2='l'))then
			adv-couple
			adv-couple
			if  ((C1='E') or (C1='e')) and ((C2='a') or (C2='A'))then
			     jum<-jum+1
	ouput(jum);

prolab(praktikum internet)

lshw — Tue, 25 Nov 2008 09:05:35 +0000

Buat postingan tentang kesan selama mengikuti praktikum Internet.
{selampraktikum internet menurut saya susah pada tes awal dan tes akhir, untuk jurnal lebih mudah karena masih bisa nanya ma aspraknya}
Buat postingan tentang kesan pengajaran pada praktikum Internet.{banyak ilmu yang selama ini belum pernah saya dapatkan, saya dapatkan disini(thanks)}
Buat postingan tentang kritik dan saran untuk kelangsungan praktikum Internet selanjutnya.
sesekali pas praktikum ada snack atau minuman gitu biar g` terlalu ngantuk.
{buat semuanya dech(mas BIMA,BENI, HANDOKO,ANDANG,AMRUL)
thanks dah bleh nanya2, makasi juga dah mau bagi-bagi ilmu.

lshw — Tue, 25 Nov 2008 09:02:21 +0000

yang pertama masuk wordpress tentunya, terus login, masuk ke halaman admin, masuk menu kelola terus seb-menu ekspor, yang akan dielxport, unduh berkas ekspor(karena pake bahasa indonesia).

lshw — Mon, 17 Nov 2008 02:20:14 +0000

 algoritma pengubahan desimal ke octal?

prorgam desimal_octal;{program ini akan mengubahdari angka desimal ke oktal}

Kamus
angka, ubah:integer;
pil:char;
octal1,octal2:string;

Algoritma
output(‘tekan y untuk melakukan pengubahan desimal k octal’);input(pil);
while (pil=Y) or (pil=y) do
begin
octal2←”
output(‘masukkan nilai yang ingin diubah’);input(angka);
repeat
   ubah←angka mod 8;
   angka←angka div 8;
   octal1 ←inttostr(ubah);
   octal2←octal1 + octal2;
until angka=0
output(‘nilai dalam octal’, octal2)
output(‘tekan y untuk ubah angka lagi’)input(pil);
end.

Hello world!

lshw — Tue, 11 Nov 2008 08:18:29 +0000

Welcome to WordPress.com. This is your first post. Edit or delete it and start blogging!