CONTOH PROGRAM Pascal

CONTOH PROGRAM Pascal

Contoh Case Of Pascal

Contoh Case …Of perhitungan berat dan harga barang

Ketentuan soal :
1. Kualitas Barang di masukkan
Kualitas Harga Per Kg
A/a 1000
B/b 750
C/c 500

Uses crt;
Var
Berat,harga,hargaperkg:integer;
Kualitas:char;
Begin
Clrscr;
Write(‘ Massukkan Kualitas Buah [A/B/C] : ‘); readln(kualitas);
Write(‘ Berapa Kg berat yang di beli : ‘ ); readln(berat);
Case kualitas of
‘A’,’a’: hargaperkg:=1000;
‘B’,’b’: hargaperkg:=750;
‘C’,’c’: hargaperkg:=500;
Else
Begin
Hargaperkg:=0;
Writeln(‘Salah Input’);
End;
End;

Harga:=hargaperkg*berat;
Writeln(‘ Harga Per Kg : Rp.’,hargaperkg);
Writeln(‘ Harga Total : Rp.’,harga);
End.


Contoh Program Pascal If Perhitungan Gaji
Diposkan oleh rizky is naruto lovers komentar (0)

Uses crt;
Var nama:string[20];jabatan:string;
Gaji:longint;
Tunj,ppn,gajibersih:real;
Begin
Clrscr;
Write(‘Nama Karyawan : ‘); readln(nama);
Write(‘Masukkan Jabatan : ‘); readln(jabatan);
If (jabatan=’Direktur’) or (jabatan=’direktur’) then
Begin
Gaji:=3000000;
Tunj:=0.1* gaji;
End
Else If (jabatan=’Manager’) or (jabatan=’manager’) then
Begin
Gaji:=2000000;
Tunj:=0.05* gaji;
End
Else If (jabatan=’Karyawan’) or (jabatan=’karyawan’) then
Begin
Gaji:=1000000;
Tunj:=0.1* gaji;
End
Else
Begin
Gaji:=800000;
Tunj:=0.1* gaji;
End;
Writeln(‘Gaji Bersih : Rp.‘,gaji);
Writeln(‘Tunjangan Jabatan : Rp.‘,tunj:9:2);
Ppn:=0.1*gaji;
Writeln(‘PPN 10 % : Rp.‘,ppn:9:2);
Total:=(gaji+total)-ppn;
Writeln(‘Total Gaji : Rp.‘,total:9:2);
Readln;
End.


Program Penghitung Luas segitiga


uses crt;
var
alas,tinggi:integer;
procedure hitung_luas(a,t:integer);
var
luas:real;
begin
clrscr;
luas:=a*t/2;
writeln('Luas segitiga =',luas);
end;
begin
writeln('Masukkan alas =');readln(alas);
writeln('Masukkan tinggi =');readln(tinggi);
hitung_luas(alas,tinggi);
readln;
end.


Membuat File txt Melalui Pascal
Diposkan oleh rizky is naruto lovers komentar (0)

uses crt;
var
Tulisan:text;
a,b:byte;
c:byte;
begin
clrscr;
writeln('Masukkan Angka 1 =');readln(a);
writeln('Masukkan Angka 2 =');readln(b);
c:=a+b;
writeln('Jadi nilainya adalah =',c);
assign(Tulisan,'hitung.txt');
rewrite(Tulisan);
write(tulisan,a);
write(Tulisan,'+');
write(Tulisan,b);
write(Tulisan,'=');
write(Tulisan,c);
Close(Tulisan);
readln;
end.


Program Pencari Biaya Dan Grade

uses crt;
var
nilai:byte;
begin
clrscr;
Write('masukkan Nilai anda =');Readln(nilai);

if nilai>0 then
begin
Writeln('GRADE = O ');
Writeln('Besar biaya = Rp.550000');
end
else

if nilai<=1 then begin Writeln('GRADE = E '); Writeln('Besar biaya = Rp.450000'); end else if nilai<=40 then begin Writeln('GRADE = D'); Writeln('Besar biaya = Rp.350000'); end else if nilai<=60 then begin Writeln('GRADE = C'); Writeln('Besar biaya = Rp.250000'); end Else if nilai<=70 then begin Writeln('GRADE = B'); Writeln('Besar biaya = Rp.150000'); end else begin If nilai >=100 then
Writeln('GRADE = A');
Writeln('Besar biaya = Rp.50000');
end;
readln;
end.


