kepada bapak awan rimbawan saya ucapkan terimakasih atas
bimbingan dan ajaran nya setiap saya masuk matkul Alpro saya serasa bukan
belajar alpro tapi lebih mendengarkan pengalaman pengalaman bapak dan selalu
ata cerita cerita yang sangat inspiratif yang bapak berikan sebelum kita mulai
ke perkuliahan inti. ini yang menbuat sangat menarik dibandingkan dosen dosen
yang lain nya... walaupun bapak bilang tahun depan tidak akan ngajar lagi tapi
saya harap bapak tetap konsisten terhadap sistem ajaran bapak. Mengenaim
Perkuliahna dalam hal materi dan tugas saya rasa bapak juga berpeda dengan
dosen yang lain, ketika bapak memberikan tugas segudang, dan ketikan saya
tanyakan ke teman kelas lain tugas nya berbeda dengan kelas saya. Awalnya saya
agak tidak terima karna tugas kami di diskriminasi dengan tugas kelas lain yang
berbedan namun akhirnya saya mulai menyadari ini dan kami belajar lebih
dibandingkan kelas lain. Jujur walupun saya terkadang sulit mengerti terhadap
tugas tugas yang bapak berikan namun saya mencoba berusaha mengerjakan loh pak
walaupun ujung-ujung nya di bantu oleh teman-teman saya, ketika saya sudah
mentok banget dan tidak mengerti jujur saya sering mengcopy punya teman dan
hanya menggati variabel dari suatu program itu sendiri. Saya ucapkan terimakasi
sekali lagi atas ajaran dan didikan serta kata-kata mutira dan motivasi dari
bapak, mudah-mudahan kita bisa berjumpa di lain kesempatan...
Jumat, 19 Desember 2014
Rabu, 29 Oktober 2014
Soal Looping 2
3.Buatlah algoritma dan program untuk menampilkan angka seperti berikut:
Contoh inputan :
Jumlah angka : 5
1 5
2 4
3
2 4
1 5
|
Jumlah angka : 6
1 6
2 5
34
34
2 5
1 6
|
Jumlah angka : 9
1 9
2 8
3
7
4 6
5
4 6
3
7
2
8
1 9
|
PROGRAM PASCAL NYA :
program no3;
uses crt;
var
i, j , k , l : integer ;
begin
clrscr;
write('Inputkan Jumlah Angka:');
readln(i);
j := i ;
for k := 1 to i do
begin
for l := 1 to i do
begin
if ((l=j)or (l=k)) then
begin
write (l);
end
else
write (' ');
end;
j := j - 1;
writeln();
end;
readln();
end.
ouputan jika kita inputkan 5 :
jika kita inputkan 6 :
jika kita inputkan 9 :
Soal Looping 2
2. Jika user memasukkan angka 5 Apa Output dari algoritma berikut?
ALGORITMA loop2
KAMUS DATA
I,j,n: Integer
BEGIN
Input(n)
For i :=0 to n-1 do
begin
For j:=0 to n-1 do
begin
Output(j+1)
end
Output("\n") //ganti baris
end
End
PROGRAM PASCAL NYA:
program no2;
uses crt;
var i , j, n : integer;
begin
clrscr;
write('Masukan Inputan:');
readln(n);
for i := 0 to n - 1 do
begin
for j:=0 to n - 1 do
begin
write(j + 1);
end;
writeln();
end;
readln();
end.
jadi pada saat kita inputkan 5 maka akan muncul outputan seperti gambar di bawah:
Soal Looping 2
1. Jika user memasukkan angka 5 Apa Output dari algoritma berikut?
ALGORITMA loop1
KAMUS DATA
I,j,n: Integer
BEGIN
Input(n)
For i :=0 to n-1 do
begin
For j:=0 to n-1 do
begin
Output(i+1)
End
Output("\n") //ganti baris
End
End.
PROGRAM PASCALNYA :
program no1;
uses crt;
var
i, j, n : integer;
begin
clrscr;
writeln('Masukan Inputan:');
readln(n);
for i :=0 to n - 1 do
begin
for j := 0 to n - 1 do
begin
writeln(i + 1);
end;
writeln();
end;
readln();
end.
jadi jika kita inputkan 5 maka outputan nya kan seperti gambar di bawah :
ALGORITMA loop1
KAMUS DATA
I,j,n: Integer
BEGIN
Input(n)
For i :=0 to n-1 do
begin
For j:=0 to n-1 do
begin
Output(i+1)
End
Output("\n") //ganti baris
End
End.
PROGRAM PASCALNYA :
program no1;
uses crt;
var
i, j, n : integer;
begin
clrscr;
writeln('Masukan Inputan:');
readln(n);
for i :=0 to n - 1 do
begin
for j := 0 to n - 1 do
begin
writeln(i + 1);
end;
writeln();
end;
readln();
end.
jadi jika kita inputkan 5 maka outputan nya kan seperti gambar di bawah :
Rabu, 08 Oktober 2014
Essay no 4 Soal Menghitung Gaji dan Upah Lembur
Soal Menghitung Gaji dan Upah Lembur
Pada suatu perusahaan terdapat 5 golongan karyawan. Gaji karyawan
ditentukan berdasarkan gaji tetap dan juga dari lamanya bekerja. Gaji tetap dan
gaji per jam tergantung kepada golongan karyawan sesuai dengan tabel berikut:
Golongan
|
Gaji tetap (Rp)
|
Upah lembur per jam (Rp)
|
1
|
500.000
|
5000
|
2
|
300.000
|
3000
|
3
|
250.000
|
2000
|
4
|
100.000
|
1500
|
5
|
50.000
|
1000
|
Buatlah program untuk menghitung total gaji karyawan yang diterima
dengan rumus: gaji sesuai golongan + (banyaknya jam lembur * tarIF lembur
sesuai golongan karyawan)!
Contoh
tampilan program:
INPUT:
Golongan: 2
Jumlah jam lembur: 5
OUTPUT:
Total gaji: 315000
Jawab :
ALGORITMA MenghitungGajiDanUpahLembur
var i
igolongan,ilembur : integer ;
itot : real ;
begin
input(igolongan)
input(ilembur)
case igolongan of
1 <-- (500.000 + 5000) ;
2 <-- (300.000 + 3000) ;
3 <-- (250.000 + 2000) ;
4 <-- (100.000 + 1500) ;
5 <-- (50.000 + 1000) ;
end
itot : real ;
begin
input(igolongan)
input(ilembur)
case igolongan of
1 <-- (500.000 + 5000) ;
2 <-- (300.000 + 3000) ;
3 <-- (250.000 + 2000) ;
4 <-- (100.000 + 1500) ;
5 <-- (50.000 + 1000) ;
end
Essay no 3 Soal Menghitung Jumlah Bus
Soal Menghitung Jumlah Bus
Sebuah acara wisatadigunakan bus yang berkapasitas 30 orang.Tulisalgoritmauntukmenghitungjumlah bus wisata yang diperlukanbilajumlahpesertadiINPUTdari keyboard.Catatan :bilajumlahpesertatidakkelipatan 30, makajikasisanya> 5 harusdisediakan 1 bus tambahan, bilasisanya<= 5 makatidakperlutambahan bus.
AlgoritmaWisata
//
Kamus Data
jpeserta :
j_bus:
BEGIN
INPUT(jpeserta)
...
OUTPUT(j_bus)
END
Sebuah acara wisatadigunakan bus yang berkapasitas 30 orang.Tulisalgoritmauntukmenghitungjumlah bus wisata yang diperlukanbilajumlahpesertadiINPUTdari keyboard.Catatan :bilajumlahpesertatidakkelipatan 30, makajikasisanya> 5 harusdisediakan 1 bus tambahan, bilasisanya<= 5 makatidakperlutambahan bus.
AlgoritmaWisata
//
Kamus Data
jpeserta :
j_bus:
BEGIN
INPUT(jpeserta)
...
OUTPUT(j_bus)
END
JAWAB:
ALGORITMA
var
ijmlbus,ijmlpeserta,iSisa : integer ;
begin
input(ijmlpeserta);
if ijmlpeserta < 30 then
if ijmlpeserta mod 30 > 5 then
ijmlbus := (ijmlpeserta div 30 ) + 1
else
ijmlbus := ijmlpeserta div 30
else
ijmlbus := 0 ;
input(ijmlbus)
end.
Essay no 2 Soal Menghitung Gaji Bersih
Soal Menghitung Gaji Bersih
Gaji bersih seorang pegawai dihitung dari gaji pokok dan tunjangan dipotong pajak yang harus di bayar. Besar tunjangan adalah 15 % dari gaji pokok, dan besar pajak adalah 10 % dari gaji pokok ditambah tunjangan. Buat algoritma untuk menghitung gaji bersih tersebut jika gaji pokok nya di INPUT.
JAWAB :
ALGORITMA
var
gaji_bersih,gaji_pokok,tunjangan,pajak : real
begin
input(gaji_pokok)
gb <-- {gaji_pokok + (gaji_pokok* 0,15) - ((gaji_pokok + (gaji_pokok * 0,15))* 0.1)}
output(gaji_pokok)
end.
Gaji bersih seorang pegawai dihitung dari gaji pokok dan tunjangan dipotong pajak yang harus di bayar. Besar tunjangan adalah 15 % dari gaji pokok, dan besar pajak adalah 10 % dari gaji pokok ditambah tunjangan. Buat algoritma untuk menghitung gaji bersih tersebut jika gaji pokok nya di INPUT.
JAWAB :
ALGORITMA
var
gaji_bersih,gaji_pokok,tunjangan,pajak : real
begin
input(gaji_pokok)
gb <-- {gaji_pokok + (gaji_pokok* 0,15) - ((gaji_pokok + (gaji_pokok * 0,15))* 0.1)}
output(gaji_pokok)
end.
Essay No 1 Soal Nilai Akhir
SoalNilaiAkhir
Seorangmahasiswainginmengetahuinilaiakhirmatakuliahalgoritma.
AturanperhitunganNilaiAkhir yang diterapkan :
- UTS 25 %
- UAS 35 %
- Tugas&
Quiz 20 %
- Praktikum 20 %
Setelahdihitungnilaiakhirnya,
kemudiandapatditentukanindeksnilainyadenganaturan:
- Indeks=”A”
bilaNilaiAkhir>= 80
- Indeks=”B”
bilaNilaiAkhir>= 65 danNilaiAkhir<80
- Indeks=”C”
bilaNilaiAkhir>= 50 danNilaiAkhir<65
- Indeks=”D”
bilaNilaiAkhir>= 35 danNilaiAkhir<50
- Indeks=”E”
bilaNilaiAkhir< 35
JAWAB :
ALGORITMA
var
na,uts,uas,tugas,quiz,praktikum : real
begin
input(uts,uas,tugas,quiz,praktikum)
na <-- ((uts * 0,25) + ( uas * 0,35) + ( tugas * 0,2) + ( quiz * 0,2) + (praktikum * 0,2))
if na >= 80 then
output('A')
else if ((na >= 65) and (na < 80)) then
output('B')
else if ((na >= 50) and ( na < 65)) then
output('C')
else if ((na >= 35) and ( na < 50)) then
output('D')
else if ( na< 35 ) then
output('E');
output('maka nilai akhirnya adalah ? ',na);
input();
end
Selasa, 07 Oktober 2014
Soal IF dan Case No 26-30
26.Telusurialgoritmadibawahini:
ALGORITMA AllAboutboolean
KAMUS
x, y, z : boolean
a : integer
BEGIN
INPUT(a)
x <-- false
z <-- ((3 + (5 mod3)) = 5)
y <-- (a <= 0)
IF ((x and y) or (not(y or z))) THEN
OUTPUT(“Telkom university is The Best”)
ELSE IF ((y and (not z)) or (x and y)) THEN
OUTPUT(“Telkom university is The Clean Campus”)
END IF
OUTPUT(“Telkom university is The Smart Campus”)
END
Jikapenggunamemasukkan -1, maka OUTPUT algoritmatersebutadalah?
program no26 ;
uses crt ;
var
x,y,z : boolean ;
n : integer ;
begin
clrscr ;
write('Input Nilai a =');
readln(n);
x := false ;
z :=((3+(5 mod 3))= 5);
y := ( n <= 0);
if (( x and y) or (not(y or z))) then
writeln('telkom university is the best')
else if (( y and (not z)) or ( x and y)) then
writeln('telkom university is the clean campus');
writeln('telkom university is the smart campus');
readln();
end.
27.Diberikan potongan algoritma sbb :
IF d>0 THEN
d <-- d + 1
ELSE
d <-- 59
IF (m < 0) THEN
m <-- m + 1
ELSE
m <-- 59
j <-- j + 1
ENDIF
ENDIF
OUTPUT(j+m-d)
Jikasecaraberurutannilai j, m dan d adalah 9, 0, dan 0,
makatampilanakhirkode program diatasadalah? 10
ALGORITMA AllAboutboolean
KAMUS
x, y, z : boolean
a : integer
BEGIN
INPUT(a)
x <-- false
z <-- ((3 + (5 mod3)) = 5)
y <-- (a <= 0)
IF ((x and y) or (not(y or z))) THEN
OUTPUT(“Telkom university is The Best”)
ELSE IF ((y and (not z)) or (x and y)) THEN
OUTPUT(“Telkom university is The Clean Campus”)
END IF
OUTPUT(“Telkom university is The Smart Campus”)
END
Jikapenggunamemasukkan -1, maka OUTPUT algoritmatersebutadalah?
Telkom university is The
Smart Campus
program no26 ;
uses crt ;
var
x,y,z : boolean ;
n : integer ;
begin
clrscr ;
write('Input Nilai a =');
readln(n);
x := false ;
z :=((3+(5 mod 3))= 5);
y := ( n <= 0);
if (( x and y) or (not(y or z))) then
writeln('telkom university is the best')
else if (( y and (not z)) or ( x and y)) then
writeln('telkom university is the clean campus');
writeln('telkom university is the smart campus');
readln();
end.
27.Diberikan potongan algoritma sbb :
IF d>0 THEN
d <-- d + 1
ELSE
d <-- 59
IF (m < 0) THEN
m <-- m + 1
ELSE
m <-- 59
j <-- j + 1
ENDIF
ENDIF
OUTPUT(j+m-d)
Jikasecaraberurutannilai j, m dan d adalah 9, 0, dan 0,
makatampilanakhirkode program diatasadalah? 10
program no27 ;
uses crt ;
var
j,m,d,hasil : integer ;
begin
clrscr ;
write('Nilai d = ');
readln(d);
write('Nilai m = ');
readln(m);
write('Nilai j = ');
readln(j);
if d > 0 then
d := d + 1
else
d := 59;
if ( m < 0 ) then
m := m + 1
else
m := 59;
j:= j + 1 ;
writeln(' jika j + m - d , maka hasilnya ? ',hasil);
readln();
end.
28. Diberikan potongan algoritma sbb :
INPUT(N)
IF N>10 THEN
N <-- N + 5
ENDIF
OUTPUT(N)
JikadariperintahINPUT(N), dimasukkan data 5,
makatampilandariOUTPUT(N) adalah… 5
program no28 ;
uses crt ;
var
n : integer;
begin
clrscr ;
write('Masukan Nilai n = ');
readln(n);
if n > 10 then
n := n + 5;
writeln('Maka n Adalah = ',n);
readln();
end.
29. Diberikan potongan algoritma sbb :
Kamus Data
a : integer
b :boolean
Begin
input(a)
bfalse
if (( a = 10 ) && b ) then
output(“First”)
else
output(“Second”)
end if
output(“Third”)
End
Apakah keluaran dari kode program diatas jika pada input(a) dimasukkan nilai 10? Second Third
program no29;
uses crt ;
var
a : integer ;
b : boolean ;
begin
clrscr;
write('Masukan a = ');
readln(a);
b := false ;
if (( a = 10) and b) then
writeln('frist')
else
writeln('second');
writeln('so third is?',a);
readln();
end.
30. Jika y diinputkannilai 16, apakah output darialgoritma di bawahini:
Kamus Data
isFalse: Boolean
y: Integer
BEGIN
Input(y)
isFalse<-- True
If (True) Then
If ( ((y Mod 2) = 0) AND isFalse )
y <-- y Div 3
Else
y <-- y * y
Endif
Else
y <-- 100
Endif
output(y)
END
jawaban = 5
program no30;
uses crt ;
var
isfalse : boolean ;
y :integer ;
begin
clrscr ;
writeln('Input Nilai y = ');
readln(y);
isfalse := true;
if (true) then
if (((y mod 2) = 0) and isfalse) then
y:= y div 3
else
y := y * y
else
y := 100 ;
writeln('maka y adalah? ',y);
readln();
end.
Soal IF dan Case no 21 -25
21. Telusuri program dibawah ini:
ALGORITMA Semangat1
KAMUS
x, y, z : integer
BEGINALGORITMA
INPUT(x,y,z)
IF (x < y) THEN
IF (y < z) THEN
OUTPUT(“mahasiswa telkom university”)
ELSE
OUTPUT(“mempunyai visi yang besar”)
ENDIF
ELSE
IF (x > y) THEN
IF (y < z) THEN
OUTPUT(“karena itu”)
ELSE
OUTPUT(“kami selalu rajin belajar”)
ENDIF
ENDIF
ENDIF
Jika pengguna memasukkan x = 3, y = 8, z = 5, maka OUTPUT algoritma tersebut adalah? “mempunyai visi yang besar”
program no21 ;
uses crt ;
var
x,y,z: integer ;
begin
clrscr ;
write('Masukan x = ');
readln(x);
write('Input y = ');
readln(y);
write('Input z = ');
readln(z);
if ( x < y) then
if ( y < z ) then
writeln('Mahasiswa Telkom University')
else
writeln('Mempunyai Visi yang Besar')
else
if ( x > y ) then
if ( y < z ) then
writeln('Karena Itu')
else
writeln('Kami Selalu Rajin Belajar');
readln();
end.
22.Telusuri program dibawahini:
ALGORITMA Semangat2
KAMUS
x, y, z : integer
BEGIN ALGORITMA
INPUT(x,y)
z <-- x + y
IF (z >= 80) THEN
z <-- z – 30
IF (z >= 70) THEN
z <-- z - 10
ELSE
IF (z >= 65) THEN
z <-- z - 5
y <-- x
ENDIF
ENDIF
IF (x <= 70) THEN
z <-- z – 10
y <-- x
ENDIF
OUTPUT(x, y, z)
END
Jikapenggunamemasukkan x = 32, y = 50, makaOUTPUTalgoritmatersebutadalah? 32 32 42
ALGORITMA Semangat1
KAMUS
x, y, z : integer
BEGINALGORITMA
INPUT(x,y,z)
IF (x < y) THEN
IF (y < z) THEN
OUTPUT(“mahasiswa telkom university”)
ELSE
OUTPUT(“mempunyai visi yang besar”)
ENDIF
ELSE
IF (x > y) THEN
IF (y < z) THEN
OUTPUT(“karena itu”)
ELSE
OUTPUT(“kami selalu rajin belajar”)
ENDIF
ENDIF
ENDIF
Jika pengguna memasukkan x = 3, y = 8, z = 5, maka OUTPUT algoritma tersebut adalah? “mempunyai visi yang besar”
program no21 ;
uses crt ;
var
x,y,z: integer ;
begin
clrscr ;
write('Masukan x = ');
readln(x);
write('Input y = ');
readln(y);
write('Input z = ');
readln(z);
if ( x < y) then
if ( y < z ) then
writeln('Mahasiswa Telkom University')
else
writeln('Mempunyai Visi yang Besar')
else
if ( x > y ) then
if ( y < z ) then
writeln('Karena Itu')
else
writeln('Kami Selalu Rajin Belajar');
readln();
end.
22.Telusuri program dibawahini:
ALGORITMA Semangat2
KAMUS
x, y, z : integer
BEGIN ALGORITMA
INPUT(x,y)
z <-- x + y
IF (z >= 80) THEN
z <-- z – 30
IF (z >= 70) THEN
z <-- z - 10
ELSE
IF (z >= 65) THEN
z <-- z - 5
y <-- x
ENDIF
ENDIF
IF (x <= 70) THEN
z <-- z – 10
y <-- x
ENDIF
OUTPUT(x, y, z)
END
Jikapenggunamemasukkan x = 32, y = 50, makaOUTPUTalgoritmatersebutadalah? 32 32 42
program no22 ;
uses crt ;
var
l,m,n : integer ;
begin
clrscr ;
write ('input x = ');
readln(l);
write ('input y = ');
readln(m);
n := l + m ;
if ( n >= 80 ) then
n := n - 30 ;
if ( n >= 70 ) then
n := n - 10
else
if ( n>= 65 ) then
n := n - 5;
m := l ;
if ( l <= 70 ) then
n := n - 10 ;
m := l ;
writeln('Nilai x ',l);
writeln('Nilai y ',m);
writeln('Nilai z ',n);
readln();
end.
23.Telusuri program dibawahini:
Program Periksa_Semangat
Kamus
x, y : integer
BEGIN ALGORITMA
INPUT(x, y, x)
IF (x = 1) THEN
OUTPUT(“1. Visi (Mimpi) telahsesuaidenganlangkah”)
ELSEIF ((x >= 2) and ( x<= 4) THEN
OUTPUT(“2. Pantangmenyerahuntukmeraihmimpi”)
ELSEIF (x = y) THEN
OUTPUT(“3. Jujurdanprofesionaldalammelangkah”)
ELSEIF( y> x) THEN
OUTPUT(“4. Berdoatanpaputus”)
ENDIF
END ALGORITMA
Jikapenggunamemasukkan x = 4, y = 5, dan x = 1, makaoutputnyaadalah: Visi (Mimpi) telahsesuaidenganlangkah
program no23;
uses crt ;
var
x,y,x2 : integer ;
begin
clrscr ;
writeln('Input Nilai x = ');
readln(x);
writeln('Input Nilai y = ');
readln(y);
writeln('Input Nilai x2 = ');
readln(x2);
if ( x = 1 ) then
writeln('1.visi(mimpi) telah sesuai dengan langkah')
else if ((x >= 2 ) and ( x <- 4)) then
writeln('2.pantang menyerah untuk meraih mimpi')
else if (x = y) then
writeln('3.jujur dan profesional dalam melangkah')
else if ( y > x ) then
writeln('4. berdoa tanpa putus ');
readln();
end.
24.Telusuri program dibawahini:
ALGORITMACari_Maksimum
Kamus
dat1, dat2, dat3, dat4, big : integer
BEGIN
INPUT(dat1, dat2, dat3, dat4)
IF ((dat1 >= dat2) and (dat1 >= dat3) and (dat1 >= dat4)) THEN
big<-- dat1
ELSEIF ((dat2 >= dat1) and (dat2 >= dat3) and (dat2 >= dat4))
big<-- dat2
ELSEIF ((dat3 >= dat1) and (dat3 >= dat2) and (dat3 >= dat4))
big<-- dat3
ELSE
big<-- dat4
ENDIF
OUTPUT(big)
END
Jikapenggunamemasukkan 12, 3, 4, dan 5, makaOUTPUTnyaadalah? 12
program no24 ;
uses crt ;
var
dat1,dat2,dat3,dat4,big : integer ;
begin
clrscr ;
write('input data 1 = ');readln(dat1);
write('input data 2 = ');readln(dat2);
write('input data 3 = ');readln(dat3);
write('input data 4 = ');readln(dat4);
if ((dat1 >= dat2) and (dat1 >= dat3) and (dat1 >= dat4)) then
big := dat1
else if ((dat2 >= dat1) and ( dat2 >= dat3) and (dat2 >= dat4)) then
big :=dat2
else if ((dat3 >= dat1) and( dat3 >= dat2) and (dat3 >= dat4)) then
big := dat3
else
big:= dat4;
writeln('maka big-nya adalah ? ',big);
readln();
end.
25.Perhatikan penggalanalgoritmadibawahini:
…….
IF (a = 10 and b = 5) THEN
c <-- 156
ELSE
c <-- 165
ENDIF
Jikaternyatavariabel adiberikanINPUT 5, makanilaivariabel c adalah? 165
program no25 ;
uses crt ;
var
l,m,n : integer ;
begin
clrscr ;
write('Nilai a ');
readln(l);
if(( l = 10) and (m = 5)) then
n := 156
else
n := 165 ;
writeln('maka nilai c adalah ? ',n);
readln();
end.
Soal IF dan Case No 11-20
11. Diketahui A berisi 25, B berisi 13 dan C berisi 37,
dijalankan algoritma
B ß A
C ß B
A ß C
OUTPUT(A)
Keluaran
dari program diatas adalah … 25
program no11 ;
uses crt ;
var a,b,c : integer ;
begin
clrscr ;
write('Masukan Nilai a: ');
readln(a);
write('masukan nilai b: ');
readln(b);
write('masukan nilai c: ');
readln(c);
b := a ;
c := b ;
a := c ;
writeln('maka a adalah : ',a);
readln();
end.
12.
Perhatikan
potongan algoritmaberikut:
na, uts, uas, tugas,
quiz: integer
utsß75
uasß80
tugasß50
quizß50
naß (uts* 30 /100) + (uas*35 /
100) + (tugas*15 /100) + (quiz * 20 / 100)
IF
na>80 THEN
indeksß’A’
ENDIF
IF
na>60 THEN
indeksß’B’
ENDIF
indeksß’C’
indeksß’A’
OUTPUT
(indeks)
Apakah
Keluaran dari program diatas?
program soal_no12;
uses crt;
var
na, uts, uas, tugas, quiz : integer;
indeks : char;
begin
clrscr;
uts := 75;
uas := 80;
tugas := 50;
quiz := 50;
na := (uts * 30 div 100) + (uas * 35 div 100) + (tugas * 15 div 100) + (quiz * 20 div 100);
if na > 80 then
indeks := 'A';
if na > 60 then
indeks := 'B';
end.
indeks := 'C'
indeks := 'A'
writeln(' maka indeks nilainya adalah: ',indeks); readln();
end.
uses crt;
var
na, uts, uas, tugas, quiz : integer;
indeks : char;
begin
clrscr;
uts := 75;
uas := 80;
tugas := 50;
quiz := 50;
na := (uts * 30 div 100) + (uas * 35 div 100) + (tugas * 15 div 100) + (quiz * 20 div 100);
if na > 80 then
indeks := 'A';
if na > 60 then
indeks := 'B';
end.
indeks := 'C'
indeks := 'A'
writeln(' maka indeks nilainya adalah: ',indeks); readln();
end.
13. Diberikan
potongan algoritma sbb :
iß 5
iß 8
OUTPUT(i)
TampilandariOUTPUT(i) adalah
…
program no13;
uses crt ;
var
i : integer ;
begin
clrscr ;
i := 5;
i := 8;
write('maka nilai i adalah ',i);
readln();
end.
14. Diberikan potongan algoritma
sbb :
IF d>0 THEN
d ß d - 1
ELSE
d ß 59
IF (m > 0) THEN
m ß m – 1
ELSE
m ß 59
j ß j - 1
ENDIF
ENDIF
OUTPUT(j+m-d)
Jika
secara berurutan nilai j, m dan d 9,0, dan 0, maka tampilan akhir kode program
diatas adalah? 8
program no14;
uses crt;
var
j,m,d : integer;
begin
clrscr;
write('masukan nilai j: ');
readln(j);
write('masukan nilai m: ');
readln(m);
write('masukan nilai d: ');
readln(d);
if d > 0 then
d := d - 1
else
d := 59;
if (m > 0)then
m := m - 1
else
m := 59;
j := j - 1;
writeln('maka nilai j + m - d adalah: ',j + m - d);
readln();
end.
15.
Perhatikan
algoritmaberikut
Program Soal18
Kamus
x,y:integer
Algoritma
xß15
yß8
zß7
xßy + x
yßx - y
OUTPUT(x)
OUTPUT(y)
END
program no15;
uses crt;
var
x,y,z : integer;
begin
x := 15;
y := 8;
z := 7;
x := y + x;
y := x - y;
writeln('maka nilai x: ',x);
writeln('maka nilai y: ',y);
readln();
end.
16. Diketahui A berisi 15, B berisi 23, dijalankan algoritma
A ß B
B ß A
Isi A dan B di
akhir algoritma adalah … 23
23
program no16;
uses crt;
var
a,b : integer;
begin
clrscr;
write('Masukan Nilai a: ');
readln(a);
write('Masukan Nilai b: ');
readln(b);
a := b;
b := a;
writeln('Maka Nilai a: ',a);
writeln('Dan Nilai b: ',b);
readln();
end.
17. Diketahui A berisi 25, B berisi 13 dan C berisi 37,
dijalankan algoritma
B ß A
C ß B
A ß C
Isi C di akhir algoritma adalah … 25
program no17;
uses crt;
var
a,b,c : integer;
begin
write('Masukan Nilai a: ');
readln(a);
write('Masukan Nilai b: ');
readln(b);
write('Masukan Nilai c: ');
readln(c);
b := a;
c := b;
a := c;
writeln('maka nilai c adalah: ',c);
readln();
end.
18. Diberikan
potongan algoritma sbb :
INPUT(N)
IF N<10 THEN
N ß N + 5
ENDIF
OUTPUT(N)
Jika dari perintah INPUT(N), dimasukkan data 15, maka
tampilan dari OUTPUT(N) adalah …
15
program no18;
uses crt;
var
n : integer;
begin
write('Masukan Nilai n: ');
readln(n);
if n < 10 then
n := n + 5
end.
writeln('Maka Nilai n Adalah: ',n);
readln();
end.
19. Sebuah
bilangan yang telah diINPUT ke dalam variable bil akan dipecah menjadi
ratusan,puluhan dan satuan :
ratusanßbil div 100
puluhanß ...
satuanßbil mod 10
program no19;
uses crt;
var
ratusan, puluhan, satuan, x : integer;
begin
clrscr;
write('Masukan Suatu Angka: ');
readln(x);
ratusan := x div 100;
puluhan := x div 10;
satuan := x mod 10;
writeln('maka nilai puluhannya adalah: ',puluhan);
readln();
end.
20. Diberikan
potongan algoritma sbb :
INPUT(j,m,d)
IFd>0 THEN
dßd - 1
ELSE
d ß 59
IF m>0 THEN
m ß m – 1
ELSE
m ß 59
j ß j - 1
ENDIF
ENDIF
OUTPUT(j,m,d)
JikaINPUT(j,m,d), dimasukkan data 9, 0
dan 0, makatampilanakhirdariOUTPUT(j,m,d)adalah …
program soal_no20;
uses crt;
var
j,m,d : integer;
begin
clrscr;
writeln('Masukan Nilai j: ');
readln(j);
writeln('Masukan Nilai m: ');
readln(m);
writeln('Masukan Nilai d: ');
readln(d);
if d > 0 then
d := d - 1
else
d := 59;
if (m > 0)then
m := m - 1
else
m := 59;
j := j - 1;
writeln('Maka Nilai j Adalah: ',j);
writeln('\Maka Nilai m Adalah: ',m);
writeln('Maka Nilai d Adalah: ',d);
readln();
end.
Langganan:
Postingan (Atom)