a. Write
Digunakan untuk mencetak beberapa buah item ke monitor komputer
dengan berurutan dan secara otomatis pascal menempatkan kursor ke
sebelah kanan terakhir. Rumus umumbya adalah: write (item1, item2,
item3…). Item ini dapat berupa angka, karakter, string, nilai boolean,
variable dan ekspresi.
Perhatikan contoh dibawah ini !
Contoh Write:
____________________________________________________
Program menggunakan_write; uses wincrt;car
angka1:real;
begin
write(‘ini program’);
write(‘turbo pascal’);
write(‘pertama saya’);
end.
____________________________________________________
Terlihat hasil kompilasi baris program pascal string ‘ini
program’,'turbo pascal’, dan ‘pertama saya’ ditulis oleh program pascal
dalam satu baris. Ketika pascal telah menuliskan string ‘ini program’
pascal hanya menggeser kursornya kemudian string berikutnya sedang baris
programnya kita menuliskan ketiga string berbeda baris.
b. Writlen
Writeln merupakan singkatan dari write line, setelah menuliskan
parameter/item/string di layar maka kursor penulisan akan langsung
pindah ke basris dibawahnya atau garis baris. Perbedaan write dan
writeln adalah setelah menuliskan item-item, pascal memindahkan kursor
turun satu baris berikutnya (menuliskan kebasris yang baru).
Perhatikan contoh dibawah ini !
Contoh Writeln:
____________________________________________________
Program identitasku;
Uses wincrt;
Begin
Writeln (‘hay sahabat…’);
Writeln (‘apa kabar’);
Writeln (‘mau belajar pemograman ya?’);
End.
___________________________________________________
Hasil kompilasi baris program diatas menunjukkan bahwa setelah
menuliskan sebuah string, pacal akan memindahkan kursornya ke baris
berikutnya untuk menuliskan string berikutnya.
c. Read
Digunakan untuk membaca data yang dimasukkan oleh programmer melalui
keyboard. Statemen read tidak memperhatikan batas baris, rinci data akan
selalu dibaca tidak tergantung apakah ada di baris yang sama atau
tidak. Rumus umumnya adalah: read (variabel1, variabel2,…). Pernyataaan
ini mengharuskan anda memasukkan data melalui keyboard dan mengakhiri
proses memasukkan data dengan menekan tombol Enter.
Perhatikan contoh dibawah ini !
Contoh Writeln:
___________________________________________________
Program statemen_memasukkan;
Uses wincrt;
Var
Angka1, Angka2 : integer;
Begin
Write (‘masukkan dua buah angka’);
Read (Angka1,Angka2);
Write (Angka satu adalah: ‘,angka1,’dan angka kedua adalah: ‘Angka2);
End.
____________________________________________________
d. Readln
Hampir sama dengan pernyataan Read, pernyataan Readln memindahkan
kursor turun satu baris ke baris berikutnya setelah anda mengetikkan
nilai variable yang ditanya oleh pascal.
Perhatikan contoh dibawah ini !
Contoh Writeln:
____________________________________________________
Program demo_readln;
Uses wincrt;
var
Angka1 : integer;
Begin
Writeln (‘masukkan satu buah angka :’);
Readln (Angka1);
Writeln (‘angka yang anda masukkan adalah:’,angka1);
End.
perkalian
uses wincrt;
var
a,b,h:integer;
begin
writeln('===PERKALIAN===');
writeln('=================');
write('Masukan Angka Pertama = ');read(a);
write('Masukan Angka Kedua = ');read(b);
h:=a*b;
writeln('Angka Pertama * Angka Kedua = Hasil Perkalian'); writeln(a, ' x ',b, ' = ' ,h); writeln('Hasil Operasi Perkalian Anda Adalah ',h);
end.
SEGITIGAA
program segitiga;
uses wincrt;
var alas, tinggi, sisimiring, luas,
keliling : re al ;
begi n
clrscr;
writeln (‘Menghitung Luas dan Keliling
Segitiga’);
writeln
(‘-------------------------------------------------‘);
write (‘Masukkan nilai alas : ‘) ;
readln (alas);
write (‘Masukkan nilai tinggi : ‘) ;
readln (tinggi) ;
luas:= 0.5*alas*tinggi;
sisimiring:= sqrt (sqr(alas)+sqr(tinggi));
keliling:= alas+tinggi+sisimiring;
writeln (‘Luas Segitiga adalah : ‘,
luas:3:2, ‘cm’);
writeln (‘Keliling Segitiga adalah : ‘,
keliling3:2, ‘cm’);
readln;
end.Menghitung Luas dan Keliling Lingkaran
program lingkaran;
uses wincrt;
var r, luas, keliling : real ;
begi n
clrscr;
writeln (‘Menghitung Luas dan Keliling
Lingkaran’);
writeln (‘---------------------------------------------------‘)
write (‘Masukkan jari-jari lingkaran : ‘) ;
luas:= pi*sqr(r);
keliling:=2*pi*pi;
writeln (‘Luas Lingkaran adalah : ‘,
luas:3:2, ‘cm’);
writeln (‘Keliling Lingkaran adalah : ‘,
keliling3:2, ‘cm’);
readln;
end.3. Menghitung Luas dan Keliling Persegi
Panjang
program persegi_panjang;
uses wincrt;
var alas, tinggi, luas , keliling : real ;
begi n
clrscr;
suhuuuu
LISTING PROGRAM PASCAL :
program konversi_dan_rumus;
uses wincrt;
var
C,K : integer;
Re,Fe,jari2,panjang,lebar,luas,tinggi,alas : real;
pil : char;
z,y,n:string;
label mn1,mn2,mn3;
begin
mn1:
clrscr;
gotoxy(30,3); writeln('*****MENU UTAMA******');
gotoxy(30,4); writeln('1.Konversi Suhu Udara');
gotoxy(30,5); writeln('2.Rumus Matematika');
gotoxy(30,6); writeln('3.keluar');
gotoxy(30,7); write('masukkan pilihan anda:');
readln(pil);
case pil of
'1':begin
mn2:
clrscr;
writeln('a.Celcius-Reamur');
writeln('b.Celcius-Fahrenheit');
writeln('c.Celcius-Kelvin');
writeln('d.back');
write('masukkan pilihan anda:');readln(pil);
case pil of
'a': begin
clrscr;
writeln('CELCIUS-REAMUR');
Write('Masukkan Celciusnya = '); readln(C);
Re:=4/5*C;
Writeln('Hasil Konversi Celcius-Reamur adalah = ',Re:0:2);
write('mau keluar y/t:');readln(z);
if z='y' then goto mn1
else
goto mn2;
readln;
end;
'b': begin
clrscr;
writeln('CELCIUS-FAHRENHEIT ');
write('Masukkan Celciusmya = ' ); readln(C);
Fe:=9/5*C+32;
writeln('Hasil Konversi Celcius-Fahrenheit adalah = ',Fe:0:2);
readln;
end;
'c': begin
clrscr;
writeln('CELCIUS-KELVIN ');
write('Masukkan nilai Celcius = ' ); readln(C);
K:=C+237;
writeln('Hasil Konversi Celcius-Kelvin adalah = ',K);
end;
'd':begin
goto mn1;
end;
end;
end;
'2':begin
clrscr;
writeln('a.segitiga');
writeln('b.lingkaran');
writeln('c.luas persegi panjang');
writeln('0.selesai');
write('masukkan pilihan anda:');readln(pil);
case pil of
'a':begin
clrscr;
write('masukkan alas:');readln(alas);
write('masukkan tinggi:');readln(tinggi);
luas:=0.5*alas*tinggi;
write('luas segitiga adalah',luas);
end;
'b':begin
clrscr;
write('masukkan jari-jari:');readln(jari2);
luas:=jari2*jari2*3.14;
write('luas lingkaran adalah',luas:0:2);
end;
'c':begin
clrscr;
write('masukkan panjang:');readln(panjang);
write('masukkan lebar:');readln(lebar);
luas:=panjang*lebar;
write('luas persegi panjang adalah',luas);
end;
end;
end;
'3': begin
clrscr;
Writeln('anda keluar Program');
Writeln('Terima Kasih');
readln;
end;
end;
end.
writeln (‘Menghitung Luas dan Keliling
Persegi Panjang’);
writeln (‘----------------------------------------------------------‘);
write (‘Masukkan nilai alas : ‘) ;
readln (alas);
write (‘Masukkan nilai tinggi : ‘) ;
readln (tinggi) ;
luas:= alas*tinggi;
keliling:= ((2*alas)+(2*tinggi));
writeln (‘Luas Persegi Panjang adalah : ‘,
luas:3:2, ‘cm’);
writeln (‘Keliling Persegi Panjang adalah :
‘, keliling3:2, ‘cm’);
readln;
end
lingkaraaan
Uses Crt;
Var r,L,K:Real;
Begin
clrscr;
Write ('masukan jari-jari lingkaran(cm):');
Readln(r);
L:=pi*r*r;
K:=2*pi*r;
Writeln;
Writeln ('luas lingkaran:',L:10:2,'cm2');
Writeln ('keliling lingkaran:',K:10:2,'cm');
End.
Pada baris 7 terdapat penggunaan sintak Read(r), artinya pada baris tersebut program akan berhenti sejenak sampai user mengetikkan sebuah angka untuk nilai variabel 'r' dan menekan tombol ENTER.
