Input dan Output Memasukkan Data Device Keyboard Prosedur
Input dan Output Memasukkan Data Device : Keyboard Prosedur standar Turbo Pascal untuk memasukkan data : Read : memasukkan data perbaris, tidak ganti baris Read. Ln : memasukkan data perbaris, setelah enter akan ganti baris
Tipe variabel dan data yang diijinkan Tipe Variabel Keterangan Char Memasukkan sebuah karakter, bila lebih akan terpotong, yang dianggap hanya yang pertama saja. String Memasukkan string maksimum sepanjang yang didefinisikan Integer Memasukkan data numerik bulat diantara nilai -32767 sampai dengan 32767 Word Memasukkan data numerik bulat diantara nilai 0 sampai dengan 65535 Byte Memasukkan data numerik bulat diantara nilai 0 sampai dengan 255 Short. Int Memasukkan data numerik bulat diantara nilai -128 sampai dengan 127 Long. Int Memasukkan data numerik bulat diantara nilai -2147483648 sampai dengan 2147483647 Real Memasukkan data numerik real maksimum 30 digit, dapat tanpa titik desimal Boolean Data tipe ini tidak diijinkan
Contoh : Program Masuk 1(Layar); Var A, B : integer; C : Real; D : string[10]; E : char; Begin (* memasukkan data untuk masing-masing variabel *) Read. Ln(A); Read. Ln(B); Read. Ln(C); Read. Ln(D); Read. Ln(E); (* menampilkan data yang dimasukkan *) Write. Ln; Write. Ln(‘A = ‘, A, ‘B = ‘, B ‘C = ‘, C); Write. Ln(‘D = ‘, D); Write. Ln(‘E = ‘, E); End. Bila program ini dijalankan, pertama kali menunggu input yang akan anda masukkan, sebanyak 5 buah input. 50 12345 HALO JUGA Setelah semua data dimasukkan, akan ditampilkan : A = 50 B = 12345 C = 1. 2345000000 E+04 D = HALO E=H
Tampilan sewaktu memasukkan data supaya lebih interaktif, maka dapat ditampilkan penjelasan tentang data yang akan dimasukkan. Untuk maksud ini sebelum prosedur standar Read atau Read. Ln dapat digunakan prosedur standar Write terlebih dahulu. Program Masuk 2(input, output); (* program konversi suhu dari Celcius ke Fahrenheit *) Var C, F : real; Begin Write(‘Berapa Celcius ? ‘); Read. Ln(C); F : = 1. 8 * C + 32; Write. Ln(C, ‘Celcius adalah ‘, F, ‘Fahrenheit’); End. Bila program ini dijalankan akan didapat hasil: Berapa Celcius ? 10 1. 00000 E+01 Celcius adalah 5. 00000 E+01 Fahrenheit
Menampilkan Hasil Write. Ln Program Tampil 1(output); Var Nama : string[15]; Begin Nama : = ‘Dewi’; Write(‘Nama : ‘); Write(Nama); End. Program Tampil 2(output); Var Nama : string[15]; Begin Nama : = ‘Dewi’; Write. Ln(‘Nama : ‘); Write. Ln(Nama); End. Setelah dijalankan didapat: Nama : Dewi
Default Tampilan Tipe Integer Tampilan nilai integer akan ditampilkan dengan bentuk : ddddd Dan tidak mengandung blank dimuka (leading blank) maupun blank dibelakang (trailing blank) Program Tampil 3(output); Var Bulat 1, Bulat 2 : integer; Begin Bulat 1 : = 123; Bulat 2 : = 12345; Write. Ln(Bulat 1, Bulat 2); End. Hasil: 12312345 Nilai integer ke 2 Nilai integer ke 1
Default Tampilan Tipe REAL Tampilan nilai real menempati posisi lebar 18 digit dengan menggunakan bentuk eksponensial. Untuk nilai real positif atau nol akan ditampilkan dengan bentuk : bd. ddddd. Esdd Untuk nilai real negatif akan ditampilkan dengan bentuk : -d. ddddd. Esdd Dengan: b adalah blank d adalah digit s adalah tanda positif ataupun negatif - adalah tanda negatif Program Tampil 4(output); Var Pecahan 1, Pecahan 2 : real; Begin Pecahan 1 : = 123. 45; Pecahan 2 : = -123. 45; Write. Ln(Pecahan 1, Pecahan 2); End. Hasil: 1. 2345000000 E+02 -1. 2345000000 E+02
Default Tampilan Tipe CHAR : no leading blank and trailing blank Tipe STRING : no leading blank and trailing blank Program Tampil 5(output); Program Tampil 6(output); Var Huruf 1, Huruf 2 : Char; Begin Huruf 1 : = ‘A’; Huruf 2 : = ‘B’; Write. Ln(Huruf 1, Huruf 2); End. Var String 1, String 2 : String[10]; Begin String 1 : = ‘BAKSO’; String 2 : = ‘SOBEK’; Write. Ln(String 1, String 2); End. Hasil: AB Hasil: BAKSOSOBEK
TAMPILAN TERFORMAT Paramater CH: N : format tampilan Char selebar N karakter dengan blank dimuka sebanyak N-1 Paramater S: N : format tampilan String dengan lebar N karakter Program Tampil 7(output); Program Tampil 8(output); Var Ket 1, Ket 2 : Char; Begin Ket 1 : = ‘A’; Ket 2 : = ‘S’; Write. Ln(Ket 1: 5, Ket 2: 3); End. Var Karakter : String[6]; Begin Karakter : = ‘Pascal’; Write. Ln(‘Bahasa : ‘, Karakter: 10); End. Hasil: AS Hasil: Bahasa : Pascal 3 karakter 5 karakter 10 karakter
TAMPILAN TERFORMAT Paramater I: N : format tampilan integer dengan lebar N digit Paramater R: N Program Tampil 9(output); Program Tampil 10(output); Var N: Integer; Begin N : = 275; Write. Ln(Jumlah Data = ‘ , N: 5); End. Nilai: Real; Begin Nilai : = 123. 45; Write. Ln(‘Nilai Real = ‘ , Nilai: 12); End. Hasil: Jumlah Data = 275 Hasil: Nilai Real = 1. 23450 E+02 5 digit : format tampilan nilai numerik real dengan lebar N digit rata sebelah kanan 12 digit
Paramater R: N: M : format tampilan nilai numerik real dengan lebar N digit rata sebelah kanan, dengan m digit angka dibelakang koma tidak dalam bentuk eksponensial Program Tampil 11(output); Var Nilai: Real; Begin Nilai : = 123. 45; Write. Ln(‘Nilai Real = ‘ , Nilai: 12: 3); End. Hasil: Nilai Real = 123. 450 3 digit dibelakang titik desimal 12 digit panjang keseluruhan
- Slides: 11