Arya's Blog

Perulangan While do untuk menghitung penjumlahan

program contoh;
uses crt;
var
x,jumlah,k:real;
begin
jumlah:=0;
k:=1;
while k<3 do
begin
write('Masukkan nilai x:');readln(x);
jumlah:=jumlah+x;
k:=k+1;
end;
write('Jumlahnya adalah:',jumlah:2:2);
readln;
end.