Algoritma dan Pemrograman: Tugas Kelompok Dasar Pemrograman 1

Tuesday, December 13, 2016

Tugas Kelompok Dasar Pemrograman 1

Jawab di komentar, jangan lupa tulis nama-nama anggota kelompok

13 comments:

Kevin Albert SetiawanDecember 13, 2016 at 11:12 PM
This comment has been removed by the author.
ReplyDelete
Replies
KrismonDecember 13, 2016 at 11:26 PM
nama kelompok
Krismon Nim D1041161018
Andika Hatakara R Nim D1041161042
Ammar Alvi H Nim D1041161038
Ari Yoko S Nim D1041161044

2. prosedur pencari rata rata

procedure rr(var rerata: real);
var
b,c,a: integer;
begin
b := 0;
c := 0;

repeat
read(a);
c := c+1;
b := a + b;
rerata := b/c;

until a=9999;
write('rata-rata :',rerata:0:2);
end;
var
rerata : real;
begin
rr(rerata);
readln;
readln;
end.

3. prosedure nilai terkecil

procedure minimal(var mini: integer);
var
x,min: integer;
begin

readln(x);
if x<>9999 then
begin
min := x;
read(x);
while x<>9999 do
begin
if X < min then
begin
min := x;
end;
read(x);
end;
write('nilai minimum Adalah = ',min);
readln;
end;
end;
var
min: integer;
begin
minimal(min);
readln;
end.

4. prosedur bunga bank

var
a: longint;
i,n,b: integer;
f: real;
procedure bungabank(a:longint; i,n: integer; var f: real);

begin
write('jumlah uang pertama menabung: ');
readln(a);
write('besar bunga bank dalam satu tahun (dalam persen): ');
readln(i);
write('lama menabung : ');
readln(n);
for b:=1 to n do
begin
f := a + (a*i/100)*n;
end;
end;
begin
bungabank(a,i,n,f);
write('total uang setelah n tahun: ' ,f:0:2);
readln;
end.
ReplyDelete
Replies
Ihsan MaulanaDecember 13, 2016 at 11:34 PM
Nama Anggota Kelompok:
1. Fajar Istighfar (D1041161002)
2. Ihsan Maulana (D1041161016)
3. Akmal Fikri (D1041161030)
4. Imanuddin (D1041161050)

2.
procedure nilairata2(x:integer ; var rata2 : real);
var
a,b: integer;
begin
a:=0;
b:=0;
repeat
readln(x);
b:=b+1;
a:=a+x;
until a=9999;
writeln(a);
writeln('jumlah a= ',b);
readln;
rata2:=a/b;
readln;
end;
var a:integer; rata2:real;
begin
nilairata2(a,rata2);
write('rata2= ', rata2:6:2);
readln;
readln;
end.

3.
procedure minimal(a:integer; var min:integer);
var
b,c : integer;
begin
repeat
readln(a);
c:=c+1;
if min>a then
min:=a;
until a=9999;
end;
var
c,a: integer;
min: integer;
begin
c:=0;
min:=32767;
minimal(a,min);
writeln('nilai minimal=',min);
readln;
readln;
end.

4.
procedure bungabank (a:longint; i,n:integer; var f:real);
var
x:integer;
begin
read(a); {jumlah uang pertama kali menabung}
read(i); {besar bunga bank dalam satu tahun}
read(n); {lama menabung}
for x:=1 to n do
f:=a+(a*i/100)*n;
end;
var
a:longint;
i,n,x:integer;
f:real;
begin
bungabank(a,i,n,f);
write(f); {total uang setelah n tahun}
readln;
readln;
end.
ReplyDelete
Replies
UnknownDecember 13, 2016 at 11:35 PM
Peri Yikwa (D1041161052)
Muhammad Riski (D1041161022)
Rama Ulgasesa (D1041161026)
Muhammad Ricky Rizaldi (D1041161020)

