Algoritma with pascal

If1
Algoritma Soal1
{sebuah algoritma soal yang menanyakan alamat keberadaan I-Tech}
DEKLARASI:
a : char {jawaban}
DEFINISI:
writeln('Dimanakah alamat STTI I-Tech?')
writeln('A. Jakarta Selatan')
writeln('B. Jakarta Timur')
writeln('C. Jakarta Barat')
writeln('D. Jakarta Utara')
read(a)
if a='A' then
write('Jawaban Anda Benar!!!')
else
write('Maaf Jawaban anda kurang tepat')
endif
END Algoritma
If1_2
Algoritma Soal2
{sebuah algoritma soal yang menanyakan nomor telepon kelas reguler STTI I-Tech}
DEKLARASI:
a : char {jawaban}
DEFINISI:
writeln('Berapakah nomor telepon kelas reguler STTI I-Tech?')
writeln('A. 021-751 58 73')
writeln('B. 021-751 58 72')

writeln('C. 021-751 58 71')
writeln('D. 021-751 58 70')
read(a)
if a='D' then
else
endif
END Algoritma
If1_3
Algoritma Soal3
{sebuah algoritma soal yang menanyakan kode pos STTI I-Tech}
DEKLARASI:
a : char {jawaban}
DEFINISI:
writeln('Berapakah nomor kode pos STTI I-Tech?')
writeln('A. 13420')
writeln('B. 12420')
writeln('C. 12520')
writeln('D. 12430')
read(a)
if a='B' then
else
endif
END Algoritma

If1_4
Algoritma Soal4
{sebuah algoritma soal yang menanyakan ketua STTI I-Tech}
DEKLARASI:
a : char {jawaban}
DEFINISI:
writeln('Siapakah ketua STTI NIIT I-Tech?')
writeln('A. Trinugi Wira, ST, Mkom')
writeln('B. Ir. Nixon Erzed, MT')
writeln('C. Ir. Tussi Gautama, Msc')
writeln('D. Hari Setyani, ST, Mkom')
read(a)
if a='C' then
else
write('Maaf Jawaban anda kurang tepat');
endif
END Algoritma
If1_5
Algoritma Soal5
{sebuah algoritma soal yang menanyakan dosen algoritma pemrograman STTI I-Tech}
DEKLARASI:
a : char {jawaban}
DEFINISI:
writeln('Siapakah dosen pengajar mata kuliah Algoritma Pemrograman?')
writeln('A. Trinugi Wira, ST, Mkom')
writeln('B. Ir. Nixon Erzed, MT')

writeln('C. Ir. Tussi Gautama, Msc')
writeln('D. Hari Setyani, ST, Mkom')
read(a)
if a='D' then
else
endif
END Algoritma
If2
Algoritma Input_Barang_1
{Menentukan sebuah harga barang yang ingin diketahui}
DEKLARASI:
b : integer {barang}
DEFINISI:
writeln('Input barang yang ingin anda lihat harganya!!!')
writeln('1. Baju')
writeln('2. Celana')
writeln('3. Sepatu')
read(b)
if (b=1) then
write('Harga Baju Rp.10.000/pcs')
else if (b=2) then
write('Harga Celana Rp.20.000/pcs')
else
write('Harga Sepatu Rp.30.000/pcs')
endif

