Tugas BPTT di Elerning

Temean-teman bisa mengganti nama yang ada Nama_114 dengan nama dan nim anda:

###################################################
 Soal No 1 :
-----------------------------------------------------
 program wartel_114;
uses crt;
var
s1_114,s2_114,m1_114,m2_114,h1_114,h2_114 : integer;
th_114,tm_114,ts_114,bayar_114 :integer;
begin
     clrscr;
     writeln('***********************');
     writeln('--Warnet Best Quality--');
     writeln('-----------------------');
     writeln;
     write('Masukan Jam awal    : ');readln(h1_114);
     write('Masukan Menit awal  : ');readln(m1_114);
     write('Masukan Detik awal  : ');readln(S1_114);
     writeln('----------------------------------');
     write('Masukan Jam akhir   : ');readln(h2_114);
     write('Masukan Menit akhir : ');readln(m2_114);
     write('Masukan Detik akhir : ');readln(s2_114);
     writeln;
     if (h2_114>h1_114) or (m2_114>m1_114) or (s2_114>s1_114) then
        begin
          th_114:= h2_114-h1_114;
          tm_114:=(m2_114+(th_114*60))-m1_114;
          ts_114:=(s2_114+(tm_114*60))-s1_114;
        end;
     bayar_114:=(ts_114 div 30)*250;
     textcolor(blue);
     writeln('Detail :');
     writeln(h1_114,':',m1_114,':',s1_114);
     writeln(h2_114,':',m2_114,':',s2_114);
     writeln('250,- per 30detik');
     writeln('--------------------------------------');
     textcolor(red);
     write('Total pembayaran anda adalah : ',bayar_114);
     readln;
end.
-----------------------------------------------------

Soal No 2 :
---------------------------------------------------
program penjumlahan_114;
uses crt;
var
    i_114,ndata_114: integer;
    jml_114,data_114,rata_114 : real;
begin
    textcolor(green);
    clrscr;
    writeln('  ---Penjumlahan----');
    writeln;
    writeln;
    jml_114:=0 ;
    ndata_114:=0;
    writeln('masukan bilangan berturut-turut : ');
    while data_114 <> 9999 do
    begin
         write('');
         readln(data_114);
         ndata_114:=ndata_114+1;
         jml_114:=jml_114+data_114;
    end;
    ndata_114:=ndata_114-1;
    jml_114:=jml_114 - 9999 ;
    rata_114:= jml_114/ndata_114;
    ndata_114:=ndata_114-1;
    writeln('rata-rata : ',rata_114:6:2);
    readln;
end.
-----------------------------------------------------

Soal No 3 :
-------------------------------------------------------
program conversi_114;
uses crt;
var x_114 : integer;
procedure heksa_114(des_114: integer);
var heks_114 : string;
    h_114 : integer;
begin
    Heks_114:='';
    repeat
       h_114:=des_114 mod 16;
       case h_114 of
         0: heks_114:= '0' + Heks_114;
         1: heks_114:= '1' + Heks_114;
         2: heks_114:= '2' + Heks_114;
         3: heks_114:= '3' + Heks_114;
         4: heks_114:= '4' + Heks_114;
         5: heks_114:= '5' + Heks_114;
         6: heks_114:= '6' + Heks_114;
         7: heks_114:= '7' + Heks_114;
         8: heks_114:= '8' + Heks_114;
         9: heks_114:= '9' + Heks_114;
         10: heks_114:= 'A' + Heks_114;
         11: heks_114:= 'B' + Heks_114;
         12: heks_114:= 'C' + Heks_114;
         13: heks_114:= 'D' + Heks_114;
         14: heks_114:= 'E' + Heks_114;
         15: heks_114:= 'F' + Heks_114;
       end;
       des_114:=des_114 div 16;
    until des_114=0;
    writeln('Bilangan heksadecimalnya :',Heks_114);
    readln;
end;
begin
     clrscr;
     writeln('        Program Conversi');
     writeln('Bilangan Decimal Ke Heksadesimal');
     writeln;
     writeln;
     write('Masukan BIlangan decimal : ');
     readln(x_114);
     heksa_114(x_114);
     readln;
end.
-------------------------------------------------------