2. procedure ratarata(a:integer; var rata2:real);
var
b,c:integer;
begin
b:=0;
c:=0;
repeat
readln(a);
c:=c+1;
b:=b+a;
until a=9999;
writeln(b);
writeln('jumlah input= ',c);
readln;
rata2:=b/c;
readln;
end;
var
a:integer;
rata2:real;
begin
ratarata(a,rata2);
writeln('jadi ratarata = ',rata2:0:2);
readln;
end.
3. procedure minimum(a:integer; var min:integer);
var
b,c:integer;
begin
repeat
readln(a);
c:=c+1;
if min>a then min :=a;
until a=9999;
end;
var
c,a,min:integer;
begin
c:=0;
min:=32767;
minimum(a,min);
writeln('jadi nilai terkecil =',min);
readln;
end.
-----------------------------------------------------------------------------------------
4. procedure bungabank (a:longint ; i,n :integer ; var f:real);
var
x:integer;
begin
write('masukkan jumlah tabungan:') ;
readln(a);
write('masukkan bunga bank:') ;
readln(i);
write('berapa lama kamu nabung:');
readln(n);
for x:=1 to n do
f:=a+(a*i/100)*n;
end;

{bunga bank}
var
a:longint;
x,i,n :integer;
f:real;
begin
bungabank(a,i,n,f);
writeln(f:0:2);
readln;
end.

ReplyDelete
Replies
UnknownDecember 13, 2016 at 11:40 PM

Nama kelompok:-Yordan M.S (D1041161046)
-Maruli T.S (D1041161048)
- Qamarul Hazimin (D1041161006)

No 2

procedure ratarata( a: integer; var rata2: real);
var
b,c: integer;
begin
b:=0;
c:=0;
repeat
readln(a);
c:= c+1;
b:= b+a;
until a= 9999;
writeln(b);
writeln(' jumlah a= ',c);
readln;
rata2:=b/c;
readln;
end;
var
a : integer;
rata2 : real;
begin
ratarata(a,rata2);
writeln('jadi ratarata = ',rata2:6:2);
readln;
end.

NO.3

