Bahasa Pemrograman Pertemuan Iv

Pertemuan IV PERINTAH INPUT - OUTPUT

Assignment • Komputer bisa mengolah dan menampilkan sesuatu yang ada di dalam memori. Merupakan cara tersederhana untuk "menempatkan" (assign) data ke memori. Contoh: program luas_persegi_panjang; uses crt; var pjg, lbr, luas : integer; begin clrscr; pjg :=25; lbr :=20; luas := pjg * lbr; writeln('luas persegi panjang =',luas); readln; end.

Input • Memasukkan data lewat keyboard : read dan readln. • Tipe data yang diijinkan : char, string, integer, word, byte, shortint, longint, real. • Perbedaannya terdapat pada sifatnya dalam menangani kelebihan data. • Read : tidak akan membuang kelebihan data. Kelebihan data akan diberikan pada read atau readln berikutnya. • Readln : kelebihan data akan dibuang. Read (x); atau readln (x);

program baca_efek_read; uses crt; var dataA, dataB, dataC :integer; begin clrscr; writeln('masukkan 3 buah bilangan integer'); writeln('pisahkan dengan spasi'); read (dataA,dataB); writeln('dataA =',dataA); writeln('dataB =',dataB); writeln('masukkan sebuah bilangan integer'); readln(dataC); writeln('dataC =',dataC); readln; end.

program baca_efek_readln; uses crt; var dataA, dataB, dataC :integer; begin clrscr; writeln('masukkan 3 buah bilangan integer'); writeln('pisahkan dengan spasi'); readln (dataA,dataB); writeln('dataA =',dataA); writeln('dataB =',dataB); writeln('masukkan sebuah bilangan integer'); readln(dataC); writeln('dataC =',dataC); readln; end.

• Buatlah program untuk menghitung luas persegi panjang, panjang dan luas persegi panjang di input dari keyboard. output : 40 30 luas persegi panjang = 1200

Perintah Output (write atau writeln ) • Perintah digunakan untuk menyajikan data ke default output - key-board. Write(x); atau writeln(x); • Contoh: write('TES'); Perintah ini akan menampilkan teks string TES ke layar monitor pada posisi kursor sebelum perintah write dilaksanakan. Setelah menyajikan ke layar, kursor pindah ke ujung teks TES pada baris yang sama. writeln('TES'); Perintah ini akan menampilkan teks TES ke layar monitor pada posisi kursor sebelum perintah write dilaksanakan. Setelah menyajikan ke layar, kursor pindah ke awal baris berikutnya.

program luas_persegipanjang1; uses crt; var pjg, lbr, luas : integer; begin clrscr; write ('panjang='); readln (pjg); write ('lebar='); readln (lbr); writeln('luas persegi panjang =',pjg * lbr); readln; end.

Var Begin End.

Nilai : real; Nilai:= 123.45; Writeln (‘nilai real =‘,nilai :12:3);

• Buatlah program konversi dolar ke rupiah, dimana nilai dolar di input dari keyboard dan harga $1= 10.000. output : berapa dolar = A A dolar = B Rupiah uses crt; var nama:string[20]; begin clrscr; write ('masukkan nama anda ='); readln (nama); write ('nama anda adalah=',nama); readln; end.

Konversi jam ke detik Start

Jam, menit, detik

Tot_detik ß (jam*3600) + (menit*60) + detik

Tot_detik

End

Start

Nama_karyawan , gaji_pokok

Tunjangan ß0.2 * gaji_pokok Pajak ß0.15 * (gaji_pokok + tunjangan ) Gaji_bersih ßGaji_pokok + tunjangan - pajak

Gaji_bersih

End

Penempatan Kursor Layar • monitor komputer umumnya dibagi dalam 80 kolom dan 25 baris dengan kolom ke 1 dan baris ke 1 terletak di pojok kiri atas. Dalam lingkungan pemrograman yang beorientasi teks, pengaturan interaksi pengguna dengan komputer menggunakan tampilan-tampilan teks yang posisinya diatur dalam komposisi baris dan kolom. GotoXY(X,Y);

program contohgoto_xy; uses crt; var pjg, lbr :integer; begin clrscr; gotoxy(25,10); write ('mencetak panjang dan lebar persegi panjang'); gotoxy(25,11); write ('========================================'); gotoxy(25,12); write ('panjang='); read(pjg); gotoxy(25,13); write ('lebar='); read(lbr); readln; end.