Program Pencari Predikat


USES CRT;
VAR
nilai:byte;
A,B,C,D:string;
begin
clrscr;
write ('masukkan nilai=');readln(nilai);
if nilai< 69 then
writeln('predikat D');
if nilai<79then
writeln ('predikat C');
if nilai<90 then
writeln ('predikat B');
if nilai<101 then
writeln('predikat A');
readln;
end.


Konversi bilangan Desimal Ke Biner


USES CRT;
VAR Des:integer;
Bin:string;
begin
clrscr;
writeln('PROGRAM KONVERSI MENGUBAH BILANGAN DECIMAL KE BINER');
write('Masukkan bilangan Decimal=');
readln(Des);
Bin:=’’;
repeat
begin

{menghitung biner dari hasil bagi}

If Des mod 2=0 then Bin:='0'+Bin
else Bin:='1'+Bin;

{membagi bulat bilangan desimal}

Des:= Des div 2;
end;
Until Des=0;
Writeln('Bilangan Biner =',Bin);
readln;
end. 

Program Faktorial

PROGRAM FAKTORIAL PAKAI FOR TO DO

program faktorial;
uses wincrt;
var
i,n,f:integer;
begin
readln(n); f:=1;
for i:=1 to n do
    begin
    f:=f*i;
    end;
    writeln(n,' faktorial = ',f);
end.



 PROGRAM FAKTORIAL PAKAI REPEAT UNTIL


program faktorial;
uses wincrt;
var
i,n,f:integer;
begin
write('masukkan nilai n = '); read(n);
f:=1; i:=0;
repeat
i:=i+1;
f:=f*i;
until i=n;
writeln(n,' faktorial = ',f);
end.


 PROGRAM FAKTORIAL PAKAI WHILE DO

program faktorial;
uses wincrt;
var
i,n,f:integer;

begin
writeln('masukkan nilai = ');readln(n);
f:=1; 
while i<n do
begin i:=i+1;
f:=f*i;
end;
write(n,' faktorial= ',f);
end.



 PROGRAM FAKTORIAL PAKAI IF REPEAT

program faktorial;
uses wincrt;
var
i,n:integer;
f: real;

begin
readln(n);f:=1;i:=0;
if (n=0) then
writeln(1)
else
repeat

i:=i+1;
f:=f*i;
until i=n;
writeln(n,'faktorial=',f);
end.


 PROGRAM FAKTORIAL MODEL PERKALIAN
program faktorial;
uses wincrt;
var
i,a,n,f:integer;

begin
write('faktorial dari '); read(n);
f:=1; i:=0;

if (n>1)then
begin 
repeat
i:=i+1;
f:=f*i;
until i=n;

 a:=n;
for i:=n downto 2 do
begin

write (a,'x');

a:=a-1;
end;


write(1,'=',f)
     end
else
if (n=0)then writeln ('1') else
if (n=1)then writeln ('1') else
 writeln ('tidak terdifinisi')
end.


 PROGRAM PERMUTASI DAN KOMBINASI

