Syntax dari Statement Perulangan

·         STATEMENT

ini digunakan untuk menjalankan satu atau beberapa statement sebanyak beberapa kali. Dengan kata lain, perulangan memungkinkan  untuk menjalankan beberapa statement hanya dengan menuliskan statement tersebut satu kali. Pada bahasa Pascal dikenal 3 jenis repetitive statement,yaitu:

a.    for statement

digunakan untuk mengulang dengan ketentuan yan telah diketahui/ditentukan.

syntax:

            For var:=nilai_awal  to nilai_akhir  do statement;

atau

            For var:=nilai_awal to nilai_akhir do statement;

contoh:

For a:= 1 to 10 do

writeln(‘turbo pascal 7.0’);

b.    while statement

digunakan untuk mengulang suatu statement yang belum diketahui secara pasit berapa banyak pengulangannya dan berakhir pada suatu kondisi yang telah ditentukan.

syntax:

            while kondisi  do

            statement;

contoh:

            while (x>0) do

            begin

            x:=x-1;

            y:=y-1;

end;

c.    Repeat until statement

Statement ini hampir sama dengan statement while, perbedaannya terletak pada pengecekan kondisi.Jika pada statement while, kondisi dicek pada awal kalang, sedangkan statement repeat until,kondisi  dicek pada akhir kalang.

syntax:

            repeat;

            statement;

            until kondisi;

contoh:

            repeat

            x:=x-1;

            y:=y-1;

            until(x<=0);

contoh program:

Program Repeat_Until;

uses crt:

Begin

Repeat

Writeln(‘Press Any Key to Stop’)

Until KeyPressed;

end.    

Read more »

Posted in: BAHASA PASCAL

Program Menghitung Hasil Perkalian Matrik dengan Bahasa Pascal

program perkalian_matrix;

var

a,n: integer;

a: array [1..2,1..3] of integer;

b: array [1..3,1..2] of integer;

begin

writeln('program menghitungperkalianmatrik');

writeln();

for a:=1 to 3 do

for n:=1 to 2 do

begin

write('masukkannilaimatrik a[',a,',',n,']=');

readln(a[a,n]);

end;

writeln('matriks a');

for a:=1 to 3 do

begin

write('|');

for n:=1 to 2 do

write(a[a,n]:5);

write('|');

writeln;

end;

for a:=1 to 2 do

for n:=1 to 3 do

begin

write('masukkannilaimatrik b[',a,',',n,']=');

readln(b[a,n]);

end;

writeln;

writeln('matriks b');

for a:=1 to 2 do

begin

write('|');

for n:=1 to 3 do

write(b[a,n]:5);

write('|');

writeln;

end;

writeln('makahasildarimatrik a*b=');

for a:=1 to 3 do

begin

write('|');

for n:=1 to 3 do

write(a[a,n]+b[a,n]:5);

write('|');

writeln;

end;

      end.

Read more »

Posted in: BAHASA PASCAL

Program Menghitung Bilangan Fibonacci dengan Bahasa Pascal

program bilangan;

var

a:integer;

begin

n:=1;

while a<23 do

begin

writeln(a);

a:=a+a;

end;

end.

Read more »

Posted in: BAHASA PASCAL

Program Menghitung Luas Persegi Panjang Bahasa Pascal

procedure luas (p,l:integer);

var

Luas:integer;

begin

Luas:= p*l;

writeln('Luaspersegipanjang = ',luas)

end;

var

a,n:integer;

begin

write('masukannilaipanjang = ');readln(a);

write('masukannilailebar = ');readln(n);

luas(a,n);

end.

Read more »

Posted in: BAHASA PASCAL

Program Menghitung Luas Lingkaran dengan Bahasa Pascal

procedure luas (r:integer);

var

Luas:integer;

begin

Luas:= 3.14*r*r;

writeln('Luaslingkaran = ',luas)

end;

var

jari:integer;

begin

write('masukanjari-jarilingkaran = ');readln(jari);

luas(jari);

end.

Read more »

Posted in: BAHASA PASCAL

Program Menghitung Luas Persegi dengan Bahasa Pascal

