• Twitter
  • Technocrati
  • stumbleupon
  • flickr
  • digg
  • youtube
  • facebook

Follow our Network

Flashback Powerpoint Meaning

0

Label:

Reaksi: 


Assalammu'alaikum..
Share Powerpoint topik, meski terbilang Jadul..untuk orang yg profesional dibidang PPT..hehe
check this out..!!

Perangkat lunak Powerpoint adalah perangkat lunak yang dirancang untuk mengembangkan/membuat presentasi menjadi lebih menarik. Perangkat lunak ini dikembangkan oleh Microsoft yang merupakan pembuat perangkat terbesar saat ini.

Beberapa manfaat yang dapat dipetk dari perangkat aplikasi Powerpoint sebagai alat bantu presentasi adlah sebagai berikut:

Contoh Program Medium : Searching TPW

0

Label:

Reaksi: 


-------------------------------------------------------------------------
Program searching;
Uses wincrt;
Var
DATA:array [1..5]of string;
i,posisi:integer;
cari:string;
status:boolean;
begin
for i:=1 to 5 do
 begin
  write('masukkan data ke-',i,':');readln(data[i]);
 end;

Contoh Program Medium TPW bag. 11

0

Label:

Reaksi: 


-------------------------------------------------------------
Program Procedure_Berparameter;
Uses wincrt;
Procedure kali (a,b:integer);
Var
c:integer;
begin
c:=a*b;
writeln(' ');
writeln('Nilai C=',c);
writeln(' ');
writeln('Thank You...!!');
end;
var
x,y:integer;
begin
  write('Nilai X? ');readln(x);
  write('Nilai Y? ');readln(y);
  kali(x,y);
end.

--------------------------------------------------------------

Contoh Program Medium: Matrix TPW bag.10

0

Label:

Reaksi: 


------------------------------------------------------------------------
Program matrix;
Uses wincrt;
Var
data:array[1..100,1..100] of integer;
i,j,n,m,a:integer;
Begin
  Write('jumlah baris: ');readln(n);
   Write('jumlah kolom: ');readln(m);
   Writeln;
   Writeln('matrix ber-ordo ',n,'x',m);

Contoh Program Array Sederhana TPW bag. 9

0

Label:

Reaksi: 


--------------------------------------------------------------------------
Program Input_array;
Uses wincrt;
Var
n,i:integer;
a:array[1..10] of integer;
begin
  write ('banyaknya data= ');readln(n);
for i:=1 to n do
begin
  write('data ke-',i, '=');readln(a[i]);
end;
writeln;
writeln('data yang anda masukan sebagai berikut: ');
for i:=1 to n do
 writeln(a[i]);
end.

-------------------------------------------------------------------------
Program Dengan_Array;
Uses wincrt;
Var
D:array[1..5] of integer;
Jumlah,i:integer;
Begin
Jumlah:=0;
For i:=1 to 5 do
Begin
Write ('data ke-',i,':');
Readln(D[i]);
Jumlah:=D[i]+jumlah;
End;
For i:=1 to 5 do
Writeln(D[i]);
Write('Jumlah array: ',jumlah);
writeln(' ');
writeln('Hatur Nuhun tos nganggo ieu program..!!');
End.

--------------------------------------------------------------------------

NB: you can copy paste, but remember..put writer's name and URL's..Ok thank you ^^

Contoh Program Medium TPW bag. 8

0

Label:

Reaksi: 


-------------------------------------------------
Program mod_div;
Uses wincrt;
Var
a,b:array [1..10] of integer;
i:integer;

Contoh Program Sederhana TPW bag. 7

0

Label:

Reaksi: 


------------------------------------------------------------------
Program Repeat_Until;
Uses wincrt;
Var
X:integer;
I:integer;
Begin
Write ('Mengulang sebanyak: ');readln(i);
X:=0;
If i > 0 then
Repeat
x:=x+1;
writeln(' I Love U forever');
until x=i
else
writeln('Pengulangan harus  > 0');
end.

------------------------------------------------------------------

Program Factorial;
Uses wincrt;
Var
I,n,f:integer;
Begin
f:=1;
write('nilai n: ');readln(n);

for i:=1 to n do
f:= f*I;
writeln('nilai factorial dari n= ',f);
end.

------------------------------------------------------------------

Contoh Program Sederhana TPW bag. 6

0

