[ASK] yang bisa pascal masuk

Beranda

...

Programmer Forum
[ASK] yang bisa pascal masuk

M.Ilham.Jr

07-01-2015 03:45

[ASK] yang bisa pascal masuk

mau tanya biar program di bawah ini data yang kita input bisa kita tampilkan di output nanti kaya tabel gimana ya ?
intinya pingin nampilin semua variabel bil yang di input di awal
terus kira kira gimana biar bisa menyimpulkan kalo data yang kita masukan lebih dari ucl atau kurang dari lcl maka data tidak akurat begitupun sebaliknya ?

Spoiler for code:

program hitungkeakuratan;

var
n,i,jumlah,p,z,dataa:integer;
bil: array [1..100] of integer;
rataratasemua,deviasi,jumlah2,ucl,lcl,jumlahxkenkurangxratakuadrat:real;

begin
{bagian input}
writeln('Syarat dan ketentuan input');
writeln('1. pengambilan sampel tiap satu kali ambil adalah 10');
writeln('2. jumlah data kelipatan 10');
write('Masukan berapa sampel yang akan di analisis emoticon-Frown

kelipatan sepuluh)');
read(n);
writeln('Berapa persen keakuratan yang diinginkan ? 1 untuk 95,44% dan 2 untuk 99,...% ?');
readln(p);
jumlah:=0;
jumlah2:=0;
for i:=1 to n do
begin
writeln('Masukkan data sampel ke-',i,':');
read(bil[i]);
jumlah:=jumlah+bil[i];
rataratasemua:=jumlah/n;
jumlah2:=jumlah+sqr(bil[i]-rataratasemua);
dataa:=bil[i]
end;
if p=1 then z:=2 else z:=3 ;
jumlahxkenkurangxratakuadrat:=jumlah2;
deviasi:=sqrt(jumlahxkenkurangxratakuadrat/(n-1));
ucl:=rataratasemua+z*(deviasi/10);
lcl:=rataratasemua-z*(deviasi/10);
{bagian akhir proses}

{bagian output}
writeln('standar deviasi =',deviasi:5:2);
writeln('jumlah (x-xrata)^2 adalah =',jumlahxkenkurangxratakuadrat:5:2);
writeln('Rata-rata dari semua data: =',rataratasemua:5:2);
writeln('lower control limit =',lcl:5:2);
writeln('upper control limit =',ucl:5:2);
writeln('aaaaaa =',dataa);
{bagian akhir output}
readln;
readln;
end.

670

Kutip

Balasan

Komentar yang asik ya

Mari bergabung, dapatkan informasi dan teman baru!

Programmer Forum

20.2KThread•4.4KAnggota

Urutkan

Terlama

Komentar yang asik ya