Sepertinya Pemblokir Iklan Anda Aktif
Maaf, Sayangnya blog ini tidak bisa hidup tanpa bantuan dari iklan.
Mohon nonaktifkan terlebih dahulu Pemblokir iklan (misal: Adblock) khusus untuk blog ini.
Setelah Anda menonaktifkan AdBlock, silahkan reload halaman ini.
Terima Kasih, semoga anda selalu dimudahkan pada setiap usaha, serta semoga Tuhan menambah kualitas kesehatan anda sekeluarga.

Jabat tangan
FaRo.

Nah sekarang faro ngepost tentang tugas membuat program untuk mencari rata rata dan ragam data dengan pascal.
Ok langsung saja ini source codenya, copy paste saja di program dev pascal (pascal compiler).


program reratadanragam;
uses crt;
var
i,datamax:integer;
jmldata,newdata,rerata,ragam:real;
data:array [1..100] of real;
begin
jmldata:=0;
writeln('program mencari rerata dan ragam');
write('input banyak data (maksimal 100 data): ');
readln(datamax);
for i:=1 to datamax do
begin
write('masukkan data ke-',i,' : '); readln(data[i]);
jmldata:=jmldata + data[i];
end;
rerata:=jmldata/datamax;
newdata:=0;
for i:=1 to datamax do
begin
newdata:=newdata + (data[i]-rerata)*(data[i]-rerata);
end;
ragam:=newdata/datamax;
writeln('dari data yang telah diinputkan');
writeln('didapatkan rerata sebesar : ', rerata:4:2);
writeln('dan ragam sebesar : ', ragam:4:2);
readln;
end.
 disini faro menggunakan tipe data real karena ragam biasanya kan dalam desimal..
untuk algoritmanya, bisa dilihat dari struktur source code itu.

semoga artikel ini bermanfaat.

Post link : http://www.blognafaro.com/2013/10/Pascal-Source-Code-Program-Mencari-Rata-Rata-dan-Ragam-Data.html

Pascal : Source Code Program Mencari Rata - Rata dan Ragam Data

Ringkasan : faro ngepost tentang tugas membuat program untuk mencari rata rata dan ragam data dengan pascal. Ok langsung saja ini source codenya, copy paste saja di program dev pascal (pascal compiler). .
Jumlah Kata : | Dipublikasikan pada Monday, October 14, 2013
 
Top