program permutasi_kombinasi;
uses wincrt;
var
a,b,a_k,kombinasi,permutasi:real;
i,n,k:longint;
begin
writeln('MENGHITUNG 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:4:1);
writeln (n, ' Permutasi',k,' = ',permutasi :4:1);
end.

PASCAL PERULANGAN

Perulangan adalah sebuah perintah yang menjalankan suatu perintah tertentu berulang-ulang sampai suatu kondisi terpenuhi.disinilah letak kelebihan komputer dibanding manusia, yaitu mampu melakukan hal yang sama berulang kali tanpa kesalahan akibat bosan atau lelah(asalkan script nya bener aja ini,lau script salah berarti komputer mampu membuat kesalahan😀 ).perulangan sering dikenal juga dengan sebutan loop/looping. ada 3 jenis dari perulangan yaitu :


1. perulangan "FOR..DO"
2. perulangan "REPEAT..UNTIL"
3. perulangan "WHILE..DO"

pada perulangan FOR..DO jika di kaitkan kesuatu statement maka akan Ada tiga bentuk perulangan dengan statement for, yaitu:
1. perulangan positif , yaitu perulangan yang perhitungannya dari kecil ke besar. bentuk dari perulangan positif ini adalah “FOR..TO..DO“.
contoh :

program for_do_postiv;
uses wincrt;
var
i : integer;
begin
for i:= 1 to 5 do
writeln('pascal');
readln;
end.

2. perulangan negativ , yaitu perulangan yang perhitungannya dari besar ke kecil. bentuk dari perulangan positif ini adalah “FOR..DOWNTO..DO“.
contoh :

program for_do_negativ;
uses wincrt;
var
i : integer;
begin
for i:= 5 downto 1 do
writeln(i);
readln;
end.

3. perulangan tersarang, suatu perulangan yang didalam nya ada perulangan lainnya. berarti didalam for..do… ada for..do..lagi!
contoh :

program for_do_tersarang;
uses wincrt;
var
i,j : integer;
begin
for i:= 1 to 5 do
begin
for j:= 1 to 5 do
write(j,' ');
writeln;
end;
readln;
end.

setelah membahas tentang for..do…selanjut nya kita akan langsung kepada bentuk perulangan dengan mengunakan repeat..until. pada repeat..until bisa juga mengunakan perulangan yg didalam nya mengunakan perulangan juga.. berikut script/code programnya :

program repeat_until;
uses wincrt;
var
i : integer;
begin
i:= 1;
repeat
i:=i+1;
writeln(i);
until i = 5;
readln;
end.

pada program diatas i sama dengan 1 ketika akan menampilkan i ,maka rumusan dari i+1 dilakukan dan akan berhenti ketika i = 5.

nah selanjut nya tentang while..do…berikut contoh nya :

program while_do;
uses wincrt;
var
i:integer;
begin
i:=2;
while i 3 do
begin
writeln( i );
end;
readln;
end.

pada while..do pada output menghasil bentuk perulangan terus menerus karena i tidak sama dengan 3 maka lakukan cetak 2 terus menerus, ini akan berhenti ketika i sama dengan 3 dan output ketika pendeklarasian i:=3 adalah kosong.
tambahan sedikit :

kalau agan2 binggung coba ketik program pada gambar diatas dan bandingkan.

bonus :
ini hanya bisa dilakukan untuk compiler tertentu

program bonus ;
uses crt;
var i: byte;
begin
for i := 1 to 10 do
begin
textcolor (i) ;writeln('pascal');
end;
readln;
end.

PROGRAM PASCAL FOR DO

A for-do loop is a repetition control structure that allows you to efficiently write a loop that needs to execute a specific number of times.

Syntax

The syntax for the for-do loop in Pascal is as follows −

for < variable-name > := < initial_value > to [down to] < final_value > do 
   S;

Where, the variable-name specifies a variable of ordinal type, called control variable or index variable; initial_value and final_value values are values that the control variable can take; and S is the body of the for-do loop that could be a simple statement or a group of statements.
For example,

for i:= 1 to 10 do writeln(i);

Here is the flow of control in a for-do loop −

• The initial step is executed first, and only once. This step allows you to declare and initialize any loop control variables.
• Next, the condition is evaluated. If it is true, the body of the loop is executed. If it is false, the body of the loop does not execute and flow of control jumps to the next statement just after the for-do loop.
• After the body of the for-do loop executes, the value of the variable is either increased or decreased.
• The condition is now evaluated again. If it is true, the loop executes and the process repeats itself (body of loop, then increment step, and then again condition). After the condition becomes false, the for-do loop terminates.

Flow Diagram

Example

program forLoop;
var
   a: integer;

begin
   for a := 10  to 20 do
   
   begin
      writeln('value of a: ', a);
   end;
end.

When the above code is compiled and executed, it produces the following result −

value of a: 10
value of a: 11
value of a: 12
value of a: 13
value of a: 14
value of a: 15
value of a: 16
value of a: 17
value of a: 18
value of a: 19
value of a: 20