Menentukan Banyaknya muncul angka di array
--------------------------------------------------------
program BanyakMuncul;
var i,n,muncul,x: integer;
angka : array[1..100] of integer;
begin
//menentukan banyaknya angka yang akan dimasukkan
write('Banyaknya angka : ');readln(n);
//melakukan perulangan untuk mengisi data di array
for i:=1 to n do
begin
write('Angka ke-',i,' : ');readln(angka[i]);
end;
//menentukan nilai x
write('Nilai x : ');readln(x);
//algortima banyaknya kemunculan
muncul := 0;
for i:=1 to n do
begin
if (x=angka[i]) then
inc(muncul); //muncul:=muncul + 1;
end;
//menampilkan hasil
write('Banyaknya kemunculan nilai ',x,' : ',muncul);
readln()
end.
Menentukan Jumlah Array
--------------------------------
program JumlahArray;
var i,n,jumlah : integer;
angka : array[1..100] of integer;
begin
//menentukan banyaknya angka yang akan dimasukkan
write('Banyaknya angka : ');readln(n);
//melakukan perulangan untuk mengisi data di array
for i:=1 to n do
begin
write('Angka ke-',i,' : ');readln(angka[i]);
end;
//algoritma penjumlahan array
jumlah:=0;
for i:=1 to n do
begin
jumlah:=jumlah+angka[i];
end;
//menampilkan jumlah yang diperoleh
writeln('Jumlahnya ', jumlah);
readln;
end.
Mencari Posisi
-------------------
Program Mencari_Posisi;uses crt;
var
t : array[1..100] of integer;
x,i,posisi,n : integer;
begin
write('Banyaknya Bilangan : '); readln(n);
for i := 1 to n do
begin
write('Posisi ke ',i, ': '); readln(t[i]);
end;
write('Nilai X '); readln(x);
posisi:=0;
for i := 1 to n do
begin
if x = t[i] then
posisi:=i;
end;
writeln('Posisi : ', posisi);
end.
Mentukan Besar
--------------------
program nilaiTerbesar;
var i,n,besar : integer;
angka : array[1..100] of integer;
begin
//menentukan banyaknya angka yang akan dimasukkan
write('Banyaknya angka : ');readln(n);
//melakukan perulangan untuk mengisi data di array
for i:=1 to n do
begin
write('Angka ke-',i,' : ');readln(angka[i]);
end;
//algoritma nilai terbesar
besar := angka[1];
for i:=2 to n do
begin
if (besar<angka[i]) then
besar := angka[i];
end;
//menampilkan nilai terbesar
writeln('Nilai terbesar adalah ', besar);
end.
Menentukan Apakah semua negatif atau tidak
-----------------------------------------------------------
program semuaNegatif;
var i,n : integer;
angka : array[1..100] of integer;
jawab : string;
begin
//menentukan banyaknya angka yang akan dimasukkan
write('Banyaknya angka : ');readln(n);
//melakukan perulangan untuk mengisi data di array
for i:=1 to n do
begin
write('Angka ke-',i,' : ');readln(angka[i]);
end;
//algoritma penjumlahan array
jawab := 'Semua Negatif'; i:=1;
while i<=n do
begin
if angka[i]>0 then
begin
jawab := 'Tidak Semua Negatif';
end;
i:= i +1;
end;
//menampilkan jumlah yang diperoleh
writeln(jawab);
readln;
end.
Related Post :
0 Comments
