contoh program 13

uses crt;

var

       deb, jam, men, det, njam, nmen: integer;

begin

clrscr;

       write('Masukkan Waktu dalam Detik   : '); readln(deb);

       

       jam := 0;

       men := 0;

       det := 0;

       

       njam := deb;

       nmen := deb;

       

       repeat

       begin

                   njam:= njam - 3600;

                   jam := jam + 1;

       end;

       until njam < 3600;

       

       repeat

       begin

                   nmen := nmen - 60;

                   men := men + 1;

                   

                   if (men > 60) then

                               men := men - 60;

       end;

       until nmen < 60;

       

       write(jam, ' Jam, ', men, ' Menit, ', nmen, ' Detik '); readln;

end.

contoh program 11

uses crt;

var

         ang: integer;

begin

clrscr;

         write('Masukkan sebuah angka   : '); readln(ang);

       

         repeat

         begin

                         ang := ang - 2;

         end;

         until ang <= 1;

       

         if ang = 0 then

                         write('Even')

         else

                         write('Odd');

                       

         readln;

end.

contoh program 10

uses crt;

var

        n, jml, rat, nilai: integer;

begin

clrscr;

        n := 0;

        jml := 0;

        rat := 0;

      

        write('Masukkan nilai Mahasiswa   : '); readln(nilai);

      

        while nilai <= 100 do

                        begin

                                        jml := jml + nilai;

                                        n := n + 1;

                                        rat := jml div n;

                                        write('Masukkan nilai Mahasiswa   : '); readln(nilai);

                        end;

                      

        write('Rata - ratanya   : ', jml, ' / ', n, ' : ', rat); readln;

end.

contoh program 9

uses crt;

var

        n, jml, ang: integer;

begin

clrscr;

        n := 0;

        jml := 0;

       

        repeat

        begin

                         write('Masukkan Data   : '); readln(ang);

                         jml := jml + ang;

                         n := n + 1;

        end;

        until jml > 1000;

         writeln;

         write('Banyak data ', n, ' Jumlah nya ', jml); readln;

end.

contoh program 8

uses crt;

var

             nilai: integer;

begin

clrscr;

             write('Masukkan Nilai Mahasiswa    : '); readln(nilai);

             

             while (nilai < 0) or (nilai > 100) do

             begin

                         write('Data salah, Silahkan Ulangi lagi    : '); readln(nilai);

             end;

             writeln;

             

             if (nilai >= 60) then

                         write('Lulus!')

             else

                         write('Coba Lagi Tahun Depan'); readln;

                         

end.