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.
0 komentar:
Posting Komentar