Channel PIN : C004874EF
"JOIN BBM Channel Official Anak Kos Entertainment"

Thursday, October 27, 2011

Looping dengan Jumlah Data Tertentu pada Pascal

Contoh ini menggunakan for, jika ingin menggantinya denga fungsi yang lain anda dapat melihat caranya disini

program Latihan8;
uses crt;

var
   jd,i,dt : integer;
   rata,tot: real;

begin
clrscr;
for i:=1 to 5 do
begin
     write('Data Ke-',i,':');readln(dt);
     tot:=tot+dt;
     jd:=jd+1;
end;
     writeln('=========================');
     writeln('Jumlah Data       :',jd);
     writeln('Total Data        :',tot:6:2);
     rata:=tot/jd;
     writeln('Rata-Rata         :',rata:6:2);
     readln;
end.

0 comments:

Post a Comment

Terimakasih telah berkunjung dan berkomentar disini...