[ASK] yang bisa pascal masuk

Beranda
Komunitas
Tech
Programmer Forum
[ASK] yang bisa pascal masuk

M.Ilham.Jr

07-01-2015 03:45

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

Guest

Tulis komentar menarik atau mention replykgpt untuk ngobrol seru

Urutan

Terbaru

Terlama

Guest

Tulis komentar menarik atau mention replykgpt untuk ngobrol seru

Komunitas Pilihan