Mencari Nilai Rata-rata Dengan Pascal

Jumpa lagi dengan saya para sobatblogger, kali ini saya akan berbagi ilmu yang saya dapat dari pelajaran di kampus masih di bidang program, nah pada pertemuan ini saya akan berbagi ilmu tentang bagaimana mencari nilai rata-rata baik rata-rata positif maupun negatif serta tambahan mencari jumlah bilangan posotif dan negatif, oke gak usah panjang lebar langsung saja kita simak.

uses wincrt;
var cn,cn,jp,jn,i,n,bil: integer;
rata:real;

begin
    write('Banyak Bilangan : '); readln(n);
     writeln('');
     for i := 1 to n do
         begin
              Write('Bilangan ',i,' : '); readln(bil);
              if bil > 0 then
              begin
                   jp := jp+bil;
                   cp := cp+1;
              end
              else
              begin
                   jn := jn+bil;
                   jn := cn+1;
              end
         end;
         writeln('');
         writeln('Jumlah Bilangan Positif :',jp);
         writeln('Rata-rata Bilangan Positif :',jp/cp:0:2);
         writeln('Jumlah Bilangan Negatif :',jn);
         writeln('Rata-rata Bilangan Negatif :',jn/cn:0:2);
         readln;
end.

Mencari Nilai Tertinggi dan Terendah Dengan Pascal

Sobatblogger, kali ini saya akan berbagi ilmu lagi nih, masih membahas pemrograman kok, heheehe saya harap tidak bosan ya. kali ini saya akan berbagi bagaimana cara mencari nilai tertinggi dan terendah, sudah pasti dong menggunakan bahasa pascal, oke mari kita simak.

uses wincrt;

var a, siswa : integer;
nilai, total, tinggi, rendah, rata : real;

begin
  total := 0;
  write ('jumlah siswa : '); readln (siswa);
  writeln;
  for a := 1 to siswa do
  begin
    write ('nilai siswa ke ',a,' : '); readln (nilai);
    total := total + nilai;
    if a = 1 then begin
      tinggi := nilai;
      rendah := nilai;
    end
    else begin
      if nilai > tinggi then tinggi := nilai
      else begin
      if nilai < rendah then rendah := nilai;
      end;
    end;
  end;
  rata := total / siswa;
  writeln;
  writeln ('nilai terendah    : ', rendah :1:2);
  writeln ('nilai tertinggi   : ', tinggi :1:2);
  writeln ('rata-rata         : ',rata :1:2);
end.