PASCAL - FOR . . TO

Nah., kali ini saya menShare FOR . . TO pada PACAL ...!!!! langsung aja ... cekidot .. !!

Programnya :

Outputnya :

Logikanya :

1. Pertama ketik “uses crt;” ( gunanya untuk memanggil unit library pada pascal ), lalu ENTER. 
2. Selanjutnya ketik “var k,i : integer;”( untuk peberian harga awal bahwa nilai ini adalah integer ). ENTER. 
3. Kemudian ketik “begin” ( gunanya untuk memulai statement program ), setelah itu ENTER. 
4. Pada tahap ini ketikan “clrscr;” ( gunanya adalah untuk menghilangkan tampilan program sebelumnya), kemudian ENTER. 
5. Lalu ketik “write(‘masukkan deret : ‘);” ( untuk menginput program ). 
6. Kemudian ketik “readln;” ( gunanya untuk menginput data lewat keyboard ke dalam suatu variable), setelah itu ENTER. 
7. Kemudian masukkan program perulangan “FOR … DO” : 
8. For k := 1 to 3 do ( untuk menunjukan bahwa perulangan dilakukan sebanyak 3 kali ) 
9. Begin ( memulai statemen program perulangan) 
10. For i := 1 to 3 do ( menunjukan bahwa banyak data program perulangan sebanyak 3 ) 
11. Write (i); ( untuk menginput nilai i ) 
12. End; (untuk mengakhiri program perulangan ) 
13. Terakhir ketik “End.” ( untuk mengakhiri program ).

Dari pada pusing - pusing baca Logika saya . Mending langsung aja coba Programnya .....!!!! 

SEMOGA BERMANFAAT...!!