Studi Kasus :

Menghitung Luas Persegi

Jawaban :
procedure luas (sisi:integer);

var

Luas:integer;

begin

Luas:= sisi*sisi;

writeln('Luaspersegi = ',luas)

end;

var

a:integer;

begin

write('masukannilaisisi= ');readln(a);

luas(a);

end.

Read more »

Posted in: BAHASA PASCAL

Program Menghitung Luas Segitiga dengan Bahasa Pascal

Studi Kasus :

Menghitung Luas Segitiga

Jawaban :

procedure luas (a,t:integer);

var

Luas:integer;

begin

Luas:= (a*t)/2;

writeln('Luassegitiga = ',luas)

end;

var

a,n:integer;

begin

write('masukan alas= ');readln(a);

write('masukantinggi= ');readln(n);

luas(a,n);

end.

Read more »

Posted in: BAHASA PASCAL

Program Menghitung Total Jumlah Baris, Jumlah Diagonal dan Jumlah Kolom dengan Bahasa Pascal

Studi Kasus :

1          2          3          4          5          6

7          8          9          10        11        12

6          5          4          3          2          1

1          7          1          2          8          9

0          3          1          0          9          0

2          0          0          9          9          8

Jawaban :

program hitung;

var

a,n,d,i,t,o,g,total:integer;

a:array[1..6,1..6] of integer;

begin

writeln('programhitungperjumlahanmatrik');

writeln();

d:=0;

i:=0;

t:=0;

o:=0;

g:=0;

for a:=1 to 6 do

for n:=1 to 6 do

            begin

            write('Masukannilaia[',a,',',n,']= ');

            readln(a[a,n]);

            if a=1 then

            d:=k+a[a,n];

            ifa=1 then

            i:=i+a[a,n];

            if a+n=7 then

t:=t+a[a,n];

            if a=6 then

            o:=o+a[a,n];

            if a=6 then

            g:=g+a[a,n];

            end;

            total:=d+i+t+o+g;

writeln;

for a:=1 to 6 do

begin

for n:=1 to 6 do

write(a[a,n]:5);

writeln;

end;

writeln(total);

end

Read more »

Posted in: BAHASA PASCAL

Program Menentukan Bilangan Genap dan Ganjil dengan Bahasa Pascal

var i:integer;
begin
for i:=1 to 10 do
if i mod 2=0 then
writeln ('genap')
else
writeln ('ganjil');
end.



program coba;
var
a:integer;
f:text;
begin
assign(f,'hai');
rewrite(f);
readln(a);
if (a mod 2=0) then
writeln(f,'bilangan genap')
else
writeln(f,'bilangan ganjil');
close(f);
end.

Read more »

Posted in: BAHASA PASCAL

Program Bilangan Biner dengan Bahasa Pascal

program bilanganbinner;
var bilangan : integer;
function decToBin(desimal : integer) : string;
var hasilBagi,sisa : integer;
bin : char;
bilBiner : string;
begin
hasilBagi := desimal div 2;
bilBiner := '';
{ syarat perulangan : selama hasil bagi lebih besar sama dengan 1 };
while (hasilBagi >= 1) do
begin
sisa := desimal mod 2;
if (sisa = 0) then bin := '0'
else if (sisa = 1) then bin := '1';
{ menggabung sisa pada setiap perulangan untuk membentuk digit biner};
bilBiner := bin + bilBiner;
desimal := hasilBagi;
hasilBagi := desimal div 2;
end;
decToBin := '1' + bilBiner;
end;
begin
readln (bilangan);
write('Bilangan binernya : ', decToBin(bilangan));
readln;
end.

Read more »

Posted in: BAHASA PASCAL

Program Dasar Case Of dengan Bahasa Pascal

program dasar_caseof;
var
x:integer;
begin
writeln('belajar case of dasar');
writeln;
write('masukan sebuah angka =');readln(x);

case x of
0:writeln('x bernilai 0');
1:writeln('x bernilai 1');
2:writeln('x bernilai 2');
3:writeln('x bernilai 3');

