Turbo Pascal. Pernyataan Goto digunakan untuk memindahkan tata letak atau koordinat kursor pada layar. Bentuk Penulisan : Goto.
Gotoxy(10,15); Writeln( bahasa pascal); Readln; End. More From This User materikuliah1 materikuliah1 M1_INTRO M1_INTRO. Kumpulan Contoh Program Pascal. Contoh Program Kelipatan 5 Repeat Until Pada Pascal - Download as Word Doc (.doc /.docx), PDF File (.pdf), Text File (.txt) or read online. Kumpulan Contoh Program Pascal - Free download as PDF File (.pdf), Text File (.txt) or read online for free. bahasa pemrograman. Komunitas eLearning IlmuKomputer.
XY(kolom, baris)Kolom digunakan untuk menentukan kolom pada layar yang akan ditempati kursor. Baris digunakan untuk menentukan baris pada layar yang akan ditempati kursor. Contoh Penggunaan Prosedur Goto. XY. Program Penggunaan_Go. To. XY. Goto. XY(3.
Write. Ln('Hello World ..'). Hasil dari program diatas akan melakukan pencetakan Hello World pada posisi Kolom: 3.
Kumpulan script program-program pascal bagi Programmer Pemula tingkat SMA. Kebanyakan program-program pada artikel ini merupakan program yang ada kaitannya.
Baris: 1. 2. PROGRAM Latihan_Array. Nama_Siswa : ARRAY[1. OF String. Nil_Mtk : ARRAY[1. OF Integer. Nil_Bhs : ARRAY[1. OF Integer. Nil_Akhir : ARRAY[1. OF Real. A, N : Integer.
Program Turbo Pascal juga merupakan dasar untuk mempelajari bahasa pemrogram yang lain. Disamping itu. Looping.. gotoxy(15. Daftar Penjualan Voucher Fren. GotoXY (55, 8); write (' This PROGRAM was Created By : '); gotoXY (10, 10); write ('Name : Ignatius J'); gotoXY (10, 12); write ('NIM : 10220013. Contoh Penggunaan Prosedur GotoXY: Program Penggunaan_GoToXY; Uses Crt; Begin ClrScr; GotoXY(35, 12). Pemrograman Pascal, Prosedur GotoXY If you like.
Write. Ln('Program Hitung Nilai'). Write. Ln('- -- -- -- -- -- -- -- -- -- -').
Write('Masukan Banyak Data : '). FOR A : = 1 TO N DO. Write. Ln('Data Ke - ',A: 3). Write('Nama Siswa : '); Read.
Ln(Nama_Siswa[A]). Write('Nilai Matematika : '); Read. Ln(Nil_Mtk[A]). Write('Nilai Bahasa : '); Read.
Ln(Nil_Bhs[A]). Write. Ln('Daftar Nilai'). Write. Ln('=============================================================='). Write. Ln('| | Nama Siswa | Nilai | |'). Write. Ln('| No | |- -- -- -- -- -- -- -- -- -- -- -| Nilai Akhir |').
Write. Ln('| | | Matematika | Bahasa | |'). Write. Ln('=============================================================='). FOR A : = 1 TO N DO. Nil_Akhir[A] : = (0. Nil_Bhs[A])+(0. 6. Nil_Mtk[A]). Go. To. XY(1,A+6); Write('|').
Go. To. XY(3,A+6); Write(A). Goto. XY(6,A+6); Write('|'). Goto. XY(8,A+6); Write(Nama_Siswa[A]). Goto. XY(2. 5,A+6); Write('|'). Goto. XY(3. 2,A+6); Write(Nil_Mtk[A]). Goto. XY(3. 8,A+6); Write('|'). Goto. XY(4. 2,A+6); Write(Nil_Bhs[A]).
Goto. XY(4. 8,A+6); Write('|'). Goto. XY(5. 2,A+6); Write(Nil_Akhir[A]: 5: 2). Goto. XY(6. 2,A+6); Write('|').
Write. Ln('=============================================================='). Write('Ingin Hitung Lagi [Y/T] : '). If Lagi = 'Y' Then.