procedure minimal (var min: integer);
var
x: integer;
begin
read(x);
if x <> 9999 then
begin
min := x;
read`(x);
while x <> 9999 do
begin
if x < min then
begin
min := x;
end;
read(x);
end;
write('yang kecil adalah : ',min);
readln;
end;
end;
var
min : integer;
begin
minimal(min);
readln;
end.

NO.4

var
a: longint;
i,n,b : integer;
f : real;
procedure bungabank( a : longint; i,n: integer; var f: real);

begin
write('jumlah uang pertama menabung: ');
readln(a);
write('besar bunga bank dalam satu tahun(persen): ');
readln(i);
write('lama menabung: ',);
readln(n);
for b:= 1 to n do
begin
f:= a + (a*i/100)*n;
end;
end;
begin
bungabank(a,i,n,f);
write('total uang setelah n tahun: ',f:0:2);
readln;
end.
ReplyDelete
Replies
Dita Adetia NadilaDecember 13, 2016 at 11:43 PM
Dita Adetia Nadila (D1041161028)
Risti Ummulkhair (D1041161034)
Emilia Ramadhanty Gunawan (D1041161036)
----
Prosedur Nilai Rata-rata
----
procedure nilairata2(a:integer;var rata2:real);
var
b,c:integer;
begin
b:=0;
c:=0;
repeat
readln(a);
c:=c+1;
b:b+a;
until a=9999;
writeln(b);
writeln('jumlah a+',c);
readln;
rata2:=b/c;
readln;
end;
var
a:integer;
rata2:real;
begin
nilairata2(a,rata2);
writeln('Jadi, nilai rata-rata=',rata2:6:2);
readln;
end.
----
Prosedur Nilai Terkecil
----
procedure minimal (var nilaiterkecil:integer);
var
x:integer;
begin
read(x);
if x <> 999 then
begin
nilaiterkecil:=x;
read(x);
while x<> 9999 do
begin
if x < nilaiterkecil then
begin
nilaiterkecil:=x;
end;
read(x);
end;
write('Nilai Terkecil adalah:',nilai terkecil);readln;
end;
end;
var
nilaiterkecil:integer;
begin
minimal(nilaiterkecil);
readln;
end.
----
Prosedur Bunga Bank
----
var
a: longint;
i,n,b: integer;
f: real;
procedure bungatabungan(a:lingint; i,n:integer; var f:real);

begin
write(' jumlah awal menabung: ');
readln(a);
write(' besar bunga bank dalam satu tahun (presen): ');
readln(i);
write(' lama menabung : ');
readln(n);
for b:=1 to n do
begin
f:=a + (a*1/100)*n;
end;
end;
begin
bungatabungan(a,i,n,f);
write(' jumlah uang setelah n tahun: ' ,f:0:2);
readln:
end.
ReplyDelete
Replies
Enriko YudhistiraDecember 13, 2016 at 11:49 PM
This comment has been removed by the author.
ReplyDelete
Replies
Enriko YudhistiraDecember 13, 2016 at 11:54 PM
Anggota Kelompok:
Enriko Yudhistira Ramadhan D1041161004
Ifan Fathoni Anshari D1041161040
Muhammad Dodi Al-Farisyi D1041161010
Arif Maulana D1041161008
=================================================================
2. Pencari rata-rata
procedure rata(a:integer;var ratarata:real);
var
b,c:integer;
begin
b:=0;
c:=0;
repeat
readln(a);
c:=c+1;
b:=b+a;
until a=9999;
writeln(b);
writeln('jumlah a= ' ,c);
readln;
ratarata:=b/c;
readln;
end;
var
a:integer;
ratarata:real;
begin
rata(a,ratarata);
writeln('Rata-rata= ',ratarata:6:2);
readln;
end.

========================================================
3. Nilai terkecil
procedure minimal(var min:integer);
var
x,min: integer;
begin

readln(x);
if x<>9999 then
begin
min := x;
read(x);
while x<>9999 do
begin
if X < min then
begin
min := x;
end;
read(x);
end;
write('Min adalah ',min);
readln;
end;
end;
var
min: integer;
begin
min(min);
readln;
end.
=============================================================
4. Bunga bank
var
x: longint;
a,b,c: integer;
f: real;
procedure bungabank(x:longint; a,b: integer; var f: real);

begin
write('jumlah uang pertama menabung: ');
readln(x);
write('besar bunga bank dalam satu tahun: ');
readln(a);
write('lama menabung : ');
readln(b);
for c:=1 to b do
begin
f := x + (x*a/100)*b;
end;
end;
begin
bungabank(x,a,b,f);
write('total uang setelah c tahun: ' ,f:0:2);
readln;
end.
ReplyDelete
Replies
UnknownDecember 14, 2016 at 12:09 AM
nama anggota kelompok
Ansfridus Bravo (D1041161024)
Ilyas Andi .M (D1041161014)
Muhammad Faris (D1041161054)
Iqbal Alfansa fikri (D1041161056)

2. procedure ratarata(a:integer; var meen:real);
var
b,c:integer;
begin
b:=0;
c:=0;
repeat
readln(a);
c:=c+1;
b:=b+a;
until a=9999;
writeln(b);
writeln('Jumlah a = ',c);
readln;
meen:=b/c;
readln;
end;
var
a:integer;
meen:real;
begin
ratarata(a,meen);
writeln('Nilai Rata-rata = ',meen:6:2);
readln;
end.

3. 3. Nilai terkecil
procedure minimal(var min:integer);
var
x,min: integer;
begin

readln(x);
if x<>9999 then
begin
min := x;
read(x);
while x<>9999 do
begin
if X < min then
begin
min := x;
end;
read(x);
end;
write('Min adalah ',min);
readln;
end;
end;
var
min: integer;
begin
min(min);
readln;
end.

4. Bunga bank
var
x: longint;
a,b,c: integer;
f: real;
procedure bungabank(x:longint; a,b: integer; var f: real);

begin
write('jumlah uang pertama menabung: ');
readln(x);
write('besar bunga bank dalam satu tahun: ');
readln(a);
write('lama menabung : ');
readln(b);
for c:=1 to b do
begin
f := x + (x*a/100)*b;
end;
end;
begin
bungabank(x,a,b,f);
write('total uang setelah c tahun: ' ,f:0:2);
readln;
end.
ReplyDelete
Replies
Kevin Albert SetiawanDecember 18, 2016 at 10:49 PM
This comment has been removed by a blog administrator.
ReplyDelete
Replies
KrismonDecember 18, 2016 at 10:54 PM
This comment has been removed by a blog administrator.
ReplyDelete
Replies
UnknownDecember 18, 2016 at 11:08 PM
This comment has been removed by a blog administrator.
ReplyDelete
Replies
UnknownDecember 18, 2016 at 11:24 PM
This comment has been removed by a blog administrator.
ReplyDelete
Replies

Add comment