PASCAL : Program Kalkulator Sederhana

  • Posted: 10/01/2009 10:43:00 PM
  • |
  • Author: Isnaini
  • |
  • Filed under: kalkulator, PASCAL

Fiuuuh...
Akhirnya tugas ini selese juga...
Semoga program ini dapat bermanfaat. ^_^


program kalkulatorQ;
uses wincrt;
var p:char;
n,i:integer;
a,b,c,d,e,f,g,h,j,k,l,m:real;
data:array [0..100] of real;

begin
writeln ('PROGRAM KALKULATOR SEDERHANA');
writeln ('Silakan pilih operasi yang akan digunakan!');
writeln ('pilih 1 untuk operasi penjumlahan');
writeln ('pilih 2 untuk operasi pengurangan');
writeln ('pilih 3 untuk operasi perkalian');
writeln ('pilih 4 untuk operasi pembagian');
writeln ('pilih 5 untuk operasi rata-rata');
writeln ('pilih 6 untuk operasi standar deviasi');
write ('Program yang akan digunakan adalah : '); readln(p);

clrscr;

if p='1' then begin
write ('Angka pertama = ') ; readln (a);
write ('Angka kedua = ') ; readln (b);
write ('Hasil dari ',a:0:2,' + ',b:0:2,' adalah ',a+b:0:2);
end
else if p='2' then begin
write ('Angka pertama = ') ; readln (c);
write ('Angka kedua = ') ; readln (d);
write ('Hasil dari ',c:0:2,' - ',d:0:2,' adalah ',c-d:0:2);
end
else if p='3' then begin
write ('Angka pertama = ') ; readln (e);
write ('Angka kedua = ') ; readln (f);
write ('Hasil dari ',e:0:2,' x ',f:0:2,' adalah ',e*f:0:2);
end
else if p='4' then begin
write ('Angka pertama = ') ; readln (g);
write ('Angka kedua = ') ; readln (h);
write ('Hasil dari ',g:0:2,' / ',h:0:2,' adalah ',g/h:0:2);
end
else if p='5' then begin
writeln ('Masukkan jumlah data maksimal 100!') ; readln (n);
for i:=1 to n do begin
write ('Data ke ',i,' = ') ; readln (data[i]);
end;
j:=0;
for i:=1 to n do begin
j:=j+data[i];
end;
k:=j/n;
writeln ('Rata-ratanya adalah ',k:0:2);
end
else if p='6' then begin
writeln ('Masukkan jumlah data maksimal 100!') ; readln (n);
for i:=1 to n do begin
write ('Data ke ',i,' = ') ; readln (data[i]);
end;
j:=0;
for i:=1 to n do begin
j:=j+data[i];
end;
k:=j/n;
l:=0;
for i:=1 to n do begin
l:=l+sqr (data[i]-k);
end;
m:=sqrt (l/(n-1));
writeln ('Standar deviasinya adalah ',m:0:2);
end;

end.

0 people have left comments

Commentors on this Post-