Halaman

Jumat, 31 Mei 2013

algoritma rata-rata nilai dan juara 1

program contoh810;
uses wincrt;
var nama,namamaks:string;
       nilai,jumlahnilai,rata:real;
       banyaksiswa:byte;
       nilaimaks:real;
begin
        clrscr;
        {inisialisasi}
        banyaksiswa:=0;jumlahnilai:=0;nilaimaks:=-999;
        namamaks:=' ';
        write('nama siswa (isi "x" jika selesai) : ');
        readln(nama);
        while nama <> 'x' do
        begin
                     write('nilai ujian : ');readln(nilai);
                     banyaksiswa:=banyaksiswa+1;
                     jumlahnilai:=jumlahnilai+nilai;

                     {mencari nilai maksimum};
                      if nilai > nilaimaks
                      then begin
                                nilaimaks:=nilai;
                                namamaks:=nama;
                       end;

                       writeln;write('nama siswa (isi "x" jika selesai) : ');
                        readln(nama);
                        end;
          rata:=jumlahnilai/banyaksiswa;
          writeln('nilai rata-rata : ', rata:6:2);
          writeln('nilai maksimum : ',nilaimaks:6:2);
          writeln('nama siswa juara 1 : ',namamaks);
end.

selamat mencoba