Tugas Pendahuluan 3.
PRAKTIKUM
ALGORITMA
DAN PEMROGRAMAN
OLEH
LUH
PUTU SUCI VANDASARI
F1A113054
KELAS
A
JURUSAN
MATEMATIKA
PROGRAM
STUDI MATEMATIKA
FAKULTAS
MATEMATIKA DAN ILMU PENGETAHUAN ALAM
UNIVERSITAS
HALU OLEO
2014
SOAL.
1.
Buatlah program
konversi hari yang menghasilkan hasil berikut :
2. Buatlah program
untuk konversi dari detik ke hari, jam, menit, detik.
3. Buatlah program
konversi suhu dari
Celcius ke
Fahrenheit dan Kelvin
.
4. Buatlah program seperti
pada mesin kasir.
PENYELESAIAN.
1.
Program konversi
hari yang menghasilkan hasil pada soal 1.
uses
crt;
var
H,
M, B, T, U, C, Hari : longint;
begin
clrscr;
textcolor(14);
writeln;
write('Masukkan
Jumlah Hari = '); readln(H);
T:=
H div 360;
U:=
H mod 360;
B:=
U div 30;
C:=
U mod 30;
M:=
U div 7;
Hari:=
U mod 7;
writeln;
write('Jadi,
',H,' hari adalah =');
write('
',T,' Tahun');
write('
',B,' Bulan');
writeln('
',Hari,' Hari');
readln;
end.
Setelah di-RUN berikut tampilannya.
2.
Program untuk
konversi dari detik ke hari, jam, menit, detik.
uses
crt;
var
H,
J, M, D, U, C, E : longint;
begin
clrscr;
textcolor(14);
writeln(' PROGRAM KONVERSI JUMLAH DETIK');
writeln(' KE');
writeln(' HARI, JAM, MENIT, DETIK');
writeln;
writeln;
textcolor(14);
writeln('Silahkan
Mengisi Jumlah Detik Yang Anda Inginkan.');
writeln;
write('Jumlah
Detik = '); readln(D);
H:=
D div 86400;
U:=
D mod 86400;
J:=
U div 360;
C:=
U mod 360;
M:=
C div 60;
E:=
C mod 60;
writeln;
textcolor(15);
write('(PERINTAH
: Tekan');
textcolor(14);
write('
Enter');
textcolor(15);
writeln('
Pada Keyboard.)');
writeln;
textcolor(14);
write('Jadi,
',D,' detik sama dengan ');
write('
',H,' Hari,');
write('
',J,' Jam,');
write('
',M,' Menit,');
writeln('
',E,' Detik.');
writeln;
writeln;
writeln;
writeln;
writeln;
writeln;
writeln(' TERIMA KASIH TELAH MENGGUNAKAN
PROGRAM INI ^^.');
readln;
end.
Setelah
di-RUN berikut tampilannya.
3.
Program konversi
suhu dari
ke
dan
.
uses
crt;
var
inpsuhu : real;
outC,
outF, outK: real;
jenissuhu
: char;
inpsuhustring
: string;
tempsuhu
: real;
ErrCode
: integer;
label
200;
begin
textcolor(14);
clrscr;
writeln(' "PROGRAM KONVERSI TEMPERATUR CELCIUS KE
FAHRENHEIT DAN KELVIN"');
writeln('
==============================================================');
writeln;
textcolor(11);
200:
writeln('Masukkan
Besar Temperatur Celsius Yang Anda Inginkan, Kemudian Tekan Enter Pada
Keyboard.');
writeln;
write('Besar
Temperatur Celcius = '); readln(Inpsuhustring);
val(inpsuhustring,inpsuhu,ErrCode);
if
ErrCode <> 0 then
begin
writeln('Data
Temperatur Yang Anda Masukkan Tidak Valid, Masukkan Data NUmerik.');
writeln;
goto
200;
end;
writeln;
writeln('Hasil
Konversi Temperatur Untuk Temperatur ',inpsuhu:6:2,' C');
writeln;
begin
outF:=(inpsuhu
* 9/5) + 32;
outK:=inpsuhu
+ 273;
writeln('*
Temperatur Dalam Fahrenheit = ', outF:6:2,' F');
writeln('*
Temperatur Dalam Kelvin = ',
outK:6:2,' K');
writeln;
writeln;
writeln;
textcolor(14);
writeln('--------
TERIMA KASIH TELAH MENGGUNAKAN PROGRAM INI --------');
end;
readln;
end.
Setelah
di-RUN berikut tampilannya.
4.
Program mesin
kasir sederhana.
program
mesinkasir;
uses
crt;
var
nm : string;
hrg,beli,byr,cash,kembalian,D,Q,W,E,L,R,H,T,Y,U,I,O,P,A,S,K,Z,X,C,V,B,N,M
: longint;
begin
textcolor(yellow);
clrscr;
writeln(' Masukkan Data Dalam Satuan Rupiah');
writeln('
__________________________________________');
writeln;
write('
Nama Barang : ');
textcolor(15);readln(nm);
textcolor(yellow);
write('
Harga Satuan :
');textcolor(15);write('Rp '); textcolor(15);readln(hrg);
textcolor(yellow);
write('
Jumlah Barang : '); textcolor(15);readln(beli);
byr:=hrg*beli;
textcolor(yellow);
writeln('
Total Bayar : Rp ',byr);
textcolor(yellow);
write('
Uang : ');
textcolor(15);write('Rp ');readln(cash);
kembalian:=cash-byr;
textcolor(yellow);
writeln('
Uang Kembalian : Rp ',kembalian);
writeln;
writeln;
writeln;
textcolor(yellow);
writeln('
============== TERIMA KASIH =============');
writeln;
writeln;
writeln;
textcolor(15);write('Note
: Tekan ');
textcolor(10);write('Enter');
textcolor(15);writeln('
Pada Keyboard Untuk Melihat Pecahan Uang Kembalian');
readln;
clrscr;
L:=kembalian
div 100000;
U:=kembalian
mod 100000;
H:=U
div 50000;
P:=U
mod 50000;
T:=P
div 20000;
S:=P
mod 20000;
C:=S
div 10000;
I:=S
mod 10000;
V:=I
div 5000;
A:=I
mod 5000;
N:=A
div 2000;
D:=A
mod 2000;
R:=D
div 1000;
E:=D
mod 1000;
Y:=E
div 500;
W:=E
mod 500;
Z:=W
div 200;
O:=W
mod 200;
P:=O
div 100;
Q:=O
mod 100;
X:=Q
div 50;
B:=Q
mod 50;
M:=B
div 1;
K:=B
mod 1;
writeln;
textcolor(10);
writeln('
******* PECAHAN UANG KEMBALIAN ********');
writeln('
_______________________________________');
writeln;
writeln;
textcolor(15);
if
(L>0) then
begin
writeln(' ',L,' Lembar Uang 100 Ribu Rupiah');
end;
if
(H>0) then
begin
writeln(' ',H,' Lembar Uang 50 Ribu Rupiah.');
end;
if
(T>0) then
begin
writeln(' ',T,' Lembar Uang 20 Ribu Rupiah.');
end;
if
(C>0) then
begin
writeln(' ',C,' Lembar Uang 10 Ribu Rupiah.');
end;
if
(V>0) then
begin
writeln(' ',V,' Lembar Uang 5 Ribu Rupiah.');
end;
if
(N>0) then
begin
writeln(' ',N,' Lembar Uang 2 Ribu Rupiah.');
end;
if
(R>0) then
begin
writeln(' ',R,' Lembar Uang Seribu Rupiah.');
end;
if
(Y>0) then
begin
writeln(' ',Y,' Koin Uang 5 Ratus Rupiah.');
end;
if
(Z>0) then
begin
writeln(' ',Z,' Koin Uang 2 Ratus Rupiah.');
end;
if
(P>0) then
begin
writeln(' ',P,' Koin Uang Seratus Rupiah.');
end;
if
(X>0) then
begin
writeln(' ',X,' Koin Uang 50 Rupiah.');
end;
if
(M>0) then
begin
writeln(' ',M,' Koin Uang 1 Rupiah.');
end;
readln;
end.
Setelah di-RUN berikut tampilannya. Masukkan nama
barang yang diinginkan, kemudian tekan Enter pada Keyboard.
Tekan Enter pada Keyboard untuk menampilkan pecahan uang kembalian. Berikut tampilannya.
Tidak ada komentar:
Posting Komentar