1.a. program Total_Jumlah_for deklarasi jum, i : integer algoritma begin jum ← 0 for i←1 to 20 do begin if i mod 2 ≠ 0 then begin write(i, ', ') jum ← jum + i end endif end endfor write('Jumlah : ', jum) end
1.b. program Total_Jumlah_while deklarasi jum, i : integer algoritma begin jum ← 0 i ← 1 while i ≤ 20 do begin if i mod 2 ≠ 0 then begin write(i, ', ') jum ← jum + i end endif i ← i + 1 end endwhile write('Jumlah : ', jum) end
1.c. program Total_Jumlah_repeat deklarasi jum, j : integer begin j ← 1 jum ← 0 repeat begin if j mod 2 ≠ 0 then begin write(j, ', ') jum ← jum + j end endif end j ← j + 1 until j ≥ 20 write('Jumlah : ', jum) end
2.a. program satu_dua_tiga deklarasi i, j : integer begin for i←1 to 5 do begin for j←1 to i do write(j, ' ') writeln endfor end endfor end
2.b. program Bintang_Segitiga deklarasi i, j, k, l : integer begin l←3 for i←1 to 7 do begin if i mod 2 ≠ 0 then begin for j←1 to l do write(' ') endfor for k←1 to i do write('*') endfor writeln l←l-1 end endif end endfor readkey end
Khaerusani (201343500005) Kelas R1A Jawaban Tugas Pemrograman1 !! (31-12-2013)
1.A
program Nomor_1A; uses crt; var a,b,n : integer; Begin clrscr; for a:=1 to 5 do begin for b:=1 to a do begin write(b); end; writeln; end; readln; End. ---------------------------------------
1.B
program Nomor_1B; uses crt; var a,b,c : integer; Begin clrscr; a:=7; for b:=1 to a do begin if b mod 2 = 1 then begin for c:=1 to (a-b div 2) do write(' '); for c:=1 to b do write('*'); end; writeln; end; readln; End. ----------------------------------------
2.1
Program Nomor_2_Pake_FOR; uses crt; var a,b : integer; Begin clrscr; for a:=1 to 20 do begin if a mod 2 = 1 then begin write(a,' '); b := b + a; end; inc(a); end; writeln; write('Total Jumlah : ',b); readln; End. ----------------------------------------
2.2
Program Nomor_2_Pake_While; uses crt; var a,b : integer; Begin clrscr; while a<= 20 do begin if a mod 2 = 1 then begin write(a,' '); b := b + a; end; inc(a); end; writeln; write('Total Jumlah : ',b); readln; End. ----------------------------------------
2.3
Program Nomor_2_Pake_repeat; uses crt; var a,b : integer; Begin clrscr; repeat if a mod 2 = 1 then begin write(a,' '); b := b + a; end; inc(a); until a = 20 writeln; write('Total Jumlah : ',b); readln; End.
program Nomor_1A; uses crt; var a,b,n : integer; Begin clrscr; for a:=1 to 5 do begin for b:=1 to a do begin write(b); end; writeln; end; readln; End. ---------------------------------------
1.B
program Nomor_1B; uses crt; var a,b,c : integer; Begin clrscr; a:=7; for b:=1 to a do begin if b mod 2 = 1 then begin for c:=1 to (a-b div 2) do write(' '); for c:=1 to b do write('*'); end; writeln; end; readln; End. ----------------------------------------
2.1
Program Nomor_2_Pake_FOR; uses crt; var a,b : integer; Begin clrscr; for a:=1 to 20 do begin if a mod 2 = 1 then begin write(a,' '); b := b + a; end; inc(a); end; writeln; write('Total Jumlah : ',b); readln; End. ----------------------------------------
2.2
Program Nomor_2_Pake_While; uses crt; var a,b : integer; Begin clrscr; while a<= 20 do begin if a mod 2 = 1 then begin write(a,' '); b := b + a; end; inc(a); end; writeln; write('Total Jumlah : ',b); readln; End. ----------------------------------------
2.3
Program Nomor_2_Pake_repeat; uses crt; var a,b : integer; Begin clrscr; repeat if a mod 2 = 1 then begin write(a,' '); b := b + a; end; inc(a); until a = 20 writeln; write('Total Jumlah : ',b); readln; End.
Algoritma Name Bilangan Deklarasi K,J,N Deskripsi Write('Masukkan Banyaknya Bilangan :') readln ( K ) K←0 J←0 While K≠ N do K←K+1 read ( k ) if K mod 2 = 0 Then Write ( genap ) if K mod 2 ≠ 0 Then write ( ganjil ) end if end if J←J+K read ( J ) write ( J ) end while writeln ('Nilai Bilangan Ganjil Adalah =', Ganjil) writeln ('Nilai Bilangan Genap Adalah =', Genap) Writeln('Maka Total Nilai ilangan =',J) End.
Nama : Tigor Yudha Pramana Putra NPM : 201343500145 Kelas : R 1 B :)
bu untuk algoritma 1 yang kelas R1E di poskan jawabannya juga?
BalasHapusIya . Pasti jwbannya sama smua .. satu org aj put
BalasHapussoal yang tadi ibu kasih kan?
BalasHapus1.a. program Total_Jumlah_for
BalasHapusdeklarasi
jum, i : integer
algoritma
begin
jum ← 0
for i←1 to 20 do
begin
if i mod 2 ≠ 0 then
begin
write(i, ', ')
jum ← jum + i
end
endif
end
endfor
write('Jumlah : ', jum)
end
1.b. program Total_Jumlah_while
deklarasi
jum, i : integer
algoritma
begin
jum ← 0
i ← 1
while i ≤ 20 do
begin
if i mod 2 ≠ 0 then
begin
write(i, ', ')
jum ← jum + i
end
endif
i ← i + 1
end
endwhile
write('Jumlah : ', jum)
end
1.c. program Total_Jumlah_repeat
deklarasi
jum, j : integer
begin
j ← 1
jum ← 0
repeat
begin
if j mod 2 ≠ 0 then
begin
write(j, ', ')
jum ← jum + j
end
endif
end
j ← j + 1
until j ≥ 20
write('Jumlah : ', jum)
end
2.a. program satu_dua_tiga
deklarasi
i, j : integer
begin
for i←1 to 5 do
begin
for j←1 to i do
write(j, ' ')
writeln
endfor
end
endfor
end
2.b. program Bintang_Segitiga
deklarasi
i, j, k, l : integer
begin
l←3
for i←1 to 7 do
begin
if i mod 2 ≠ 0 then
begin
for j←1 to l do
write(' ')
endfor
for k←1 to i do
write('*')
endfor
writeln
l←l-1
end
endif
end
endfor
readkey
end
--------------------------------------------------------------------
| Muhamad Rama S.P | 201343500617 | R1E |
--------------------------------------------------------------------
Komentar ini telah dihapus oleh pengarang.
BalasHapusKhaerusani (201343500005)
BalasHapusKelas R1A
Jawaban Tugas Pemrograman1 !! (31-12-2013)
1.A
program Nomor_1A;
uses
crt;
var
a,b,n : integer;
Begin
clrscr;
for a:=1 to 5 do
begin
for b:=1 to a do
begin
write(b);
end;
writeln;
end;
readln;
End.
---------------------------------------
1.B
program Nomor_1B;
uses
crt;
var
a,b,c : integer;
Begin
clrscr;
a:=7;
for b:=1 to a do
begin
if b mod 2 = 1 then
begin
for c:=1 to (a-b div 2) do
write(' ');
for c:=1 to b do
write('*');
end;
writeln;
end;
readln;
End.
----------------------------------------
2.1
Program Nomor_2_Pake_FOR;
uses
crt;
var
a,b : integer;
Begin
clrscr;
for a:=1 to 20 do
begin
if a mod 2 = 1 then
begin
write(a,' ');
b := b + a;
end;
inc(a);
end;
writeln;
write('Total Jumlah : ',b);
readln;
End.
----------------------------------------
2.2
Program Nomor_2_Pake_While;
uses
crt;
var
a,b : integer;
Begin
clrscr;
while a<= 20 do
begin
if a mod 2 = 1 then
begin
write(a,' ');
b := b + a;
end;
inc(a);
end;
writeln;
write('Total Jumlah : ',b);
readln;
End.
----------------------------------------
2.3
Program Nomor_2_Pake_repeat;
uses
crt;
var
a,b : integer;
Begin
clrscr;
repeat
if a mod 2 = 1 then
begin
write(a,' ');
b := b + a;
end;
inc(a);
until a = 20
writeln;
write('Total Jumlah : ',b);
readln;
End.
nama: helmi hendratmo tri atmojo
BalasHapusnpm : 201343500090
kls : R1A
1.A
program Nomor_1A;
uses
crt;
var
a,b,n : integer;
Begin
clrscr;
for a:=1 to 5 do
begin
for b:=1 to a do
begin
write(b);
end;
writeln;
end;
readln;
End.
---------------------------------------
1.B
program Nomor_1B;
uses
crt;
var
a,b,c : integer;
Begin
clrscr;
a:=7;
for b:=1 to a do
begin
if b mod 2 = 1 then
begin
for c:=1 to (a-b div 2) do
write(' ');
for c:=1 to b do
write('*');
end;
writeln;
end;
readln;
End.
----------------------------------------
2.1
Program Nomor_2_Pake_FOR;
uses
crt;
var
a,b : integer;
Begin
clrscr;
for a:=1 to 20 do
begin
if a mod 2 = 1 then
begin
write(a,' ');
b := b + a;
end;
inc(a);
end;
writeln;
write('Total Jumlah : ',b);
readln;
End.
----------------------------------------
2.2
Program Nomor_2_Pake_While;
uses
crt;
var
a,b : integer;
Begin
clrscr;
while a<= 20 do
begin
if a mod 2 = 1 then
begin
write(a,' ');
b := b + a;
end;
inc(a);
end;
writeln;
write('Total Jumlah : ',b);
readln;
End.
----------------------------------------
2.3
Program Nomor_2_Pake_repeat;
uses
crt;
var
a,b : integer;
Begin
clrscr;
repeat
if a mod 2 = 1 then
begin
write(a,' ');
b := b + a;
end;
inc(a);
until a = 20
writeln;
write('Total Jumlah : ',b);
readln;
End.
Jawaban Algoritma R 1 B
BalasHapus1. (a) For - Do
Algoritma Name Bilangan Ganjil
Deklarasi
K,J :Integer
Deskripsi
K ← K Mod 2 ≠ 0
J ← 0
For K ← 1 To 19 Do
Write ( K )
For J ← J + K Do
Write ( J )
End For
Writeln ( K, '=' , J )
End.
1. (b) While Do
Algoritma Name Bilangan - Ganjil
Deklarasi
K,J :Integer
Deskripsi
K←1
J←0
While K≠19 Do
K← K+2
read ( k )
write ( j )
end while
writeln ( K, '=' , J )
End.
1. (c) Repeat Until
Algoritma Name Bilangan - Ganjil
Deklarasi
K,J :Integer
Deskripsi
K←1
J←0
repeat
K← K+1
J← J+1
unti K >19
writeln ( K, '=', J )
end repeat
End.
2. Pandangan While_Do dan If_Then
Algoritma Name Bilangan
Deklarasi
K,J,N
Deskripsi
Write('Masukkan Banyaknya Bilangan :')
readln ( K )
K←0
J←0
While K≠ N do
K←K+1
read ( k )
if K mod 2 = 0 Then
Write ( genap )
if K mod 2 ≠ 0 Then
write ( ganjil )
end if
end if
J←J+K
read ( J )
write ( J )
end while
writeln ('Nilai Bilangan Ganjil Adalah =', Ganjil)
writeln ('Nilai Bilangan Genap Adalah =', Genap)
Writeln('Maka Total Nilai ilangan =',J)
End.
Nama : Tigor Yudha Pramana Putra
NPM : 201343500145
Kelas : R 1 B :)
mantaapp.. oke.. selamat belajar ya kalian semua ... :)
BalasHapus