Soal algoritma - Ini adalah salah satu Soal algoritma yang bisa kamu ketahui disini, kami sampaikan karena kami ingin berbagi dibidang Soal algoritma tersebut, kami membahas sangat lengkap sehingga anda yang ingin mendapatkan Soal algoritma bisa kamu dapatkan dibawah ini. Anda tinggal mendownload Soal algoritma yang kami berikan sehingga bisa menjadi media belajar anda nantinya.
Tentunya kami akan berbagi semua juga disini karena soal-soal untuk bisa mencerdaskan anak bangsa dengan belajar seperti Soal algoritma membuat anda bisa mengejarkan soal-soal yang akan keluar nantinya, Untuk itulah anda bisa dapatkan disini ya. Semoga bermanfaat untuk anda semua tentang Soal algoritma tersebut.
1. Bagaimana menuliskan kamus data dalam algoritma beserta contoh tipe data dari variabel?
[sourcecode language=”delphi” wraplines=”false” collapse=”false”] DEKLARASI/VAR/KAMUS DATA
VarNama : String
VarUmur : Integer
VarTargetIPK : Real
VarJomblo : Boolean
VarTargetNilaiAlpro : Character
[/sourcecode]
2. Bagaimana algoritma untuk memerintahkan komputer menampilkan teks ke layar monitor?
[sourcecode language=”delphi” wraplines=”true” collapse=”false”] OUTPUT(“Work Hard! Success come through ideas and lots of action!”)
[/sourcecode]
3. Bagaimana algoritma untuk memasukan nilai ke dalam sebuah variabel?
[sourcecode language=”delphi” wraplines=”false” collapse=”false”] INPUT(VarNama)
[/sourcecode]
4. Bagaimana algoritma untuk memerintahkan komputer menampilkan nilai dari sebuah variabel ke layar monitor?
[sourcecode language=”delphi” wraplines=”false” collapse=”false”] OUTPUT(VarNama)
[/sourcecode]
5. Buatlah contoh algoritma sebagai berikut:
{*Menjelaskan tentang Variabel, Konstanta, Tipe Data, Assignment dan Output*} DEKLARASI/VAR/KAMUS DATA
VarNama : String
VarUmur : Integer
VarTargetIPK : Real
VarJomblo : Boolean
VarTargetNilaiAlpro : Character
KONSTANTA
KonsTempatTanggalLahir : String ”Sumedang, 28-Agustus-1960”
BEGIN
VarNama <– “Awan Rimbawan”
VarUmur <– 54
VarTargetIPK <– 3.99
VarJomblo <– FALSE
VarTargetNilaiAlpro <– ’A’
OUTPUT(“Ini adalah data tentang Awan Rimbawan”)
OUTPUT(VarNama)
OUTPUT(VarUmur)
OUTPUT(VarTargetIPK)
OUTPUT(VarJomblo)
OUTPUT(KonstTempatTanggalLahir)
END
[/sourcecode]
6. Buatlah contoh algoritma sebagai berikut:
{*Sama seperti sebelumnya, tetapi bagaimana jika ditambahkan assignment baru dan di outputkan lagi?*} DEKLARASI/VAR/KAMUS DATA
VarNama : String
VarUmur : Integer
VarTargetIPK : Real
VarJomblo : Boolean
VarTargetNilaiAlpro : Character
KONSTANTA
KonsTempatTanggalLahirSibutar : String <–”Sitoli,13-Jan-1964”
KonsTempatTanggalLahirAmanda : String <–”B.Aceh, 7-Feb-1992”
BEGIN
VarNama <– “Sibutar-butar”
VarUmur <– 50
VarTargetIPK <– 4.00
VarJomblo : TRUE
VarTargetNilaiAlpro <– ’AB’
OUTPUT(“Ini adalah data tentang Sibutar-butar”)
OUTPUT(VarNama)
OUTPUT(VarUmur)
OUTPUT(VarTargetIPK)
OUTPUT(VarJomblo)
OUTPUT(KonsTempatTanggalLahirSibutar)
VarNama <– “Amanda Larashati”
VarUmur <– 22
VarTargetIPK <– 3.75
VarJomblo : TRUE
VarTargetNilaiAlpro <– ’C’
OUTPUT(“Ini adalah data tentang Amanda”)
OUTPUT(VarNama)
OUTPUT(VarUmur)
OUTPUT(VarTargetIPK)
OUTPUT(VarJomblo)
OUTPUT(KonsTempatTanggalLahirAmanda)
END
[/sourcecode] 7. Buatlah sebuah algoritma yang bisa menerima inputan dari keyboard kemudian menampilkannya ke layar.
[sourcecode language=”delphi” wraplines=”false” collapse=”false”] ALGORITMA Contoh3;
{*contoh input dan output*} VAR
VarNama: String
VarNilai: Char
BEGIN
OUTPUT(‘Masukkan nama: ‘)
INPUT(VarNama)
OUTPUT( ‘Masukkan nilai: ‘)
INPUT(Varnilai)
OUTPUT(‘Nama: ‘ , VarNama)
OUTPUT(‘Nilai: ‘, Varnilai)
END.
[/sourcecode]
1. Buatlah algoritma dan program yang memasukkan dua buah nilai integer 10 dan 6. Kemudian melakukan operasi Aritmetika kepada dua buah bilangan tersebut
Algoritma:
[sourcecode language=”delphi” wraplines=”true” collapse=”true”] ALGORITMA 1Aritmatika
{ Buat program yang menggunakan operator aritmetika
+ – * div mod pada bilangan bulat} VAR
BilanganBulat1: Integer
BilanganBulat2: Integer
HasilBilanganBulat: Integer
BEGIN
BilanganBulat1 <– 10
BilanganBulat2 <– 6
OUTPUT(BilanganBulat1)
OUTPUT(BilanganBulat2)
HasilBilanganBulat <– BilanganBulat1 + BilanganBulat2
OUTPUT(HasilBilanganBulat)
HasilBilanganBulat <– BilanganBulat1 – BilanganBulat2
OUTPUT(HasilBilanganBulat)
HasilBilanganBulat <– BilanganBulat1 div BilanganBulat2
OUTPUT(HasilBilanganBulat)
HasilBilanganBulat <– BilanganBulat1 * BilanganBulat2
OUTPUT(HasilBilanganBulat)
HasilBilanganBulat <– BilanganBulat1 mod BilanganBulat2
OUTPUT(HasilBilanganBulat)
END
[/sourcecode]
Pascal:
[sourcecode language=”delphi” wraplines=”true” collapse=”true”] PROGRAM 1Aritmatika;</pre>
<pre>{ Buat program yang menggunakan operator aritmetika
+ – * div mod pada bilangan bulat } USES crt;
VAR
BilanganBulat1: Integer;
BilanganBulat2: Integer;
HasilBilanganBulat: Integer;
BEGIN
CLRSCR;
BilanganBulat1 := 10;
BilanganBulat2 := 6;
WRITELN(‘BilanganBulat1: ‘,BilanganBulat1);
WRITELN(‘BilanganBulat2: ‘,BilanganBulat2);
HasilBilanganBulat := BilanganBulat1 + BilanganBulat2;
WRITELN(‘Hasil Penambahan kedua bilangan: ‘,HasilBilanganBulat);
HasilBilanganBulat := BilanganBulat1 – BilanganBulat2;
WRITELN(‘Hasil bilangan1 dikurangi bilangan2: ‘,HasilBilanganBulat);
HasilBilanganBulat := BilanganBulat1 div BilanganBulat2;
WRITELN(‘Hasil bilangan1 dibagi bilangan2: ‘,HasilBilanganBulat);
HasilBilanganBulat := BilanganBulat1 * BilanganBulat2;
WRITELN(‘Hasil Perkalian kedua bilangan: ‘,HasilBilanganBulat);
HasilBilanganBulat := BilanganBulat1 mod BilanganBulat2;
WRITELN(‘Sisa pembagian modulo bilangan1 dibagi bilangan2 : ‘,HasilBilanganBulat);
READLN;
END.
[/sourcecode]
2. Buatlah algoritma yang menerima inputan dua buah bilangan bulat, kemudian tunjukkan contoh penggunaan operator relasional dan logika
[sourcecode language=”delphi” wraplines=”true” collapse=”true”] ALGORITMA RelasionalLogika
{ Buat algoritma yang menggunakan operator relasional dan logika } VAR
in1, in2, in3 : Integer
bool1, bool2 : Boolean
BEGIN
in1 <– 15
in2 <– 19
OUTPUT(‘nilai in1 : ‘,in1)
OUTPUT(‘nilai in2 : ‘,in2)
bool1 <– in1 < in2
OUTPUT(‘in1 lebih kecil daripada in2 ‘,bool1)
bool1 <– in1 > in2
OUTPUT(‘in1 lebih besar daripada in2 ‘,bool1)
bool2 <– (in1 = in2) AND (in1 < in2)
OUTPUT(‘(in1 = in2) AND (in1 < in2) bernilai ‘,bool2)
bool2 <– (in2 = in1) OR (in2 > in1)
OUTPUT(‘(in2 = in1) OR (in2 > in1) bernilai’,bool2)
END
[/sourcecode]
3. Buat algoritma yang menerima inputan jarak tempuh dan kecepatan, kemudian meng-outputkan waktu yang dibutuhkan untuk menempuhnya
[sourcecode language=”delphi” wraplines=”true” collapse=”true”] ALGORITMA MenghitungKecepatan
{ Buat algoritma yang menerima inputan jarak tempuh dan kecepatan
kemudian meng-outputkan waktu yang dibutuhkan untuk menempuhnya
} VAR
iJarak,iKecepatan, iWaktu: Real
BEGIN
OUTPUT(‘Masukkan jarak yg akan ditempuh (dalam km): ‘)
INPUT(iJarak)
OUTPUT(‘Masukkan kecepatan kendaraan (dalam km/jam): ‘)
INPUT(iKecepatan)
iWaktu = iJarak DIV iKecepatan
OUTPUT(iWaktu)
END
[/sourcecode] 4. Buatlah algoritma untuk menghitung luas segitiga
[sourcecode language=”delphi” wraplines=”true” collapse=”true”] ALGORITMA MenghitungLuasSegitiga
{algoritma yang menerima inputan alas dan tinggi untuk menghitung luas segitiga} VAR
fAlas, fTinggi, fLuas: Real
BEGIN
OUTPUT(‘Masukkan Alas: ‘)
INPUT(fAlas)
OUTPUT(‘Masukkan Tinggi: ‘)
INPUT(fTinggi)
fLuas = 0.5 * fAlas * fTinggi
OUTPUT(‘Luas segitiga adalah:’)
OUTPUT(fLuas)
END
[/sourcecode] 5. Buat algoritma yang meminta inputan 5 buah jari-jari kemudian meng-outputkan luas lingkaran
[sourcecode language=”delphi” wraplines=”true” collapse=”true”] ALGORITMA Luas5Lingkaran
{Algoritma yang menerima inputan 5 buah jari-jari kemudian mengoutputkan luas 5 buah lingkaran tersebut} VAR
fR1, fR2, fR3, fR4, fR5: REAL
fLuas1, fLuas2, fLuas3, fLuas4, fLuas5: REAL
BEGIN
OUTPUT(‘Masukkan jari-jari lingkaran 1: ‘)
INPUT(fR1)
OUTPUT(‘Masukkan jari-jari lingkaran 2: ‘)
INPUT(fR2)
OUTPUT(‘Masukkan jari-jari lingkaran 3: ‘)
INPUT(fR3)
OUTPUT(‘Masukkan jari-jari lingkaran 4: ‘)
INPUT(fR4)
OUTPUT(‘Masukkan jari-jari lingkaran 5: ‘)
INPUT(fR5)
fLuas1 = 3.14 * fR1 * fR1
fLuas2 = 3.14 * fR2 * fR2
fLuas3 = 3.14 * fR3 * fR3
fLuas4 = 3.14 * fR4 * fR4
fLuas5 = 3.14 * fR5 * fR5
OUTPUT(‘ Luas lingkaran 1 : fLuas1)
OUTPUT(‘ Luas lingkaran 2 : fLuas2)
OUTPUT(‘ Luas lingkaran 3 : fLuas3)
OUTPUT(‘ Luas lingkaran 4 : fLuas4)
OUTPUT(‘ Luas lingkaran 5 : fLuas5)
END
[/sourcecode]
6. Buat algoritma yang menukarkan kedua buah isi gelas
[sourcecode language=”delphi” wraplines=”true” collapse=”true”] ALGORITMA TukarGelas
{membuat algoritma tukar gelas Kopi Areng dan Jamu Sido Muncul
berikan ilustrasinya dulu, buat tabel dry run, lalu buat algoritmanya}
VAR
gelas1 : String
gelas2 : String
gelas3 : String
BEGIN ALGORITMA
//pertama gelas diisi teh dan sirup
gelas1 <– "Kopi Areng"
gelas2 <– "Jamu Sido Muncul"
//pada state awal apa isi gelas1 dan gelas2 adalah
OUTPUT(gelas1)
OUTPUT(gelas2)
//proses: tukarkan isi gelas teh dan sirup
gelas3 <– gelas1
gelas1 <– gelas2
gelas2 <– gelas3
//pada state akhir, apa isi gelas1, gelas2 ?
OUTPUT(gelas1)
OUTPUT(gelas2)
END ALGORITMA
[/sourcecode] 7. Tabel Dry Run dan Sequence
8. Buat Tabel Dry Run atau langkah2 dari game priests and cannibals crossing the river
game bisa di download di sini
1. Buat algoritma yang meminta 1 inputan angka kemudian menentukan apakah angka lebih besar atau lebih kecil daripada 10
[sourcecode language=”delphi” wraplines=”true” collapse=”true”] ALGORITMA ContohIF1 VAR
A : Integer
BEGIN
INPUT(A)
IF (A < 10) THEN
OUTPUT(‘nilai A lebih kecil dari 10’)
ELSE
IF A = 10 THEN
OUTPUT(‘nilai A adalah 10’)
ELSE
OUTPUT(‘nilai A lebih besar dari 10’)
END
[/sourcecode]
2. Buat algoritma yang meminta 1 inputan angka kemudian menentukan apakah angka tersebut ganjil atau genap
[sourcecode language=”delphi” wraplines=”true” collapse=”true”] ALGORITMA GanjilGenap
VAR
A,B : Integer
BEGIN
INPUT(A)
IF (A MOD 2 = 0) THEN
OUTPUT(‘A adalah bilangan genap’)
ELSE
OUTPUT(‘A adalah bilangan ganjil’)
END
[/sourcecode]
3. Buat algoritma yang menerima input 3 bilangan kemudian menentukan bilangan mana yang paling besar
[sourcecode language=”delphi” wraplines=”true” collapse=”true”] ALGORITMA Menentukan3Bilangan
VAR
in1, in2, in3 : Integer
BEGIN
INPUT(in1)
INPUT(in2)
INPUT(in3)
IF (in1 > in2) AND (in1 > in3) THEN
OUTPUT(in1)
ELSE
BEGIN
IF (in2 > in1) AND (in2 > in3) THEN
OUTPUT(in2)
ELSE
OUTPUT(IN3)
END
END
[/sourcecode]
4. Buat algoritma untuk menentukan lama bekerja seorang pegawai. Inputan adalah jam masuk dan jam pulang. Catatan: jam berupa angka 1-12, dan seorang pegawai bekerja kurang dari 12 jam.
Contoh:
Jam masuk: 10 (input oleh user)
Jam keluar: 12 (input oleh user)
Lama kerja: 2 jam (output dari algoritma)
Jam masuk: 11 (input oleh user)
Jam keluar: 3 (input oleh user)
Lama kerja: 4 jam (output dari algoritma)
[sourcecode language=”delphi” wraplines=”true” collapse=”true”] ALGORITMA Lama_Bekerja
{jam berupa angka 1-12, dan seorang pegawai bekerja kurang dari 12 jam} VAR
iMasuk, iKeluar, iLama: Integer
BEGIN
INPUT(iMasuk)
INPUT(iKeluar)
IF (iKeluar >= iMasuk) THEN
iLama <– iKeluar – iMasuk
ELSE
iLama <– (12-iMasuk) + iKeluar
OUTPUT(iLama)
END
[/sourcecode] 5. Tulis program untuk menentukan biaya parkir yang dihitung berdasarkan lama parkir. Lama parkir dihitung dari jam masuk dan jam keluar. Asumsi jam masuk dan keluar parkir berupa angka 1-12, dan lama parkir maksimal 12 jam. Biaya parkir 2 jam pertama 2000, perjam berikutnya 500.
Contoh Masukan dan keluaran:
Contoh:
Jam masuk: 10 (input oleh user)
Jam keluar: 11 (input oleh user)
Lama parkir: 1 jam
Biaya parkir: 2000 (output dari algoritma)
Jam masuk: 10 (input oleh user)
Jam keluar: 2 (input oleh user)
Lama parkir: 4 jam
Biaya Parkir: 3000 (output dari algoritma)
[sourcecode language=”delphi” wraplines=”true” collapse=”true”] Algoritma Biaya_Parkir
{menghitung biaya parkir} KAMUS DATA
iMasuk, iKeluar, iLama, iBiaya: Integer
BEGIN
Input(iMasuk)
Input(iKeluar)
If (iKeluar >= iMasuk) Then
iLama <– iKeluar – iMasuk
Else
iLama <– (12-iMasuk) + iKeluar
If (iLama > 2) Then
iBiaya <– 2000 + ((iLama – 2)*500)
else
iBiaya <– 2000
Output(iBiaya)
END
[/sourcecode] 6. Buat program menghitung selisih waktu (dalam jam dan menit) berdasarkan jam mulai (jam,menit) dengan jam selesai (jam,menit). Data yang diinput adalah jam dan menit mulai, jam dan menit selesai. Format jam yang dimasukkan bisa berupa format 12 jam ataupun 24jam.
Contoh Masukan dan keluaran:
[sourcecode language=”delphi” wraplines=”true” collapse=”true”] ALGORITMA MENGHITUNG_JAM_MENIT
{Inputan iJamStart,iMenitStart, iJamStop, iMenitStop. Keluaran iJamDurasi, iMenitDurasi} VAR
iJamStart,iMenitStart,iMenitStop,iJamStop: integer
iTotMenitStart,iTotMenitStop,iSelangMenit,iJamDurasi,iMenitDurasi: integer
BEGIN
Input(iJamStart)
Input(iMenitStart)
Input(iJamStop)
Input(iMenitStop)
iTotMenitStart <– iJamStart * 60 + iMenitStart
iTotMenitStop <– iJamStop * 60 + iMenitStop
If (iTotMenitStop >= iTotMenitStart) Then
iSelangMenit <– iTotMenitStop – iTotMenitStart
Else
iSelangMenit <– ((12*60)-iTotMenitStart) + iTotMenitStop
iJamDurasi <– iSelangMenit div 60
iMenitDurasi <– iSelangMenit mod 60
Output(iJamDurasi)
Output(iMenitDurasi)
END
[/sourcecode] 7.Buat program dengan masukan koordinat sebuah titik (x,y) dalam sebuah system koordinat kartesian, kemudian ditentukan di kuadran mana titik tersebut.
Contoh Masukan :
Koordinat titik (x,y) : 10 -20
Contoh keluaran:
Kuadran 4
[sourcecode language=”delphi” wraplines=”true” collapse=”true”] ALGORITMA Menghitung_Kuadran
VAR
ix, iy: Integer
BEGIN
Input(ix,iy)
If (ix >= 0) Then
If (iy >=0) Then
Output(“Kuadran I”)
Else
Output(“Kuadran IV”)
Else
If (iy >=0) Then
Output(“Kuadran II”)
Else
Output(“Kuadran III”)
END
[/sourcecode] 8.Pemerintah hanya memberikan tunjangan anak dari PNS maksimal sampai 3 anak saja. Setiap anak diberikan tunjangan sebesar 10% dari gaji pokok.
Tulis program untuk menghitung total tunjangan anak, bila gaji pokok dan jumlah anak diinput oleh user.
[sourcecode language=”delphi” wraplines=”true” collapse=”true”] ALGORITMA Menghitung_Tunjangan
VAR
iGajiPokok, iTunjangan, iJmlAnak: Integer
BEGIN
Input(iGajiPokok)
Input(iJmlAnak)
If (iJmlAnak <= 3) Then
iTunjangan <– iJmlAnak * 0.1 * iGajiPokok
Else
iTunjangan <– 3 * 0.1 * iGajiPokok
Output (iTunjangan)
END
[/sourcecode] 9. Sebuah acara wisata digunakan minibus kapasitas 7 penumpang per mobil. Apabila terjadi kelebihan penumpang (walaupun cuma 1), maka minibus yang digunakan ditambah 1. Tulis program untuk menghitung jumlah minibus yang diperlukan, bila jumlah pesertanya diinput:
[sourcecode language=”delphi” wraplines=”true” collapse=”true”] ALGORITMA Menghitung_Tunjangan VAR
iJmlPenumpang, iJmlMinibus : Integer
BEGIN
INPUT(iJmlPenumpang)
iJmlMinibus <– iJmlPenumpang DIV 7
iSisaPenumpang <– iJmlPenumpang MOD 7
IF (iSisaPenumpang <> 0) THEN
iJmlMinibus <– iJmlMinibus + 1
OUTPUT(iJmlMinibus)
//bagaimana mengatasi inputan minus?
END
[/sourcecode]
Tentunya kami akan berbagi semua juga disini karena soal-soal untuk bisa mencerdaskan anak bangsa dengan belajar seperti Soal algoritma membuat anda bisa mengejarkan soal-soal yang akan keluar nantinya, Untuk itulah anda bisa dapatkan disini ya. Semoga bermanfaat untuk anda semua tentang Soal algoritma tersebut.
Soal algoritma
1. Bagaimana menuliskan kamus data dalam algoritma beserta contoh tipe data dari variabel?
[sourcecode language=”delphi” wraplines=”false” collapse=”false”] DEKLARASI/VAR/KAMUS DATA
VarNama : String
VarUmur : Integer
VarTargetIPK : Real
VarJomblo : Boolean
VarTargetNilaiAlpro : Character
[/sourcecode]
2. Bagaimana algoritma untuk memerintahkan komputer menampilkan teks ke layar monitor?
[sourcecode language=”delphi” wraplines=”true” collapse=”false”] OUTPUT(“Work Hard! Success come through ideas and lots of action!”)
[/sourcecode]
3. Bagaimana algoritma untuk memasukan nilai ke dalam sebuah variabel?
[sourcecode language=”delphi” wraplines=”false” collapse=”false”] INPUT(VarNama)
[/sourcecode]
4. Bagaimana algoritma untuk memerintahkan komputer menampilkan nilai dari sebuah variabel ke layar monitor?
[sourcecode language=”delphi” wraplines=”false” collapse=”false”] OUTPUT(VarNama)
[/sourcecode]
5. Buatlah contoh algoritma sebagai berikut:
- Mempunyai 5 variabel yaitu VarNama : String, VarUmur : Integer, VarTargetIPK : Real, VarJomblo : Boolean, VarTargetNilaiAlpro : Character
- Mempunyai 1 konstanta bernama KonsTempatTanggalLahir yang bertipe data string
- Algoritma tersebut akan mengisikan nilai-nilai ke dalam variabel, kemudian menampilkannya ke layar
{*Menjelaskan tentang Variabel, Konstanta, Tipe Data, Assignment dan Output*} DEKLARASI/VAR/KAMUS DATA
VarNama : String
VarUmur : Integer
VarTargetIPK : Real
VarJomblo : Boolean
VarTargetNilaiAlpro : Character
KONSTANTA
KonsTempatTanggalLahir : String ”Sumedang, 28-Agustus-1960”
BEGIN
VarNama <– “Awan Rimbawan”
VarUmur <– 54
VarTargetIPK <– 3.99
VarJomblo <– FALSE
VarTargetNilaiAlpro <– ’A’
OUTPUT(“Ini adalah data tentang Awan Rimbawan”)
OUTPUT(VarNama)
OUTPUT(VarUmur)
OUTPUT(VarTargetIPK)
OUTPUT(VarJomblo)
OUTPUT(KonstTempatTanggalLahir)
END
[/sourcecode]
6. Buatlah contoh algoritma sebagai berikut:
- Mempunyai 5 variabel yaitu VarNama : String, VarUmur : Integer, VarTargetIPK : Real, VarJomblo : Boolean, VarTargetNilaiAlpro : Character
- Algoritma tersebut akan memasukkan nilai-nilai ke dalam variabel, kemudian memasukkannya ke layar
- Lalu dimasukkan nilai-nilai berikutnya dan ditampilkan kembali ke layar
{*Sama seperti sebelumnya, tetapi bagaimana jika ditambahkan assignment baru dan di outputkan lagi?*} DEKLARASI/VAR/KAMUS DATA
VarNama : String
VarUmur : Integer
VarTargetIPK : Real
VarJomblo : Boolean
VarTargetNilaiAlpro : Character
KONSTANTA
KonsTempatTanggalLahirSibutar : String <–”Sitoli,13-Jan-1964”
KonsTempatTanggalLahirAmanda : String <–”B.Aceh, 7-Feb-1992”
BEGIN
VarNama <– “Sibutar-butar”
VarUmur <– 50
VarTargetIPK <– 4.00
VarJomblo : TRUE
VarTargetNilaiAlpro <– ’AB’
OUTPUT(“Ini adalah data tentang Sibutar-butar”)
OUTPUT(VarNama)
OUTPUT(VarUmur)
OUTPUT(VarTargetIPK)
OUTPUT(VarJomblo)
OUTPUT(KonsTempatTanggalLahirSibutar)
VarNama <– “Amanda Larashati”
VarUmur <– 22
VarTargetIPK <– 3.75
VarJomblo : TRUE
VarTargetNilaiAlpro <– ’C’
OUTPUT(“Ini adalah data tentang Amanda”)
OUTPUT(VarNama)
OUTPUT(VarUmur)
OUTPUT(VarTargetIPK)
OUTPUT(VarJomblo)
OUTPUT(KonsTempatTanggalLahirAmanda)
END
[/sourcecode] 7. Buatlah sebuah algoritma yang bisa menerima inputan dari keyboard kemudian menampilkannya ke layar.
[sourcecode language=”delphi” wraplines=”false” collapse=”false”] ALGORITMA Contoh3;
{*contoh input dan output*} VAR
VarNama: String
VarNilai: Char
BEGIN
OUTPUT(‘Masukkan nama: ‘)
INPUT(VarNama)
OUTPUT( ‘Masukkan nilai: ‘)
INPUT(Varnilai)
OUTPUT(‘Nama: ‘ , VarNama)
OUTPUT(‘Nilai: ‘, Varnilai)
END.
[/sourcecode]
1. Buatlah algoritma dan program yang memasukkan dua buah nilai integer 10 dan 6. Kemudian melakukan operasi Aritmetika kepada dua buah bilangan tersebut
Algoritma:
[sourcecode language=”delphi” wraplines=”true” collapse=”true”] ALGORITMA 1Aritmatika
{ Buat program yang menggunakan operator aritmetika
+ – * div mod pada bilangan bulat} VAR
BilanganBulat1: Integer
BilanganBulat2: Integer
HasilBilanganBulat: Integer
BEGIN
BilanganBulat1 <– 10
BilanganBulat2 <– 6
OUTPUT(BilanganBulat1)
OUTPUT(BilanganBulat2)
HasilBilanganBulat <– BilanganBulat1 + BilanganBulat2
OUTPUT(HasilBilanganBulat)
HasilBilanganBulat <– BilanganBulat1 – BilanganBulat2
OUTPUT(HasilBilanganBulat)
HasilBilanganBulat <– BilanganBulat1 div BilanganBulat2
OUTPUT(HasilBilanganBulat)
HasilBilanganBulat <– BilanganBulat1 * BilanganBulat2
OUTPUT(HasilBilanganBulat)
HasilBilanganBulat <– BilanganBulat1 mod BilanganBulat2
OUTPUT(HasilBilanganBulat)
END
[/sourcecode]
Pascal:
[sourcecode language=”delphi” wraplines=”true” collapse=”true”] PROGRAM 1Aritmatika;</pre>
<pre>{ Buat program yang menggunakan operator aritmetika
+ – * div mod pada bilangan bulat } USES crt;
VAR
BilanganBulat1: Integer;
BilanganBulat2: Integer;
HasilBilanganBulat: Integer;
BEGIN
CLRSCR;
BilanganBulat1 := 10;
BilanganBulat2 := 6;
WRITELN(‘BilanganBulat1: ‘,BilanganBulat1);
WRITELN(‘BilanganBulat2: ‘,BilanganBulat2);
HasilBilanganBulat := BilanganBulat1 + BilanganBulat2;
WRITELN(‘Hasil Penambahan kedua bilangan: ‘,HasilBilanganBulat);
HasilBilanganBulat := BilanganBulat1 – BilanganBulat2;
WRITELN(‘Hasil bilangan1 dikurangi bilangan2: ‘,HasilBilanganBulat);
HasilBilanganBulat := BilanganBulat1 div BilanganBulat2;
WRITELN(‘Hasil bilangan1 dibagi bilangan2: ‘,HasilBilanganBulat);
HasilBilanganBulat := BilanganBulat1 * BilanganBulat2;
WRITELN(‘Hasil Perkalian kedua bilangan: ‘,HasilBilanganBulat);
HasilBilanganBulat := BilanganBulat1 mod BilanganBulat2;
WRITELN(‘Sisa pembagian modulo bilangan1 dibagi bilangan2 : ‘,HasilBilanganBulat);
READLN;
END.
[/sourcecode]
2. Buatlah algoritma yang menerima inputan dua buah bilangan bulat, kemudian tunjukkan contoh penggunaan operator relasional dan logika
[sourcecode language=”delphi” wraplines=”true” collapse=”true”] ALGORITMA RelasionalLogika
{ Buat algoritma yang menggunakan operator relasional dan logika } VAR
in1, in2, in3 : Integer
bool1, bool2 : Boolean
BEGIN
in1 <– 15
in2 <– 19
OUTPUT(‘nilai in1 : ‘,in1)
OUTPUT(‘nilai in2 : ‘,in2)
bool1 <– in1 < in2
OUTPUT(‘in1 lebih kecil daripada in2 ‘,bool1)
bool1 <– in1 > in2
OUTPUT(‘in1 lebih besar daripada in2 ‘,bool1)
bool2 <– (in1 = in2) AND (in1 < in2)
OUTPUT(‘(in1 = in2) AND (in1 < in2) bernilai ‘,bool2)
bool2 <– (in2 = in1) OR (in2 > in1)
OUTPUT(‘(in2 = in1) OR (in2 > in1) bernilai’,bool2)
END
[/sourcecode]
3. Buat algoritma yang menerima inputan jarak tempuh dan kecepatan, kemudian meng-outputkan waktu yang dibutuhkan untuk menempuhnya
[sourcecode language=”delphi” wraplines=”true” collapse=”true”] ALGORITMA MenghitungKecepatan
{ Buat algoritma yang menerima inputan jarak tempuh dan kecepatan
kemudian meng-outputkan waktu yang dibutuhkan untuk menempuhnya
} VAR
iJarak,iKecepatan, iWaktu: Real
BEGIN
OUTPUT(‘Masukkan jarak yg akan ditempuh (dalam km): ‘)
INPUT(iJarak)
OUTPUT(‘Masukkan kecepatan kendaraan (dalam km/jam): ‘)
INPUT(iKecepatan)
iWaktu = iJarak DIV iKecepatan
OUTPUT(iWaktu)
END
[/sourcecode] 4. Buatlah algoritma untuk menghitung luas segitiga
[sourcecode language=”delphi” wraplines=”true” collapse=”true”] ALGORITMA MenghitungLuasSegitiga
{algoritma yang menerima inputan alas dan tinggi untuk menghitung luas segitiga} VAR
fAlas, fTinggi, fLuas: Real
BEGIN
OUTPUT(‘Masukkan Alas: ‘)
INPUT(fAlas)
OUTPUT(‘Masukkan Tinggi: ‘)
INPUT(fTinggi)
fLuas = 0.5 * fAlas * fTinggi
OUTPUT(‘Luas segitiga adalah:’)
OUTPUT(fLuas)
END
[/sourcecode] 5. Buat algoritma yang meminta inputan 5 buah jari-jari kemudian meng-outputkan luas lingkaran
[sourcecode language=”delphi” wraplines=”true” collapse=”true”] ALGORITMA Luas5Lingkaran
{Algoritma yang menerima inputan 5 buah jari-jari kemudian mengoutputkan luas 5 buah lingkaran tersebut} VAR
fR1, fR2, fR3, fR4, fR5: REAL
fLuas1, fLuas2, fLuas3, fLuas4, fLuas5: REAL
BEGIN
OUTPUT(‘Masukkan jari-jari lingkaran 1: ‘)
INPUT(fR1)
OUTPUT(‘Masukkan jari-jari lingkaran 2: ‘)
INPUT(fR2)
OUTPUT(‘Masukkan jari-jari lingkaran 3: ‘)
INPUT(fR3)
OUTPUT(‘Masukkan jari-jari lingkaran 4: ‘)
INPUT(fR4)
OUTPUT(‘Masukkan jari-jari lingkaran 5: ‘)
INPUT(fR5)
fLuas1 = 3.14 * fR1 * fR1
fLuas2 = 3.14 * fR2 * fR2
fLuas3 = 3.14 * fR3 * fR3
fLuas4 = 3.14 * fR4 * fR4
fLuas5 = 3.14 * fR5 * fR5
OUTPUT(‘ Luas lingkaran 1 : fLuas1)
OUTPUT(‘ Luas lingkaran 2 : fLuas2)
OUTPUT(‘ Luas lingkaran 3 : fLuas3)
OUTPUT(‘ Luas lingkaran 4 : fLuas4)
OUTPUT(‘ Luas lingkaran 5 : fLuas5)
END
[/sourcecode]
6. Buat algoritma yang menukarkan kedua buah isi gelas
[sourcecode language=”delphi” wraplines=”true” collapse=”true”] ALGORITMA TukarGelas
{membuat algoritma tukar gelas Kopi Areng dan Jamu Sido Muncul
berikan ilustrasinya dulu, buat tabel dry run, lalu buat algoritmanya}
VAR
gelas1 : String
gelas2 : String
gelas3 : String
BEGIN ALGORITMA
//pertama gelas diisi teh dan sirup
gelas1 <– "Kopi Areng"
gelas2 <– "Jamu Sido Muncul"
//pada state awal apa isi gelas1 dan gelas2 adalah
OUTPUT(gelas1)
OUTPUT(gelas2)
//proses: tukarkan isi gelas teh dan sirup
gelas3 <– gelas1
gelas1 <– gelas2
gelas2 <– gelas3
//pada state akhir, apa isi gelas1, gelas2 ?
OUTPUT(gelas1)
OUTPUT(gelas2)
END ALGORITMA
[/sourcecode] 7. Tabel Dry Run dan Sequence
8. Buat Tabel Dry Run atau langkah2 dari game priests and cannibals crossing the river
game bisa di download di sini
1. Buat algoritma yang meminta 1 inputan angka kemudian menentukan apakah angka lebih besar atau lebih kecil daripada 10
[sourcecode language=”delphi” wraplines=”true” collapse=”true”] ALGORITMA ContohIF1 VAR
A : Integer
BEGIN
INPUT(A)
IF (A < 10) THEN
OUTPUT(‘nilai A lebih kecil dari 10’)
ELSE
IF A = 10 THEN
OUTPUT(‘nilai A adalah 10’)
ELSE
OUTPUT(‘nilai A lebih besar dari 10’)
END
[/sourcecode]
2. Buat algoritma yang meminta 1 inputan angka kemudian menentukan apakah angka tersebut ganjil atau genap
[sourcecode language=”delphi” wraplines=”true” collapse=”true”] ALGORITMA GanjilGenap
VAR
A,B : Integer
BEGIN
INPUT(A)
IF (A MOD 2 = 0) THEN
OUTPUT(‘A adalah bilangan genap’)
ELSE
OUTPUT(‘A adalah bilangan ganjil’)
END
[/sourcecode]
3. Buat algoritma yang menerima input 3 bilangan kemudian menentukan bilangan mana yang paling besar
[sourcecode language=”delphi” wraplines=”true” collapse=”true”] ALGORITMA Menentukan3Bilangan
VAR
in1, in2, in3 : Integer
BEGIN
INPUT(in1)
INPUT(in2)
INPUT(in3)
IF (in1 > in2) AND (in1 > in3) THEN
OUTPUT(in1)
ELSE
BEGIN
IF (in2 > in1) AND (in2 > in3) THEN
OUTPUT(in2)
ELSE
OUTPUT(IN3)
END
END
[/sourcecode]
4. Buat algoritma untuk menentukan lama bekerja seorang pegawai. Inputan adalah jam masuk dan jam pulang. Catatan: jam berupa angka 1-12, dan seorang pegawai bekerja kurang dari 12 jam.
Contoh:
Jam masuk: 10 (input oleh user)
Jam keluar: 12 (input oleh user)
Lama kerja: 2 jam (output dari algoritma)
Jam masuk: 11 (input oleh user)
Jam keluar: 3 (input oleh user)
Lama kerja: 4 jam (output dari algoritma)
[sourcecode language=”delphi” wraplines=”true” collapse=”true”] ALGORITMA Lama_Bekerja
{jam berupa angka 1-12, dan seorang pegawai bekerja kurang dari 12 jam} VAR
iMasuk, iKeluar, iLama: Integer
BEGIN
INPUT(iMasuk)
INPUT(iKeluar)
IF (iKeluar >= iMasuk) THEN
iLama <– iKeluar – iMasuk
ELSE
iLama <– (12-iMasuk) + iKeluar
OUTPUT(iLama)
END
[/sourcecode] 5. Tulis program untuk menentukan biaya parkir yang dihitung berdasarkan lama parkir. Lama parkir dihitung dari jam masuk dan jam keluar. Asumsi jam masuk dan keluar parkir berupa angka 1-12, dan lama parkir maksimal 12 jam. Biaya parkir 2 jam pertama 2000, perjam berikutnya 500.
Contoh Masukan dan keluaran:
Contoh:
Jam masuk: 10 (input oleh user)
Jam keluar: 11 (input oleh user)
Lama parkir: 1 jam
Biaya parkir: 2000 (output dari algoritma)
Jam masuk: 10 (input oleh user)
Jam keluar: 2 (input oleh user)
Lama parkir: 4 jam
Biaya Parkir: 3000 (output dari algoritma)
[sourcecode language=”delphi” wraplines=”true” collapse=”true”] Algoritma Biaya_Parkir
{menghitung biaya parkir} KAMUS DATA
iMasuk, iKeluar, iLama, iBiaya: Integer
BEGIN
Input(iMasuk)
Input(iKeluar)
If (iKeluar >= iMasuk) Then
iLama <– iKeluar – iMasuk
Else
iLama <– (12-iMasuk) + iKeluar
If (iLama > 2) Then
iBiaya <– 2000 + ((iLama – 2)*500)
else
iBiaya <– 2000
Output(iBiaya)
END
[/sourcecode] 6. Buat program menghitung selisih waktu (dalam jam dan menit) berdasarkan jam mulai (jam,menit) dengan jam selesai (jam,menit). Data yang diinput adalah jam dan menit mulai, jam dan menit selesai. Format jam yang dimasukkan bisa berupa format 12 jam ataupun 24jam.
Contoh Masukan dan keluaran:
[sourcecode language=”delphi” wraplines=”true” collapse=”true”] ALGORITMA MENGHITUNG_JAM_MENIT
{Inputan iJamStart,iMenitStart, iJamStop, iMenitStop. Keluaran iJamDurasi, iMenitDurasi} VAR
iJamStart,iMenitStart,iMenitStop,iJamStop: integer
iTotMenitStart,iTotMenitStop,iSelangMenit,iJamDurasi,iMenitDurasi: integer
BEGIN
Input(iJamStart)
Input(iMenitStart)
Input(iJamStop)
Input(iMenitStop)
iTotMenitStart <– iJamStart * 60 + iMenitStart
iTotMenitStop <– iJamStop * 60 + iMenitStop
If (iTotMenitStop >= iTotMenitStart) Then
iSelangMenit <– iTotMenitStop – iTotMenitStart
Else
iSelangMenit <– ((12*60)-iTotMenitStart) + iTotMenitStop
iJamDurasi <– iSelangMenit div 60
iMenitDurasi <– iSelangMenit mod 60
Output(iJamDurasi)
Output(iMenitDurasi)
END
[/sourcecode] 7.Buat program dengan masukan koordinat sebuah titik (x,y) dalam sebuah system koordinat kartesian, kemudian ditentukan di kuadran mana titik tersebut.
Contoh Masukan :
Koordinat titik (x,y) : 10 -20
Contoh keluaran:
Kuadran 4
[sourcecode language=”delphi” wraplines=”true” collapse=”true”] ALGORITMA Menghitung_Kuadran
VAR
ix, iy: Integer
BEGIN
Input(ix,iy)
If (ix >= 0) Then
If (iy >=0) Then
Output(“Kuadran I”)
Else
Output(“Kuadran IV”)
Else
If (iy >=0) Then
Output(“Kuadran II”)
Else
Output(“Kuadran III”)
END
[/sourcecode] 8.Pemerintah hanya memberikan tunjangan anak dari PNS maksimal sampai 3 anak saja. Setiap anak diberikan tunjangan sebesar 10% dari gaji pokok.
Tulis program untuk menghitung total tunjangan anak, bila gaji pokok dan jumlah anak diinput oleh user.
[sourcecode language=”delphi” wraplines=”true” collapse=”true”] ALGORITMA Menghitung_Tunjangan
VAR
iGajiPokok, iTunjangan, iJmlAnak: Integer
BEGIN
Input(iGajiPokok)
Input(iJmlAnak)
If (iJmlAnak <= 3) Then
iTunjangan <– iJmlAnak * 0.1 * iGajiPokok
Else
iTunjangan <– 3 * 0.1 * iGajiPokok
Output (iTunjangan)
END
[/sourcecode] 9. Sebuah acara wisata digunakan minibus kapasitas 7 penumpang per mobil. Apabila terjadi kelebihan penumpang (walaupun cuma 1), maka minibus yang digunakan ditambah 1. Tulis program untuk menghitung jumlah minibus yang diperlukan, bila jumlah pesertanya diinput:
[sourcecode language=”delphi” wraplines=”true” collapse=”true”] ALGORITMA Menghitung_Tunjangan VAR
iJmlPenumpang, iJmlMinibus : Integer
BEGIN
INPUT(iJmlPenumpang)
iJmlMinibus <– iJmlPenumpang DIV 7
iSisaPenumpang <– iJmlPenumpang MOD 7
IF (iSisaPenumpang <> 0) THEN
iJmlMinibus <– iJmlMinibus + 1
OUTPUT(iJmlMinibus)
//bagaimana mengatasi inputan minus?
END
[/sourcecode]
0 Response to "Soal algoritma"
Posting Komentar