END Algoritma
If2_2
Algoritma Negara_Terluas
{sebuah program yang membantu para pemakainya untuk mengetahui tiga negara terluas di
dunia diantara Russia, Kanada dan Amerika Serikat}
DEKLARASI:
b :integer {negara}
DEFINISI:
writeln('Berikut tiga negara terluas di dunia!!!')
writeln('1. Russia')
writeln('2. Kanada')
writeln('3. Amerika Serikat')
write('Negara mana yang kamu ingin lihat luasnya?[1-3] ');readln(b)
writeln('===============================================')
if b=1 then
writeln('Russia mempunyai luas 17,098,242 km² atau 6,601,668 miles²')
else if b=2 then
writeln('Kanada mempunyai luas 9,984,670 km² atau 3,855,100 miles²')
else
writeln('Amerika Serikat mempunyai luas 9,629,091 km² atau 3,717,813
miles²')
endif
END Algoritma
If2_3
Algoritma Negara_Terkecil
{sebuah program yang membantu para pemakainya untuk mengetahui tiga negara terkecil di
dunia diantara Vatican City, Monaco dan Nauru}
DEKLARASI:

b :integer {negara}
DEFINISI:
writeln('Berikut tiga negara terkecil di dunia!!!')
writeln('1. Vatican City')
writeln('2. Monaco')
writeln('3. Nauru')
write('Negara mana yang kamu ingin lihat luasnya?[1-3] ');readln(b)
writeln('===============================================')
if b=1 then
writeln('Vatican City mempunyai luas 0,44 km2 dengan penduduk sekitar 800
orang')
else if b=2 then
writeln('Monaco mempunyai luas 1,95 km2 dan hanya memiliki penduduk
sekitar 32.000 jiwa')
else
writeln('Nauru mempunyai luas 21 km2 dan hanya memiliki penduduk sekitar
14.014 jiwa')
endif
END Algoritma
If2_4
Algoritma Jualan
{Menghitung harga jual suatu barang dalam satuan maupun banyak }
DEKLARASI:
a : integer {barang}
b : integer {banyak baran yang di beli}
c : integer {total harga barang}
DEFINISI:
writeln('Produk yang kami jual')

writeln('1. PC @Rp.3.000.000,-')
writeln('2. Tablet @Rp.2.000.000,-')
writeln('3. Laptop @Rp5.000.000,-')
write('Produk mana yang ingin anda beli dan berapa banyak?[1-3] ') readln(a)
write('Berapa banyak?[1-100] ') readln(b)
writeln('============================================================
==')
if a=1 then
c 3000000*b
else if a=2 then
c 2000000*b
else
c 5000000*b
write('Total barang yang kamu beli sebesar ',c)
endif
END Algoritma
If2_5
Algoritma Jualan_Diskon
{ Menghitung harga jual suatu barang dalam satuan maupun banyak dengan bonus diskon 20
% }
DEKLARASI:
a : real {barang}
b : real {banyak baran yang di beli}
c : real {total harga barang}
DEFINISI:
writeln('Berikut produk yang kami jual, diskon 20 %')
writeln('1. PC @Rp.3.000.000,-')
writeln('2. Tablet @Rp.2.000.000,-')

writeln('3. Laptop @Rp5.000.000,-')
write('Produk mana yang ingin anda beli dan berapa banyak?[1-3] ');readln(a)
write('Berapa banyak?[1-100] ');readln(b)
writeln('============================================================
==')
if a=1 then
d (3000000-(3000000*0.2))*b
else if a=2 then
d (2000000-(2000000*0.2))*b
else
d (5000000-(5000000*0.2))*b
write('Total barang yang kamu beli sebesar ',d:2:2)
endif
END Algoritma
If3
Algroitma Indeks_Nilai
{Mengetahui seberapa besar indeks nilai yang ingin diketahui antara indeks A sampai indeks
F}
DEKLARASI:
a : integer {indeks nilai}
DEFINISI:
writeln('Masukkan Indeks Prestasi Anda!(1-6)')
write('1=>>A|')
write('2=>>B|')
write('3=>>C|')
write('4=>>D|')
write('5=>>E|')
writeln('6=>>F')

read(a)
if (a=1) then
write('Indeks A=80-99')
else (if a=2) then
write('Indeks B=70-89')
else if (a=3) then
write('Indeks C=50-69')
else if (a=4) then
write('Indeks D=30-49')
else if (a=5) then
write('Indeks E=10-29')
else
write('Indeks F=0-9');
endif
END Algoritma
If3_2
Algoritma Kota_Terbesar_Dunia
{sebuah program untuk mengetahui sepuluh kota terbesar di dunia antara Tokyo, Mumbai,
Seoul, Jakarta, Manila, New Delhi, New York City, Sao Paulo, Mexico City dan Shanghai}
DEKLARASI:
a : integer {kota}
DEFINISI:
writeln('Berikut 10 kota terbesar di dunia beserta negara asalnya')
writeln('1. Tokyo - Jepang')
writeln('2. Mumbai - India')
writeln('3. Seoul - Korea')
writeln('4. Jakarta - Indonesia')

writeln('5. Manila - Filipina')
writeln('6. New Delhi - India')
writeln('7. New York City - Amerika Serikat')
writeln('8. Sao Paulo - Brazil')
writeln('9. Mexico City - Mexico')
writeln('10. Shanghai - RRC')
write('Masukkan Kota yang ingin anda ketahui [1-10]: ')
readln(a)
writeln('===============================================')
if a=1 then
write('Tokyo - Jepang : Luas wilayah untuk area Metro 13.572 km² serta area
Metropolis 2.187,66 km²')
else if a=2 then
write('Mumbai - India : Dihuni oleh sekitar 20,5 juta jiwa')
else if a=3 then
writeln('Seoul - Korea : Jumlah populasi yang lebih dari 10 juta jiwa ')
else if a=4 then
write('Jakarta - Indonesia : Populasi mencapai 10.187.595 dengan luas wilayah
hanya sekitar 661 km²')
else if a=5 then
write('Manila - Filipina : Populasi lebih dari 1.652.171 dan luas wilayah
sekitar 38,55 km²')
else if a=6 then
write('New Delhi - India : Populasi 17 juta penduduk dalam luas wilayah
sekitar 1482 km²')
else if a=7 then
write('New York City - Amerika Serikat : Populasinya sekitar 18,9 juta jiwa
dan luas wilayah sekitar 17.400 km²')
else if a=8 then

write('Sao Paulo - Brazil : Di Sao Paulo terdapat Bursa Efek Sao Paulo yang
merupakan terbesar kedua di dunia')
else if a=9 then
write('Mexico City - Mexico : Ibu Kota pemerintahan Mexico dengan luas
area 1.485 km²')
else
write('Shanghai - RRC : jumlah poulasi di kota Shanghai ini telah mencapai
23 juta jiwa.')
endif
END Algoritma
If3_3
Algoritma Penentu_Hari
{mengetahui jumlah hari dalam bulan dan tahun yang di input}
DEKLARASI:
t : integer {tahun}
b : integer {bulan}
DEFINISI:
write('Masukkan Tahun : ') readln(t)
write('Masukkan Bulan [1-12] : ') readln(b)
if b=1 then
write('31 Hari')
else if b=3 then
write('31 Hari')
else if b=5 then
write('31 Hari')
else if b=7 then
write('31 Hari')
else if b=8 then

write('31 Hari')
else if b=10 then
write('31 Hari')
else if b=12 then
write('31 Hari')
else if b=4 then
write('30 Hari')
else if b=6 then
write('30 Hari')
else if b=9 then
write('30 Hari')
else if b=11 then
write('30 Hari')
else if b=2 then
if (t mod 4 = 0) then
write('29 Hari')
else
write('28 Hari')
else
write('Anda memasukkan bulan yang salah');
endif
END Algoritma
IF3_4
Algoritma cicilan_rumah
{menghitung harga sebuah cicilan rumah sesuai dengan berapa lama cicilan dilakukan}
DEKLARASI:
p : integer {pesanan rumah}

c : integer {panjang waktu cicilan}
a : real {harga cicilan}
DEFINISI:
writeln('Kami sediakan Rumah dengan 2 tipe')
writeln('1. Rumah A 75/100 ==> 1 M')
writeln('2. Rumah A 100/75 ==> 1,5 M')
writeln('3. Rumah B 75/100 ==> 800 Jt')
writeln('5. Rumah C 50/50 ==> 400 Jt')
writeln('Cicilan 0 % dan bisa hingga 50 bulan')
write('Pesan yang mana ? [1-5] ') readln(p)
write('Ingin cicilan berapa bulan?[1-50] ') readln(c)
writeln('==================================')
if p = 1 then
a (1000000000/c)+(500000*c)
else if p = 2 then
a (1500000000/c)+(500000*c)
else if p = 3 then
a (800000000/c)+(500000*c)
else if p = 4 then
a (900000000/c)+(500000*c)
else if p = 5 then
a (400000000/c)+(500000*c)
endif
write('Anda dapat membeli dengan mencicil sebesar Rp.',a:2:2)
END Algoritma
If3_5

Algoritma konversi_turunan
{menghitung besaran turunan hanya dari km ke mm}
DEKLARASI:
a : string {satuan awal}
b : string {satuan hasil}
c : longint {angka yang ingin dikonversi}
d : longint {angka hasil konversi}
DEFINISI:
writeln('Konversi Perhitungan Turunan')
writeln('km || ')
writeln('~~|hm || x10 ')
writeln(' ~~~|dam || ')
writeln(' ~~~~|m / ')
writeln(' ~~|dm ')
writeln(' ~~~|cm ')
writeln(' ~~~|mm ')
writeln('!Konversi ini dibuat tidak untuk naik!')
write('Masukkan satuan yang ingin dikonversi[km-mm] : ') readln(a)
write('Masukkan satuan hasil konversi[km-mm] : ') readln(b)
write('Masukkan angka yang ingin dikonversi : ') readln(c)
if a='km' then
if b='hm' then
d c*10
else if b='dam' then
d c*100
else if b='m' then
d c*1000

else if b='dm' then
d c*10000
else if b='cm' then
d c*100000
else if b='mm' then
d c*1000000
else if a='hm' then
if b='dam' then
d c*10
else if b='m' then
d c*100
else if b='dm' then
d c*1000
else if b='cm' then
d c*10000
else if b='mm' then
d c*100000
else if a='dam' then
if b='m' then
d c*10
else if b='dm' then
d c*100
else if b='cm' then
d c*1000
else if b='mm' then
d c*10000
else if a='m' then

if b='dm' then
d c*10
else if b='cm' then
d c*100
else if b='mm' then
d c*1000
else if a='dm' then
if b='cm' then
d c*10
else if b='mm' then
d c*100
else if a='cm' then
if b='mm' then
d c*10
endif
write(c,' ',a,' menjadi ',d,' ',b)
END Algoritma
Case001 = Case & Repeat
Algoritma Case_Indeks
{Mengetahui seberapa besar nilai indeks yang ingin diketahui antara indeks A sampai indeks
F}
DEKLARASI:
a : integer {indeks}
z : char {y/n pengulangan}
DEFINISI:
repeat
clrscr

writeln('Masukkan Indeks Prestasi Anda!(1-6)')
write('1=>>A|')
write('2=>>B|')
write('3=>>C|')
write('4=>>D|')
write('5=>>E|')
writeln('6=>>F')
readln(a)
case a of
1 : writeln('Indeks Nilai untuk A = 80-99')
2 : writeln('Indeks Nilai untuk B = 70-89')
3 : writeln('Indeks Nilai untuk C = 50-69')
4 : writeln('Indeks Nilai untuk D = 30-49')
5 : writeln('Indeks Nilai untuk E = 10-29')
6 : writeln('Indeks Nilai untuk F = 0-9')
Otherwise : write('Masukkan 1-6!')
Endcase
writeln
write('Ingin tahu yang lain? (y/n) ') readln(z)
until Upcase(z) <> 'Y'
END Algoritma
Algoritma Case_Kota
{sebuah program untuk mengetahui sepuluh kota terbesar di dunia antara Tokyo, Mumbai,
Seoul, Jakarta, Manila, New Delhi, New York City, Sao Paulo, Mexico City dan Shanghai}
DEKLARASI:
a : integer {kota}

DEFINISI:
repeat
clrscr
writeln('Berikut 10 kota terbesar di dunia beserta negara asalnya')
writeln('1. Tokyo - Jepang')
writeln('2. Mumbai - India')
writeln('3. Seoul - Korea')
writeln('4. Jakarta - Indonesia')
writeln('5. Manila - Filipina')
writeln('6. New Delhi - India')
writeln('7. New York City - Amerika Serikat')
writeln('8. Sao Paulo - Brazil')
writeln('9. Mexico City - Mexico')
writeln('10. Shanghai - RRC')
writeln('Masukkan Kota yang ingin anda ketahui [1-10]: ')
writeln('===============================================')
readln(a)
case a of
1 : write('Tokyo - Jepang : Luas wilayah untuk area Metro 13.572 km² serta area
Metropolis 2.187,66 km²')
2 : write('Mumbai - India : Dihuni oleh sekitar 20,5 juta jiwa')
3 : writeln('Seoul - Korea : Jumlah populasi yang lebih dari 10 juta jiwa ')
4 : write('Jakarta - Indonesia : Populasi mencapai 10.187.595 dengan luas wilayah
hanya sekitar 661 km²')
5 : write('Manila - Filipina : Populasi lebih dari 1.652.171 dan luas wilayah sekitar
38,55 km²')

6 : write('New Delhi - India : Populasi 17 juta penduduk dalam luas wilayah sekitar
1482 km²')
7 : write('New York City - Amerika Serikat : Populasinya sekitar 18,9 juta jiwa dan
luas wilayah sekitar 17.400 km²')
8 : write('Sao Paulo - Brazil : Di Sao Paulo terdapat Bursa Efek Sao Paulo yang
merupakan terbesar kedua di dunia')
9 : write('Mexico City - Mexico : Ibu Kota pemerintahan Mexico dengan luas area
1.485 km²')
10 : write('Shanghai - RRC : jumlah poulasi di kota Shanghai ini telah mencapai 23
juta jiwa.')
Otherwise : write('Anda memasukkan inputan yang salah!')
Endcase
writeln
write('Masih penasaran?(y/n) ') readln(z)
END Algoritma
Algoritma Case_Penentu_Jumlah_Hari
{mengetahui jumlah hari dalam bulan dan tahun yang di input}
DEKLARASI:
t : integer {tahun}
b : integer {bulan}
DEFINISI:
repeat
clrscr
write('Masukkan Tahun : ') readln(t)
write('Masukkan Bulan [1-12]: ') readln(b)

case (b) of
1 : write('31 Hari')
2 :
if (t mod 4 = 0) then
write('29 Hari')
else
write('28 Hari')
Endif
Otherwise : write('Anda memasukkan bulan yang salah')
Endcase
writeln
write('Lagi?(y/n) ') readln(z)
END Algoritma
Algortima Jual_Besi
{ Menghitung harga jual suatu barang dalam satuan maupun banyak}

DEKLARASI:
gol : char {golongan besi}
berat : integer {berat besi}
harga : longint {harga total besi}
hargaperkg : longint {harga per kg besi}
DEFINISI:
repeat
clrscr
write('Masukkan Golongan Besi [A/B/C] : ') readln(gol)
write('Masukkan berat(kg) yang di beli : ') readln(berat)
case gol of
'A','a' : hargaperkg 2000
'B','b' : hargaperkg 1500
'C','c' : hargaperkg 1000
Otherwise : write('Masukkan A/B/C!')
Endcase
harga hargaperkg*berat
writeln('Harga per Kg : Rp.',hargaperkg)
writeln('Harga Total : Rp.',harga)
writeln
write('Ada lagi? (y/n) ') readln(z)
END Algoritma
Algoritma case_cicilan_rumah
{menghitung harga sebuah cicilan rumah sesuai dengan berapa lama cicilan dilakukan}

DEKLARASI:
p : integer {pesanan rumah}
c : integer {panjang waktu cicilan}
a : real {harga cicilan}
DEFINISI:
repeat
clrscr
writeln('1. Rumah A 75/100 ==> 1 M')
writeln('2. Rumah A 100/75 ==> 1,5 M')
writeln('==================================')
case p of
1 : a (1000000000/c)+(500000*c)
2 : a (1500000000/c)+(500000*c)
3 : a (800000000/c)+(500000*c)
4 : a (900000000/c)+(500000*c)
5 : a (400000000/c)+(500000*c)
Otherwise : write('Pilih 1-5!')
Endcase

writeln
write('Ada yang lain?(y/n) ') readln(z)
END Algoritma
For1
Algoritma Jumlah Banyak Data
DEKLARASI:
n : integer {banyak data}
i : integer {bilangan}
byk : integer
jum : integer
bil : integer
DEFINISI:
writeln('Penentu Jumlah dan Banyaknya data yang <= 10')
write('Masukkan Banyaknya Data : ') readln(n)
writeln
for i 1 to n do
begin
write('Bilangan ke-',i,' = ') read(bil)
if bil <= 10 then
begin
byk byk+1
jum jum+bil
endif
endfor
writeln
writeln('Banyaknya Bilangan <= 10 : ',byk)

writeln('Jumlah Bilangan <= 10 : ',jum)
END Algoritma
For2
Algoritma Segitiga Sama Kaki
DEKLARASI:
x : integer
y : integer
a :integer {tinggi segitiga}
DEFINISI:
writeln('Muhammad Maisur Rahman | 411310040')
writeln('~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~')
write('Masukkan tinggi segitiga? ')
read(a)
for x 1 to a do
begin
for y 1 to x do
begin
write('*')
end
writeln
endfor
for x a-1 downto 1 do
begin
for y x downto 1 do
begin
write('*')
end

writeln
endfor
END Algoritma
For3
Algoritma Penjumlahan
DEKLARASI:
a : integer
b : integer
c : integer
d : integer {input kedua}
n : integer {input pertama}
DEFINISI:
writeln('Program ini dibuat khusus untuk Penjumlahan(0+..+..)')
write('Berapa bilangan? ') readln(n)
b 0
for c 1 to n do
begin
write('Masukkan Bilangan = ') readln(d)
b b+d
endfor
writeln('Jumlah Bilangan = ',b)
END Algoritma
For4
Algoritma Pengurangan
DEKLARASI:
a : integer
b : integer

c : integer
d : integer {input kedua}
n : integer {input pertama}
DEFINISI:
writeln('Program ini dibuat khusus Pengurangan(0-..-..)')
b 0
for c 1 to n do
begin
b b-d
endfor
END Algoritma
For5
Algoritma ratarata
DEKLARASI:
n : integer {banyak n}
a : integer
rata : real {rata-rata}
b : integer {jumlah}
c : integer {data ke-}
DEFINISI:
write('Masukkan banyaknya N = ') readln(n)
writeln ('Ada ',n,' data')
for a 1 to n do
begin

write('Masukkan data ke-',a,' : ') read(c)
b b+c
endfor
rata b/n
writeln('Jumlahnya adalah : ',b)
writeln('Nilai rata-ratanya :', rata:0:2)
END Algoritma
Whiledo1
Algoritma Segitiga Siku2
DEKLARASI:
a : integer
b : integer
n : integer
DEFINISI:
write('masukkan tinggi segitiga : ') readln(n)
a 1
while a<=n do
begin
b 1
while b<=a do
begin
write('*')
b b+1
endwhile
writeln
a a+1
endwhile

END Algoritma
Whiledo2
Algoritma Segitiga Siku2 Terbalik
DEKLARASI:
e : integer
f : integer
n : integer {tinggi segitiga}
DEFINISI:
write('masukkan tinggi segitiga terbalik : ') readln(n)
e n
while e>=1 do
begin
f 1
while f<=e do
begin
write('*')
f f+1
endwhile
writeln
e e-1
endwhile
END Algoritma
Whiledo3
Algoritma Kotak
DEKLARASI:
c : integer
d : integer

n : integer
DEFINISI:
write('masukkan panjang sisi : ') readln(n)
c 1
while c<=n do
begin
d 1
while d<=n do
begin
write(d:3)
d d+1
endwhile
writeln
c c+1
endwhile
END Algoritma
Whiledo4
Algoritma Genap Ganjil
DEKLARASI:
x : integer
a : integer {nilai awal}
b : integer {nilai akhir}
c : integer {genap/ganjil}
DEFINISI:
writeln('===Penentu Ganjil-Genap===')
write('Masukkan Nilai Awal : ') readln(a)
write('Masukkan Nilai Akhir : ') readln(b)

write('Pilih Genap[0] atau Ganjil[1] : ') readln(c)
x a
while x <= b do
begin
if (x mod 2) = c then
write(x,' ')
x x + 1
endwhile
END Algoritma
Whiledo5
Algoritma Pangkat2
DEKLARASI:
a : integer
b : integer {batas pangkat}
DEFINISI:
write('Masukkan berapa batas maksimum perpangkatan : ') readln(b)
a 1
while a<=b do
begin
writeln(a,' = ',a*a)
a a+1
endwhile
END Algoritma
String1
Algoritma Hitung Huruf
DEKLARASI:
Huruf : string {kalimat/kata yang akan di input}

a : integer {panjang huruf}
DEFINISI:
write('Masukkan sebuah kalimat/kata: ') readln(Huruf)
a length(Huruf)
writeln('Panjang String adalah ',a,' huruf')
END Algoritma
String2
Algoritma String Gabung
DEKLARASI:
s1 : string {kata/kalimat pertama}
s2 : string {kata/kalimat kedua}
s3 : string {hasil gabungan}
x : integer {pemilihan kalimat/kata yang didepan}
DEFINISI:
write('Masukkan string 1: ') readln(s1)
write('Kalimat di depan 1/2 ? ') readln(x)
if x=1 then
s3 concat(s1,' ',s2)
else
s3 concat(s2,' ',s1)
endif
writeln
write('Hasil ==> ',s3)
END Algoritma
String3
Algoritma Sisipan

DEKLARASI:
s1 :string {kata/kalimat pertama}
s2 :string {kata/kalimat kedua}
y :integer {posisi penyisipan}
DEFINISI:
write('Posisi ke berapa string 1 akan di sisipkan ke string 2 ? ') readln(y)
insert(s1,s2,y)
write('Hasil ==> ',s2)
END Algoritma
String4
Algoritma Copy
DEKLARASI:
s :string {kalimat}
a :integer {huruf yang di copy}
b :integer {berapa banyak}
DEFINISI:
write('Masukkan sebuah kalimat: ') readln(s)
write('Huruf ke berapa yang ingin di copy? ') readln(a)
write('Berapa banyak huruf yang ingin di copy pada indeks tersebut? ') readln(b)
s Copy(S, a, b)
Write('Hasil==> ',S)
END Algoritma
String5
Algoritma del
DEKLARASI:

s :string {kalimat/kata}
a :integer {huruf yang di delete}
b :integer {banyaknya yang didelete}
DEFINISI:
write('Masukkan sebuah kalimat: ') readln(s)
write('Huruf ke berapa yang ingin di delete? ') readln(a)
write('Berapa banyak huruf yang ingin di delete pada indeks tersebut? ') readln(b)
Delete(s, a, b)
Write('Hasil==> ',s)
END Algoritma
Fungsi1
Algoritma IPK
DEKLARASI:
a : real {sem1}
b : real {sem2}
c :real {sem3}
DEFINISI:
function ipk(a,b,c:real):real
begin
ipk (a+b+c)/3
endfungsi
begin
write('Masukkan Nilai IP Sem 1 = ') readln(a)
write('Masukkan Nilai IP Sem 2 = ') readln(b)
write('Masukkan Nilai IP Sem 3 = ') readln(c)

write('IPK kamu adalah ',ipk(a,b,c):2:2)
END Algoritma
Fungsi2
Algoritma Kode Pos
DEKLARASI:
a :integer
DEFINISI:
function kp(a:integer):string
begin
case a of
1: write('Jakarta = 12345')
2: write('Bandung = 12346')
3: write('Surabaya = 12347')
4: write('Yogyakarta = 12348')
else
write('SALAH!')
endcase
endfungsi
begin
writeln('=================KodePos========================')
writeln('Jakarta[1],Bandung[2],Surabaya[3],Yogyakarta[4] ')
write('Masukka Kode Daerah = ') readln(a)
writeln('Kode pos daerah ',kp(a))
writeln('=================KodePos========================')
END Algoritma

Fungsi3
Algoritma Persegi
DEKLARASI:
s :integer {sisi}
DEFINISI:
function keliling(s:integer):integer
begin
keliling 4*s
endfungsi
begin
clrscr
writeln('===o0o===Menghitung Keliling Persegi===o0o===')
write('Masukan Sisi = ') readln(s)
write('Keliling = ',keliling(s))
END Algoritma
Fungsi4
Algoritma Fungsi Kali
DEKLARASI:
a :integer {nilai pertama}
b :integer {nilai kedua}
DEFINISI:
function kalkul(a,b:integer):integer
begin
kalkul a*b

endfungsi
begin
writeln('Program Perkalian')
write('Masukkan Nilai Pertama = ') readln(a)
write('Masukkan Nilai Kedua = ') readln(b)
write('Hasil dari ',a,' * ',b,' adalah ',kalkul(a,b))
END Algoritma
Fungsi5
Algoritma Volume Tabung
DEKLARASI:
r :real {jari-jari}
t :real {tinggi}
DEFINISI:
function rumus(r,t:real):real
begin
rumus 3.14*r*r*t
endfungsi
begin
writeln('====o0~~0o====Volume Tabung====o0~~0o=====')
write('Masukkan Jari-Jari Tabung = ') readln(r)
write('Masukkan Tinggi Tabung = ') readln(t)
write('Volume Tabung = ',rumus(r,t):2:2)
END Algoritma
Procedure1

Procedure rumus(x,y,a:integer)
DEKLARASI:
DEFINISI:
for x 1 to a do
begin
for y 1 to x do
begin
write('*')
endfor
writeln
endfor
for x a-1 downto 1 do
begin
for y x downto 1 do
begin
write('*')
endfor
writeln
endfor
endprocedure
Algoritma Segitiga Sama Kaki
DEKLARASI:
x,y,a:integer
DEFINISI:
writeln('Muhammad Maisur Rahman | 411310040')
writeln('~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~')
write('Masukkan tinggi segitiga? ')

read(a)
rumus(x,y,a)
END Algoritma
Procedure2
Procedure rumus
DEKLARASI:
p :integer {pesanan}
c :integer {lama cicilan}
a :real {hasil}
DEFINISI:
if p = 1 then
a (1000000000/c)+(500000*c)
else if p = 2 then
a (1500000000/c)+(500000*c)
else if p = 3 then
a (800000000/c)+(500000*c)
else if p = 4 then
a (900000000/c)+(500000*c)
else if p = 5 then
a (400000000/c)+(500000*c)
endif
endprocedure
Algoritma cicilanrumah
DEKLARASI:

p :integer
c :integer
DEFINISI:
writeln('1. Rumah A 75/100 ==> 1 M')
writeln('2. Rumah A 100/75 ==> 1,5 M')
writeln('==================================')
rumus
END Algoritma
Procedure3
Procedure rumus
DEKLARASI:
a,b,c,d,n :integer
DEFINISI:
b 0
for c 1 to n do
begin
b b+d
end
endprocedure

Algoritma Penjumlahan
DEKLARASI:
n :integer
DEFINISI:
writeln('Program ini dibuat khusus untuk Penjumlahan(0+..+..)')
rumus
END Algoritma
Procedure4
Procedure rumus
DEKLARASI:
a,b,c,n:integer
rata:real
DEFINISI:
write('Masukkan banyaknya N = ') readln(n)
writeln ('Ada ',n,' data')
for a 1 to n do
begin
write('Masukkan data ke-',a,' : ') read(c)
b b+c
endfor
rata b/n
writeln('Jumlahnya adalah : ',b)
writeln('Nilai rata-ratanya :', rata:0:2)
endprocedure
Algoritma ratarata
DEFINISI:
writeln('========Rata-Rata(Mean)========')

rumus
END Algoritma
Procedure5
Procedure rumus
DEKLARASI:
a,b:integer
DEFINISI:
write('Masukkan berapa batas maksimum perpangkatan : ') readln(b)
a 1
while a<=b do
begin
writeln(a,' = ',a*a)
a a+1
endwhile
endprocedure
Algoritma perpangkatan
DEFINISI:
writeln('==========Perpangkatan==========')
rumus
END Algoritma

Algoritma with pascal

More Related Content

Similar to Algoritma with pascal (19)

Recently uploaded (6)

Algoritma with pascal