else
writeln('x tidak bernilai 0,1,2,3');
end;
end.

Read more »

Posted in: BAHASA PASCAL

Program Konversi Nilai dengan Bahasa Pascal

program konversi;
var
angka:integer;

begin
writeln('mengkonversi nilai angka menjadi huruf');
write('masukan nilai anda = ');readln(angka);
if ((angka>=0) and (angka<=20)) then
writeln('nilai anda adalah huruf = e')
else if ((angka>20) and (angka<=40)) then
writeln('nilai anda adalah huruf = d')
else if ((angka>40) and (angka<=60)) then
writeln('nilai anda adalah huruf = c')
else if ((angka>60) and (angka<=80)) then
writeln('nilai anda adalah huruf = b')
else
writeln('nilai anda adalah huruf = a');
end.

Read more »

Posted in: BAHASA PASCAL

Program Positif For Negatif dengan Bahasa Pascal

program positifornegatif;
var
x:integer;
begin
writeln('menguji if then else');
write('masukan sebuah angka=  ');readln(x);
if(x>0)then
writeln('x adalah positif')
el
writeln('x adalah bilangan negatif');
end.

Read more »

Posted in: BAHASA PASCAL

Program Menghitung Pertambahan Matrik dengan Bahasa Pascal

program aku;
uses Crt;
var
I,J : integer;
a,b,c : array [1..3, 1..2] of integer;
ch : char;
begin
clrscr;
writeln ('program menghitung pertambahan matrix 3x2');
writeln ('==================================');
for J := 1 to 2 do
begin
write ('masukkan nilai matrik a[',I,',',J,']=');
readln (a[I,J]);
write ('masukkan nilai matrik b[',I,',',J,']=');
readln (b[I,J]);
end;
writeln;
writeln('maka hasil dari matrik a+b =');
for I:= 1 to 3 do
begin
write ('|');
for J : 1 to 2 do
write (a[I,J] + b[I,J]:8;
write ('|');
writeln;
end;
write (.press any key to continue..');
end.


program informatika;
var
a,b,c : array [1..100, 1..100] of integer;
n,m,k,l,i,j: integer;
begin
write ('m= '); readln (m);
write ('n= '); readln (n);
for i:= 1 to m do
for j:= 1 to n do
begin
write ('a[',i,',',j,']='); readln (a[i,j]);
end;
write ('k= '); readln (k);
write ('l= '); readln (l);
for i:=1 to k do
for j:=1 to l do
begin
write ('b[',i,',',j,']=');readln (b[i,j]);
end;
writeln ('maka hasil dari pertambahan matrik a+b adalah');
if (m=k)and(n=l) then
    for i:= 1 to m do
    for j:= 1 to n do
    begin
    c[i,j]:= a[i,j] + b[i,j];
    writeln ('c[',i,',',j,']=' , c[i,j]);
    end
else
writeln ('tidak bisa');
end.

Read more »

Posted in: BAHASA PASCAL

Program Alternatif Rata-Rata dengan Bahasa Pascal

program alternatifratarat;
var
total,a,b,c,d,e:integer;
rata_rata:real;
begin
writeln('program menghitung rata-rata bilangan');
write('masukakan kelima bilangan dipisahkan dengan spasi = ');readln(a,b,c,d,e);
total:=a+b+c+d+e;
writeln('total kelima bilangan adalah =',total);
rata_rata:=total/5;
writeln('rata-ratanya adalah =',rata_rata:4:2);
end.

Read more »

Posted in: BAHASA PASCAL

Program String Copy dengan Bahasa Pascal

var a,b,c,d,e:string;
begin
a:='UNIVERSITAS';
b:='MUHAMMADIYAH';
c:=copy(a,1,3);
d:=copy(b,8,11);
e:=c+d;
writeln('c=',c);
writeln('d=',d);
writeln('e=',e);
end.




program ahmadsa;
var
susunan1,susunan2,susunan3,wordA,wordB,wordC,wordD,wordE,wordF,wordG : string;
a,b,c : integer;
begin
susunan1:='FAKULTAS';
susunan2:='TEKNIK';
susunan3:='INFORMATIKA';
a:=length (susunan1);
b:=length (susunan2);
c:=length (susunan3);
wordA:=copy (susunan1,1,3);
wordB:=copy (susunan1,4,4);
wordC:=copy (susunan2,3,4);
wordD:=copy (susunan3,3,6);
wordE:=copy (susunan3,3,5);
wordF:=copy (susunan1,3,3);
wordG:=wordE+wordF;
writeln(a,b,c);
writeln('wordA = ',wordA);
writeln('wordB = ',wordB);
writeln('wordC = ',wordC);
writeln('wordD = ',wordD);
writeln('wordG = ',wordG);
end.

Read more »

Posted in: BAHASA PASCAL

Program Menghitung Rata Rata Lima Bilangan

program ratarata;
var
total,a,b,c,d,e:integer;
rata_rata:real;

begin
writeln('program menghitung rata rata lima bilangan');
write('masukkan bilangan pertama = ');readln(a);
write('masukkan bilangan kedua   = ');readln(b);
write('masukkan bilangan ketiga  = ');readln(c);
write('masukkan bilangan keempat = ');readln(d);
write('masukkan bilangan kelima  = ');readln(e);
total:=a+b+c+d+e;
writeln('maka totalnya adalah = ',total);
rata_rata:=total/5;
writeln('maka rata-rata adalah =',rata_rata:4:2);
end.

Read more »

Posted in: BAHASA PASCAL

Program Menghitung Grade Nilai dengan Bahasa Pascal

program menghitungnilaigrade;
var
nilai:integer;
grade:string;
begin
writeln('menghitung nilai dan nilai grade');
writeln('--------------------------------');
write('masukan nilai');readln(nilai);
if (nilai>100) then
grade:='salah'
else if (nilai>80) then
grade:='A'
else if (nilai>70) then
grade:='B'
else if (nilai>50) then
grade:='C'
else if (nilai>30) then
grade:='D'
else if (nilai>0) then
grade:='E'
else if (nilai<0) then
grade:='salah';
writeln('maka nilai anda adalah',grade);
end.

Read more »

Posted in: BAHASA PASCAL

Program Perkenalan Nama dan Umur dengan Bahasa Pascal

program perkenalan;
var
nama:string;
umur:integer;
begin
writeln('program kenalan');
writeln('akan menanyakan nama dan umur anda');
write('ketiklah nama anda : ');readln(nama);
write('berapa umur anda :');readln(umur);
writeln('nama =',nama);
writeln('umur (hari)=',umur*365);
readln;
end.

Read more »

Posted in: BAHASA PASCAL

Program Matrik dengan Bahasa Pascal

program matrik;
var
k,x:integer;
A:array[1..10] of integer;
Begin
for k:=1 to 5 do
x:=x+A[k];
writeln('hasil= ',x);
end.



program matrik;
var
x,y: integer;
p: array [1..3, 1..3] of integer;
q: array [1..3, 1..3] of integer;
begin
writeln ('program menhitung matrik');
writeln ('========================');
for x:= 1 to 3 do
for y:= 1 to 3 do
begin
write ('masukkan nilai matrik p [',x,',',y,']= ');
readln (p[x,y]);
end;
for x:= 1 to 3 do
begin
write ('|');
for y:= 1 to 3 do
write (p[x,y]:8);
write ('|');
writeln;
end;
for y:= 1 to 3 do
for x:= 1 to 3 do
begin
write ('masukkan nilai matrik q [',y,',',x,']= ');
readln (q[y,x]);
end;
for y:= 1 to 3 do
begin
write ('|');
for x:= 1 to 3 do
write (q[y,x]:8);
write ('|');
writeln;
end;
writeln ('maka hasil matrik= ');
write ('|');
write ((p[1,1]+p[2,2]+p[3,3])+(q[2,1]+q[2,2]+q[2,3])+((q[3,1]+q[3,2]+q[3,3])+(q[3,1]+q[2,2]+q[1,3])+(q[1,3]+q[2,3]+q[3,3])));
writeln;
end.

Read more »

Posted in: BAHASA PASCAL