Output

Dalam contoh-contoh program sebelumnya, telah banyak kita lihat statement writeln. Statement tersebut adalah statement output (menampilkan teks pada console) dalam bahasa pemrograman pascal. Dalam bahasa pemrograman pascal terdapat setidaknya dua statement untuk mencetak teks pada layar. Statement tersebut adalah write dan writeln. Perbedaan keduanya adalah writeln akan menambah baris baru setelah teks ditampilkan, sedangkan write tidak. Untuk lebih jelasnya mari kita lihat contoh berikut.

program writeAndWriteln;
    begin
        write('Indonesia ');
        write('Bagus! ');
        readln();
    end.

Selanjutnya bandingkan dengan code menggunakan statement writeln

program writeAndWriteln;
    begin
        writeln('Indonesia ');
        writeln('Bagus! ');
        readln();
    end.

Formatting Output

Output dapat diformat dengan mudah, kita cukup menaruh titik dua diikuti dengan jumlah karakter. Jika kita ingin memformat tipe bilangan real, kita cukup menambah simbol titik dua lagi diikuti dengan jumlah angka dibelakang koma.

value : (panjang karakter) : (panjang karakter dibelakang koma)

Input

Untuk membuat program lebih interaktif, dapat dicoba untuk melibatkan user dengan memasukan suatu input tertentu. Untuk melakukannya, bahasa pemrograman pascal mengakomodir dengan adanya statement read dan readln. Perbedaan keduanya sama dengan statement write dan writeln, yakni pada statement readln akan ditambah baris baru.

Sebenarnya terdapat satu lagi jenis input pada pascal, yakni readkey. Readkey menerima jenis masukan berupa karakter, dan input dapat langsung dibaca program tanpa harus menekan tombol enter. Namun untuk menggunakan readkey, sebelumnya harus diimport unit crt atau wincrt pada deklarasi uses.

Contoh Program Data Mahasiswa

program writeAndWriteln;
    uses wincrt;
    var 
        nama:string;
        nim:string;
        prodi:string;
        fakultas:string;
        semester:integer;
    begin
        write('Masukan Nama     : ');
        readln(nama);
        write('Masukan NIM      : ');
        readln(nim);
        write('Masukan Prodi    : ');
        readln(prodi);
        write('Masukan Fakultas : ');
        readln(fakultas);
        write('Masukan Semester : ');
        readln(semester);
        writeln('==========/ HASIL /==========');
        writeln('Nama     : ', nama);
        writeln('NIM      : ', nim);
        writeln('Prodi    : ', prodi);
        writeln('Fakultas : ', fakultas);
        writeln('Semester : ', semester);
        readkey();
    end.