Page 112 - BAHAN_BACAAN_ALGORITMA_DAN_PEMOGRAMAN

Algoritma JUMLAH_DATA;
{ menghitung jumlah seluruh nilai bilangan bulat
positif yang dibaca dari piranti masukan. akhir
pembacaan data: -99 }

DEKLARASI
x : integer { data yang dibaca }
jumlah : integer { pencatat jumlah seluruh data }

DESKRIPSI
jumlah←0 {inisialisasi penjumlah bilangan}
read(x)

while x ≠ -99 do
jumlah←jumlah + x
read(x)

endwhile
{ kondisi di akhir pengulangan: x = -99}
write(jumlah) {terminasi}

program JUMLAH_DATA;
{ menghitung jumlah seluruh nilai bilangan bulat positif yang dibaca dari

piranti masukan. akhir pembacaan data: -99 }

uses wincrt;

(* DEKLARASI *)
var
x, jumlah : integer;

(* DESKRIPSI *)
begin

jumlah:=0;
write('Ketikkan sembarang bilangan bulat ( -99 mengakhiri )');
readln(x);
while x <> -99 do

begin
jumlah:=jumlah + x;
write('Ketikkan sembarang bilangan bulat ( -99 mengakhiri )');
readln(x);
end;

writeln('Jumlah seluruh nilai = ',jumlah);

end.