- Beranda
- Programmer Forum
[ASK] yang bisa pascal masuk
...
TS
M.Ilham.Jr
[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 ?
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
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.
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
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.
0
670
3
Guest
Tulis komentar menarik atau mention replykgpt untuk ngobrol seru
Mari bergabung, dapatkan informasi dan teman baru!
Programmer Forum
20.2KThread•4.3KAnggota
Terlama
Guest
Tulis komentar menarik atau mention replykgpt untuk ngobrol seru