nur sachyo
Jumlah posting : 1
Join date : 06.11.11
 | | Subyek: mohon bimbigan daari para senior TI Sun 13 Nov 2011, 23:32 | |
| saiiia chyo TI'11 mau tanya tentang pemrograman,,, bagaimana cara cari ekuivalensi menggunakan pascal... dengan contoh kaus seperti b bawah ini: buatlah program yang membaca sebuah nilai yang bertipe integer yang menyatakan besaran dalam sehari, menghitung ekuivalensi dalam t ahun, buln dN Hri serta menampilkan nilai" tersebut. jumlah hari=1000 1000hari=2 tahun 9bulan 0hari mohon bantuannya,, saiia dah coba berkali-kali tapi selalu erorr terima kasih banyak.  | |
|
Admin
Admin
Jumlah posting : 23
Join date : 03.07.11
| | Subyek: Re: mohon bimbigan daari para senior TI Mon 14 Nov 2011, 12:36 | |
| - nur sachyo wrote:
saiiia chyo TI'11 mau tanya tentang pemrograman,,,
bagaimana cara cari ekuivalensi menggunakan pascal...
dengan contoh kaus seperti b bawah ini:
buatlah program yang membaca sebuah nilai yang bertipe integer yang menyatakan besaran dalam sehari, menghitung ekuivalensi dalam t ahun, buln dN Hri serta menampilkan nilai" tersebut.
jumlah hari=1000
1000hari=2 tahun 9bulan 0hari
mohon bantuannya,, saiia dah coba berkali-kali tapi selalu erorr
terima kasih banyak. Bentar ya thread dipindahin dulu thread pindah ke https://unindra.forumid.net/f17-turbo-pascal | |
|
Admin
Admin
Jumlah posting : 23
Join date : 03.07.11
| | Subyek: Re: mohon bimbigan daari para senior TI Mon 14 Nov 2011, 12:50 | |
| - nur sachyo wrote:
saiiia chyo TI'11 mau tanya tentang pemrograman,,,
bagaimana cara cari ekuivalensi menggunakan pascal...
dengan contoh kaus seperti b bawah ini:
buatlah program yang membaca sebuah nilai yang bertipe integer yang menyatakan besaran dalam sehari, menghitung ekuivalensi dalam t ahun, buln dN Hri serta menampilkan nilai" tersebut.
jumlah hari=1000
1000hari=2 tahun 9bulan 0hari
mohon bantuannya,, saiia dah coba berkali-kali tapi selalu erorr
terima kasih banyak. Oh mksdnya program konversi gitu? ini coba aja source code nya tapi ini 1 bulan dipatok sama,yaitu 1 bulan = 30 hari jadi 1 tahun = 360 hari - SOURCE CODE:
USES CRT;
VAR TH,BL,HR,BLHR,SISA,SISA1:INTEGER;
BEGIN CLRSCR;
WRITELN('PROGRAM EKUIVALEN HARI');
WRITELN('========================');
WRITELN;
WRITE('MASUKKAN JUMLAH HARI : ');READLN(BLHR);
IF (BLHR/360)>0 THEN
BEGIN
TH:=BLHR DIV 360;
SISA:=BLHR-(TH*360);
END
ELSE
BEGIN
TH:=0;
SISA:=BLHR;
END;
IF (SISA/30)>0 THEN
BEGIN
BL:=SISA DIV 30;
SISA1:=SISA-(BL*30);
END
ELSE
BEGIN
BL:=0;
SISA1:=SISA;
END;
HR:=SISA1;
WRITELN;
WRITELN('HASIL => ',TH,' TAHUN ',BL,' BULAN ',HR,' HARI');
READLN;
END.
- CONTOH HASIL OUTPUT:
Semoga membantu  | |
|
Sponsored content
| | Subyek: Re: mohon bimbigan daari para senior TI | |
| |
|