Label:

Reaksi: 

Assalammu'alaikum Wr. Wb
Selamat Hari Raya Idul Fitri...meskipun telat hehehehehe..
Kali ini saya share ilmu lagi nih..seperti biasa tentang bahasa pemrograman TPW..!!
Mangga..diraos...

------------------------------------------------------------------
Program Honor_Jam;
Uses wincrt;
Const
Gol_a=250;
Gol_b=200;
Gol_c=150;
Gol_d=100;
Var
Nama:string[15];
Gol:char;
I,jam, honor:integer;
Total:real;

Lirik JKT48 - Heavy Rotation (Ind. ver)

0

Label:

Reaksi: 


  • one two three four
    i want you (i want you) i need you (i need you)
    i love you (i love you) di dalam benakku
    keras berbunyi irama musikku, heavy rotation
    seperti popcorn yang meletup-letup
    kata-kata suka menari-nari
    wajahmu suaramu selalu ku ingat
    membuatku menjadi tergila-gila
    oh senangnya miliki perasaan ini
    ku sangat merasa beruntung

Lirik Lagu U-KISS -Believe with Translate

0

Label:

Reaksi: 


 Romanization :

[AJ]  Hey ladies and gentlemen
[Kim Eli] Want you to listen
[AJ]  Wanna know what it is
[Kim Eli] Hear this yeah
[AJ] It’ our believe



[Kevin]  Shijakkwah kkeu-teun hangsang chesbakwiira-go
Saenggakhajima ma-eumi

Teks Proklamasi Kemerdekaan RI

1

Label: ,

Reaksi: 

Assalammu'alaikum Wr.Wb
Hai..ketemu lagi nih dengan ana..kali ini ana share teks Proklamasi Indonesia..bagi kamu - kamu yang merasa kurang peduli sama sejarah Indonesia, mending liat nih postingan ana..dan kamu boleh copas..!!
Check This Out..!!

Kami bangsa Indonesia dengan ini menyatakan kemerdekaan Indonesia, hal-hal yang mengenai pemindahan kekuasaan dan lain - lain diselenggarakan dengan cara seksama dan dalam tempo yang sesingkat-singkatnya.

Jakarta, 17 Agustus 1945
Atas nama bangsa Indonesia
Soekarno - Hatta

Oke..
Segitu dlu yach..
sampai jumpa di postingan berikutnya..
Wassalammu'alaikum Wr.Wb..

NB: Boleh Copas, tapi cantumin penulis sama link sumbernya..Ok!!
Created By: Tio Muchtar (MUCHTAR Family) ^^

Contoh Program Sederhana Turbo Pascal bag. 5

0

Label:

Reaksi: 

Assalamu'alaikum Wr. Wb..
Hello blogger..ketemu lagi dengan ana di bulan Ramadhan yang penuh berkah ini..
Seperti biasa, kali ini ana share contoh program dari Tpw..mangga check this out..!!

Program Determinan;
uses wincrt;
var
a:integer;
b:integer;
c:integer;
d:integer;

begin
  write('Nilai A= ');read(a);
  write('Nilai B= ');read(b);
  write('Nilai C= ');read(c);

  d:=SQR(b)-4*a*c;

  write('Determinan =',d);

end.


--------------------------------------------------------

Program Sederhana Turbo Pascal Bag.4

0

Label:

Reaksi: 

assalammu'alaikum..
kembali ke Progg..ram..hehehehe bukan laptop, atau tangtop yach..monnggo di check this out..!!

program perhitungan2;
uses wincrt;
var
a,b:integer;
C:real;
op:string;

begin
write('Nilai A=');readln(a);
write('Operasi [+,-,/,*]=');readln(op);
write('Nilai B=');readln(b);

if op='+' then
  C:=a+b
else
if op='-' then
  C:=a-b
else
if op='*' then
  C:=a*b
else
if op='/' then
  C:=a/b

else
writeln ('tanda operasi harus +,-,* atau /');

writeln('hasil',a,op,b,'=',C:2:2);

writeln(' ');
writeln('Thank You for using this Program..!!');
end.


NB: boleh copas, tapi mesti cantumin sumber dan penulisnya..Ok sob..!!

created by: Tio RM (Muchtar Family)

Social Media

  • Subscribe via email

    Enter your email address:

    Delivered by FeedBurner

    Techno 4 U