Procedure Tahun_Detik(Input Tahun, Bulan ,Tanggal, Jam, Menit, Detik : Integer , Hari : String)
k. awal: Tahun, Bulan, Hari, Jam, Menit, Detik, Hari terdefinisi.
k. akhir: Waktu sudah tercetak setelah ditambah 1 detik.
DEKLARASI:
MaxHari : Integer
HariFeb : Integer
ALGORITMA:
If((Tahun mod 4 = 0 AND Tahun mod 100 ≠ 0) OR Tahun mod 400 = 0)then
HariFeb=29
Else
HariFeb=28
Endif
Case(Hari)
“Senin” : Hariß”Selasa”
“Selasa” : Hariß”Rabu”
“Rabu” : Hariß”Kamis”
“Kamis” : Hariß”Jumat”
“Jumat” : Hariß”Sabtu”
“Sabtu” : Hariß”Minggu”
“Minggu” : Hariß”Senin”
Otherwise : Writeln(“Input Salah(Hari)”)
Endcase
Case(Bulan)
1, 3, 5, 7, 8, 10, 12 : MaxHariß31
2 : MaxHarißHariFeb
4, 6, 9, 11 : MaxHariß30
Otherwise : Write(“Input Salah(Bulan)”)
Endcase
Detik ß Detik + 1
If(Detik = 60) then
Detik ß 0
Menit ß Menit + 1
If(Menit = 60) then
Menit ß 0
JamßJam+1
If(Jam=24)then
Jamß0
TanggalßTanggal+1
If(Tanggal>MaxHari)then
Hariß1
BulanßBulan+1
If(Bulan>12)then
Bulanß1
TahunßTahun+1
Endif
Endif
Endif
Endif
Endif
Writeln(“Date: ”,Hari,” , “,Tanggal,”/”,Bulan,”/”,Tahun,” Time: “,Jam,”:”,Menit,”:”,Detik)
Program Date_Time
DEKLARASI:
Procedure Tahun_Detik(Input Tahun,Bulan,Tanggal,Jam,Menit,Detik : Integer , Hari : String)
Tahun, Bulan, Tanggal : Integer
Jam, Menit, Detik : Integer
Hari : String
ALGORITMA:
Writeln(“Tanggal”)
Write(“Hari : ”)
Read(Hari)
Read(Hari)
Write(“Tanggal : ”)
Read(Tanggal)
Write(“Bulan : ”)
Read(Bulan)
Write(“Tahun : ”)
Read(Tahun)
Writeln(“Time”)
Write(“Jam : ”)
Read(Jam)
Write(“Menit : ”)
Read(Menit)
Write(“Detik : ”)
Read(Detik)
Writeln(“Date: ”,Hari,”,”Tanggal,”/”,Bulan,”/”,Tahun,” Time: “,Jam,”:”,Menit,”:”,Detik)
Write(“1 = Lanjutkan, 0 = Berhenti”)
Read(Lanjut)
While(Lanjut=1)
Tahun_Detik(Tahun,Bulan,Tanggal,Jam,Menit,Detik,Hari)
Write(“Lanjut? “)
Read(Lanjut)
Endwhile
Function Fungsi(Input Titik1, Titik2: Rekaman1)àReal
DEKLARASI:
Jarak12 : REAL
ALGORITMA:
Jarak12ß√( (x1-x2)* (x1-x2)- (y1-y2)* (y1-y2) )
Return Jarak12
Program Jarak_Fungsi
DEKLARASI:
Jarak : REAL
x1,x2,y1,y2 : REAL
ALGORITMA:
Writeln(“Masukkan Titik X1 dan Y1:”)
Write(“Masukkan Titik X1:”)
Read(x1)
Write(“Masukkan Titik Y1:”)
Read(y1)
Writeln(“Masukkan Titik X2 dan Y2:”)
Write(“Masukkan Titik X2:”)
Read(x2)
Write(“Masukkan Titik Y2:”)
Read(y2)
JarakßFungsi(x1,x2,y1,y2)
Write(“Maka Jarak Dari Kedua Titik Tersebut adalah:”,Jarak)
Tidak ada komentar:
Posting Komentar