Jika ingin mencari nilai rata-rata menggunakan array pada pascal, maka cobalah codingan di bawah ini

Coding

uses crt;
var
n,i,total:integer;
b:array[1..100] of integer;
rata:real;

begin
total:=0;
clrscr;
writeln('##################################################');
writeln('# #');
writeln('# Program mencari nilai rata-rata #');
writeln('# #');
writeln('##################################################');
writeln;
write('masukan banyak bilangan = '); readln(n);
for i:= 1 to n do begin
write('masukkan bilangan ke-',a,' = ');readln(b[n]);
total:=total+b[n];
end;

rata:=total / n;
writeln;
writeln('jumlah bilangan = ' ,total);
writeln('rata-rata bilangan = ',rata:0:2);
readln;
end.

Output

Read more »

These icons link to social bookmarking sites where readers can share and discover new web pages.

• 
• 
• 
• 
• 
• 
• 
• 
• 
• 
• 

0 Comments

Tags: Komputer

Postingan kali ini tentang cara mengembalikan password facebook (menggunakan Email) yang sengaja dirubah lalu kita lupa atau sengaja dirubah oleh orang yang tidak bertanggung jawab.
Beruntunglah karena facebook memberikan Roadblock.
oke langsung saja langkah-langkahnya :
1. login pada email anda
2. cari email dari Facebook dengan subject "Facebook password change"
3. klik link yang di berikan facebook untuk mengubah password kita
4. masukan password baru anda
5. tandai email anda
6. facebook akan mengkonfirmasi ulang data diri anda
7. selesai dan password baru anda dapat di gunakan

sekian dulu postingan kali ini.
semoga membantu ^^

Read more »

These icons link to social bookmarking sites where readers can share and discover new web pages.

• 
• 
• 
• 
• 
• 
• 
• 
• 
• 
• 

0 Comments

Tags: Komputer