Menghitung Jumlah Nilai Dengan Array di Turbo Pascal

Pada postingan kali ini saya akan membahas tentang Menghitung Jumlah Nilai Dengan Array di Turbo Pascal
sebelum memulai ada baiknya anda membaca postingan saya sebelumnya yaitu Perulangan For do di Turbo Pascal

Apa itu Array ?
Array adalah sekumpulan variable yang memiliki tipe data yang sama  dan dinyatakan dengan nama yang sama. Array merupakan konsep yang penting dalam pemrograman, karena array memungkinkan untuk menyimpan data maupun referensi objek dalam jumlah banyak dan terindeks. Array menggunakan index integer untuk menentukan urutan elemen-elemennya dimana elemen pertama di mulai dari nol (0)

Setelah anda mengetahui apa itu array sekarang saya akan langsung memberi tahu cara Menghitung Jumlah Nilai Dengan Array di Turbo Pascal

1. Buka program Turbo Pascal yang anda punya\

2. Masukan script dibawah ini

script

program jumlah_array;
uses crt;
var
 bil:array[1..-100] of integer;
 i,j:integer;
 jumlah:integer;
begin
 clrscr;
 writeln('===================');
 writeln('Tutorial Koding');
 writeln('===================');
 writeln('');
 write('Masukan Banyak Data : ');readln(i);
 jumlah:=0;
 
 for j:=1 to i do
 begin
  write('Masukan Data ke ', j,' : ');readln(bil[j]);
  jumlah:=jumlah+bil[j];
 end;
 
 writeln('Jumlah Seluruh Nilai :',jumlah);
 readln;
end.

Maka jika dijalankan akan seperti gambar dibawah ini

Penjelasan :

var
 bil:array[1..-100] of integer;
 i,j:integer;
 jumlah:integer;

Digunakan untuk mendekarasikan Variable

write('Masukan Banyak Data : ');readln(i);
 jumlah:=0;

Digunakan untuk menampung banyak data yang diinputkan

for j:=1 to i do
 begin
  write('Masukan Data ke ', j,' : ');readln(bil[j]);
  jumlah:=jumlah+bil[j];
 end;

Melakukan perulangan sebanyak jumlah data yang diinputkan
lalu mengisi variable jumlah dengan penjumlahan dari data nilai yang diinputkan


Semoga berhasil
Semoga bermanfaat dan jangan lupa berikan komentar untuk postingan ini.