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.

contoh program 7

uses crt;

var

                                    n, max, nilai, min: integer;

begin

clrscr;

                                    n := 0;

                                    max := 0;

                                    min := 100;

                                    repeat

                                    begin

                                        n := n + 1;

                                        write('Masukkan nilai Mahasiswa ke-', n, ' : '); readln(nilai);

                                        if nilai < min then

                                                        begin

                                                        min := nilai;

                                                        end;

                                        if nilai > max then

                                                        begin

                                                        max := nilai;

                                                        end;

                                    end;

                                    until n = 10;

                                  

                                    write('Nilai Tertinggi               : ', max, ' '); writeln;

                                    write('Nilai Terendah                : ', min, ' '); readln;

end.

contoh program 6

uses crt;

var

                              n, max, nilai, jml: integer;

begin

clrscr;

                              n := 0;

                              max := 0;

                              jml := 0;

                              repeat

                              begin

                                 n := n + 1;

                                 write('Masukkan nilai Mahasiswa ke-', n, ' : '); readln(nilai);

                                 if nilai = max then

                                                 begin

                                                 jml := jml + 1;

                                                 end;

                                 if nilai > max then

                                                 begin

                                                 max := nilai;

                                                 end;

                              end;

                              until n = 7;

                            

                              write('Nilai Tertinggi               : ', max, ' '); writeln;

                              write('Banyak Nilai Tertinggi        : ', jml, ' '); readln;

end.