Program Pascal Terapan dengan Array

Program Menghitung_Banyak_Vokal ;

uses wincrt;

var

nama :string;

i,vok :integer;

BEGIN

clrscr;

vok:=0;

write('Banyak Vokal dalam kalimat berikut =');readln(nama);

for i:=1 to length(nama) do

case nama[i] of

'A','a','U','u','I','i','E','e','O','o':vok:=vok+1;

end;

writeln('Jumlah Vokalnya :',vok);

READLN;

END.

 

program banyak_huruf_dalam_kalimat;

uses wincrt;

var n:array[1..26] of integer;

i,j:integer;

kata : String;

begin

for i:=1 to 26 do n[i]:=0;

write('Ketikkan sebuah kalimat : ');readln(kata);

for i:=1 to length(kata) do

for j:=1 to 26 do

if ord(upcase(kata[i]))=64+j then

inc(n[j]);

for i:=1 to 13 do

writeln(chr(64+2*i-1),' = ',n[2*i-1],' ',chr(64+2*i),' =

',n[2*i]);

end.

 

Program menghitung_sigma_data;

uses wincrt;

var

x:array[1..10] of integer;

i,jum,n : integer;

begin

clrscr;

jum:=0;

write('Masukkan data =');readln(n);

for i:= 1 to n do

begin

write('Data ke-',i ,'=');readln(x[i]);

jum:=jum+x[i];

end;

writeln('Jumlah = ',jum);

end.

 

Program mencari_suku_ke_i_deret_fibonacci;

uses wincrt;

var

x:array[1..100] of integer;

i,n:integer;

lagi:char;

function fibo(n:integer):integer;

begin

if (n = 1) or (n=2) then

fibo:=1

else

fibo:=fibo(n-1)+fibo(n-2);

end;

begin

repeat

write('Suku deret Fibonacci keberapa :');readln(n);

writeln('Suku ke ', n,' =', fibo(n));

write('Lagi ......[Y/T]');lagi:=upcase(readkey);

writeln(lagi);

until lagi <> 'Y';

end.

 

program mencari_mean_data;

uses wincrt;

var

x:array[1..10] of integer;

i,n,jum,njum:integer;

rata:real;

begin

clrscr;

jum:=0;

write('Masukkan banyak data =');readln(n);

for i:= 1 to n do

begin

write('Masukkan data ke-',i, '=');readln(x[i]);

jum:=jum+x[i];

njum:=njum+1;

Rata:=jum/njum;

end;

writeln('Jumlah = ',jum);

writeln('Rata-rata = ',rata:0:2);

end.

 

Program Nilai_Maximum_Minimum;

uses wincrt;

var a : array[1..100] of integer;

b,c : integer; jumlah:longint;

min,max : real;

begin

writeln('Mencari Nilai Maximum dan Minimum');

writeln('=================================');

write('Banyak Data yang akan diinput : ');read(b);

jumlah:=0;

for c:=1 to b do

begin

write('Masukkan data ke-',c,' = ');readln(a[c]);

jumlah:=jumlah+a[c];end;

begin

max:=a[1];

min:=a[1];

for c:=2 to b do

if a[c]>max then max:=a[c]

else if a[c]<min then min:=a[c];{mencari nilai maximum dan

minimum}

writeln('');

writeln('Nilai Minimum = ',min:0:2);

writeln('Nilai Maximum = ',max:0:2);

readln;

end;

end.