Kamis, 10 Februari 2011

Program Mencari Mencari Mata Uang

Program mencari mata uang


 

uses wincrt;

 
 

var uang :
longint;

 
 

begin


write('Nilai uang : ');readln(uang);

 
 


if uang div
100000 > 0
then
begin


writeln(uang div
100000,
' lembar seratus ribuan');

    uang := uang mod
100000;


end;

 
 


if uang div
50000 > 0
then
begin


writeln(uang div
50000,
' lembar lima puluh ribuan');

    uang := uang mod
50000;


end;

 
 


if uang div
20000 > 0
then
begin


writeln(uang div
20000,
' lembar dua puluh ribuan');

    uang := uang mod
20000;


end;

 
 


if uang div
10000 > 0
then
begin


writeln(uang div
10000,
' lembar sepuluh ribuan');

    uang := uang mod
10000;


end;

 
 


if uang div
5000 > 0
then
begin


writeln(uang div
5000,
' lembar lima ribuan');

    uang := uang mod
5000;


end;

 
 


if uang div
1000 > 0
then
begin


writeln(uang div
1000,
' lembar ribuan');

    uang := uang mod
1000;


end;

 
 


if uang div
500 > 0
then
begin


writeln(uang div
500,
' lembar lima ratusan');

    uang := uang mod
500;


end;

 
 


if uang div
100 > 0
then
begin


writeln(uang div
100,
' ratusan');

    uang := uang mod
100;


end;

 
 


if uang div
50 > 0
then
begin


writeln(uang div
50,
' limapuluhan');

    uang := uang mod
50;


end;

 
 


if uang > 0
then
begin


writeln(uang,
' satuan');


end;

 
 

end.


 


 


 


 

Mencari nilai rata-rata, tertinggi, terendah.


 


 

uses wincrt;

 
 

var a, siswa :
integer;

nilai, total, tinggi, rendah, rata :
real;

 
 

begin

  total :=
0;


write
('jumlah siswa : '); readln
(siswa);


writeln;


for a :=
1
to siswa do


begin


write
('nilai siswa ke ',a,' : '); readln
(nilai);

    total := total + nilai;


if a =
1
then
begin

      tinggi := nilai;

      rendah := nilai;


end


else
begin


if nilai > tinggi then tinggi := nilai


else
begin


if nilai < rendah then rendah := nilai;


end;


end;


end;

  rata := total / siswa;


writeln;


writeln
('nilai terendah : ', rendah :1:2);


writeln
('nilai tertinggi : ', tinggi :1:2);


writeln
('rata-rata : ',rata :1:2);

end.


 

Reaksi:

0 komentar: