couple

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)

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.

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).

 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!

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