News Update :

Mencari Nilai Rata-rata Dengan Pascal

Kamis, 26 Januari 2012

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.

Program Mencari Bilangan Prima Dengan Pascal

Hai sobatblogger, kali ini saya akan sedikit berbagi ilmu tentang bahasa pemrograman, disini saya akan mengulas program mencari bilangan prima dan tentunya dengan bahasa pascal, oke langsung saja ini dia programnya

Uses wincrt;
var a,b,n,z,i,sisa:integer;
begin
write(' Masukkan angka : ');
readln(b);
a:=2;
        for n:= 3 to b do
{while (b<=c)
do   }
     begin

          Repeat
                sisa:= n mod a;
                a:=a+1;
           Until
                (sisa= 0) or (a=(n-i));
          { if n=2 then writeln('2 adalah prima'); }

          if sisa=0 then
               write('')

          else writeln( n,' adalah prima');

           a:=2;
          { i:=i+1; }
         
     end;
          { readln;
           goto 1; }
end.

Lesehan Populer

 

© Copyright Lesehan ilmu 2010 -2011 | Design by FHP DesignerCorp | Published by FHP Corp | All Rights Reserved