Materi Pernyataan Input dan Output

Dalam bahasa Pascal pernyataan input adalah pernyataan yang digunakan untuk
memasukkan data. Pernyataan input yang ada di Pascal adalah READ dan READLN.
Sedangkan pernyataan output adalah pernyataan yang digunakan untuk menampilkan hasil.
Ada dua pernyataan output yaitu WRITE dan WRITELN.



A. Pernyataan WRITE dan WRITELN
Bentuk pernyataan WRITE dan WRITELN:
WRITE (<argumen >);
Atau
WRITELN (<argumen>);
Jika pernyataan WRITELN yang digunakan, setelah menampilkan hasil maka kursor ganti
baris. Sedangkan jika pernyataan WRITE yang digunakan, setelah menampilkan hasil
maka kursor tidak ganti baris. Dalam format penulisan WRITE dan WRITELN jika yang
akan ditampilkan adalah suatu kata/kalimat yang tidak disinpan dalam suatu variabel, maka
kata/kalimat tersebut harus ditulis diantara tanda petik tunggal (').
Contoh program untuk membedakan WRITE dan WRITELN.



Outputnya:


Note:Writeln akan mencetak ke bawah, sedangkan Write mencetak ke samping


B. Memformat keluaran dari WRITE dan WRITELN
Untuk mengatur penampilan hasil pernyataan WRITE dan WRITELN dapat dilakukan
formating. Untuk memformat data dilakukan dengan menambah tanda titik dua (:) diikuti
dengan bilangan yang menyatakan lebar ruang untuk menampilkan data.
Untuk argumen data real, format dapat dilakukan sebagai berikut:
Data : n : p

Dimana: n adalah lebarnya ruang
p adalah banyaknya angka desimal
Contoh program untuk pengaturan format tampilan.




Outputnya:




C. Pernyataan READ dan READLN
Bentuk pernyataan READ dan READLN:
READ (<variabel-1, variabel-2,.., variabel-n>) ;
Atau
READLN (<variabel-1, variabel-2,.., variabel-n>) ;
Tiap-tiap data yang dimasukkan harus sesuai dengan tipe variabelnya. Setelah data
dimasukkan, tombol ENTER ditekan. Perbedaan antara READ dan READLN adalah pada
sifat menangani kelebihan data yang diinputkan
READ : Jika ada kelebihan data, pernyataan ini tidak akan membuangnya. Kelebihan
data tersebut akan diberikan pada pernyataan READ atau READLN berikutnya.
READLN : Jika ada kelebihan data, pernyataan ini akan membuangnya. Kelebihan data
tersebut tidak akan diberikan pada pernyataan READ atau READLN
berikutnya.
Contoh program untuk menunjukkan perbedaan antara READ dan READLN

Program Pertama:	Program Kedua:
Uses Wincrt; Var A, B, C, D:Integer; Begin Writeln('Masukkan Data Tiga Buah, Pisahkan dengan Spasi !'); Read(A, B); Writeln ('A=',A); Writeln ('B=',B); Readln(C); Writeln('C=',C); End.	Uses Wincrt; Var A, B, C, D:Integer; Begin Writeln('Masukkan Data Tiga Buah, Pisahkan dengan Spasi !'); Readln(A, B); Writeln ('A=',A); Writeln ('B=',B); Readln(C); Writeln('C=',C); End.

Output Program pertama:




Output Program kedua:




Note: * pada program pertama, kelebihan data "angka 15" dimasukkan pada outputan berikutnya
    *pada program kedua, kelebihan data "angka 15" tidak terpakai, outputan berikutnya tetap
     Menggunakan loopingan data sebelumnya

»»  READMORE...

Program Pascal Permutasi, Kombinasi, dan Binomial

program permutasi_kombinasi;
uses wincrt;
var
a,b,a_k,kombinasi,permutasi:real;
i,n,k:integer;
begin
writeln('enghitung permutasi dan kombinasi');
write('Masukkan bilangan n = ');readln(n);
write('Masukkan bilangan k = ');readln(k);
a:=1;
b:=1;
a_k:=1;
for i:=2 to n do
a:=a*i;
for i:=2 to k do
b:=b*i;
for i:=2 to (n-k) do
a_k:=a_k*i;
kombinasi:=a/(b*a_k);
permutasi:=a/(a_k);
writeln(n,'kombinasi',k,'=',kombinasi);
writeln(n,'permutasi',k,'=',permutasi);
end.

program binomial;
uses wincrt;
var n,i,x,s,j,q:integer;
a,b,c, kombinasi,r,p,hasil,hasil2, z:real;
begin
writeln('menghitung dist binomial');

writeln('masukkan nilai n='); readln(n);
writeln('masukkan nilai x='); readln(x);
a:=1; b:=1; c:=1;
for i:=2 to n do
a:=a*i;
for i:=2 to x do
b:=b*i;
for i:=2 to (n-x) do
c:=c*i;
kombinasi:=a/(b*c);
writeln (kombinasi);
writeln ('p pangkat x');
writeln ('masukkan p=');readln(p);
hasil:=1; for i:=1 to x do
hasil:=p*hasil;
writeln('hasil'); writeln(hasil);
begin
writeln ('r pangkat q');
writeln ('masukkan r=');readln(r);
writeln ('masukkan q=');readln(q);
hasil2:=1; for j:=1 to q do
hasil2:=r*hasil2;
writeln ('hasil',hasil2);
end;
begin
z:=kombinasi*hasil*hasil2;
writeln('binomial',z);
end;
end.

»»  READMORE...

Program Pascal Terapan Statistika

program mean;
uses wincrt;
var i,n:integer;
    x, sigma_x, x_bar:real;
begin
write ('banyaknya data= ');
readln (n);
       for i:=1 to n do
       begin
       write ('data ke-', i, '=');
       readln (x);
       sigma_x:= sigma_x+x;
       end;
 writeln ('sigma_x data= ',sigma_x);
 x_bar:= sigma_x/n;
 writeln ('mean data= ', x_bar);
 end.

program varians;
uses wincrt;
var i,n:integer;
    x,sigma_x,sigma_x2,s2:real;
begin
write ('banyaknya data= ');
readln (n);
for i:=1 to n do
  begin
  write ('data ke-',i,' = ');
  readln (x);
  sigma_x:=sigma_x+x;
  sigma_x2:=sigma_x2+sqr(x);
  end;
writeln('sigma_x data= ',sigma_x);
writeln('sigma_x2 data= ',sigma_x2);
s2:=(sigma_x2-(sqr(sigma_x)/n))/(n-1);
writeln ('varians data= ', s2);
end.

program standard_deviasi;
uses wincrt;
var i,n:integer;
    x,sigma_x,sigma_x2,s:real;
begin
write ('banyaknya data= ');
readln (n);
for i:=1 to n do
  begin
  write ('data ke-',i,' = ');
  readln (x);
  sigma_x:=sigma_x+x;
  sigma_x2:=sigma_x2+sqr(x);
  end;
writeln('sigma_x data= ',sigma_x);
writeln('sigma_x2 data= ',sigma_x2);
s:=sqrt((sigma_x2-(sqr(sigma_x)/n))/(n-1));
writeln ('standard deviasi data= ',s);
end.

»»  READMORE...

Program Deret Piramida

program piramida;
uses winCrt;
var n,i,j:integer;
begin
read(n);
for i:=1 to n do
begin 
for j:= 1 to i do
begin
write (i);
end;
writeln;
end;
end.

»»  READMORE...

Program Faktorial dan Deret Jumlah

program latihan;
uses wincrt;
var input, jumlah,i :integer;
faktorial : longint;
begin
write ('Masukkan angka : ');
readln (input);
jumlah:=0;
faktorial:=1;
writeln ('    i    ','faktorial','  jumlah ');
for i:=1 to input do
begin
jumlah:=jumlah+i;
faktorial:=faktorial*i;
writeln ('    ',i,'       ',faktorial,'         ',jumlah)
end;
end.

»»  READMORE...