kumpulan contoh pascal latihan 1

a. program konversi
program konversi;
uses wincrt ;
var
   biner,desimal,sisa,b: integer ;
begin
     desimal:=0; b:= 1;
     writeln('Masukkan bilangan biner :');
     readln(biner);
     repeat
           sisa := biner mod 10;
           biner := biner div 10;
           desimal := desimal + sisa * b;
           b:= b*2;           
     until
     biner =0;
writeln('Hasil konversi ke desimal adalah : ');
writeln(desimal);
end.

b. program deret aritmatika 
program deret_aritmatika;
uses wincrt;
var
a,b,n,u:integer;
s:real;
begin
writeln('PROGRAM DERET ARITMATIKA');
writeln('————————');
write('a = ');readln(a);
write('b = ');readln(b);
write('n = ');readln(n);
s:=n*((2*a)+((n-1)*b))/2;
u:=a+((n-1)*b);
writeln('Un= ',u);
writeln('Sn= ',s:10:2);
end.

c. program deret fionacci
program deret_fibonacci;
uses wincrt;

function fibonacci(n:integer):integer;
begin
if n=0 then fibonacci:=0
else
if n=1 then fibonacci:=1
else
fibonacci:=fibonacci(n-1)+fibonacci(n-2);
end;

var
n, jumlah:integer;
begin
Write('Masukkan bilangan: ');readln(n);
for n:= 1 to n do
Writeln('Deret Fibonacci ke-',n,' adalah: ',fibonacci(n));
for n:= 1 to n do
jumlah:=fibonacci(n) + fibonacci(n)+ fibonacci(n-1)-1;
writeln('==================================');
writeln('jumlah fibonacci ke-’,n,’ adalah: ',jumlah);
readkey;
donewincrt;

end.

d. program deret

Program Deret;
Uses winCrt;

Var
 a,b,n:integer;

begin
a:=1;
b:=1;
write('Jumlah Digit Deret yang anda inginkan: '); readln(n);
writeln;
while (b<=n) do
begin
write(a,' ');
a:=a+2 ;
b:=b+1 ;
end;
writeln;
writeln;
writeln('Jumlah seluruh deretnya adalah : ',sqr(n));
 readln;

end.

e. deret genap

program deret_genap;

uses wincrt;

var

i:integer;

begin

i:=2; write(2,' ');

repeat

i:=i+2; write(i,' ');

until i=10;

end.

f. program kombinasi

program permutasi_kombinasi;

uses wincrt;

var

a,b,a_k,kombinasi,permutasi:real;

i,n,k:longint;

begin

writeln('MENGHITUNG PERMUTASI DAN KOMBINASI:');

write('masukkan bilangan n = ');readln(n);

write('masukkan bilangan k = ');readln (k);

a:=1;

b:=1;

a_k:=1;

for i:=2 to n do

a := a*i;

for i:=2 to k do

b :=b*i;

for i :=2 to (n-k) do

a_k := a_k * i;

kombinasi := a/(b*a_k);

permutasi :=a/ (a_k);

writeln ( n, ' Kombinasi',k,' = ', kombinasi:4:1);

writeln (n, ' Permutasi',k,' = ',permutasi :4:1);

end.

g.  median

Program median;

Uses Wincrt;

Var

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

n,i,pos:integer;

md:real;

lagi:char;

Begin

lagi:='y';

while lagi='y' do

begin

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

Writeln('Program median');

Writeln('=============');

Writeln;

writeln('*dalam program mini ini, data yang harus dimasukkan nanti harus sudah urut*');

writeln;

Write('Masukkan Jumlah Data (n): ');

readln(n);

clrscr;

Writeln;

For i:= 1 to n do

Readln(x[i]);

Writeln;

For i:= 1 to n do

if (n mod 2 = 1) then

begin

pos:=(n div 2)+1;

md:=x[pos];

end

else

begin

pos:=(n div 2);

md:=(x[pos]+x[pos+1])/2;

end;

writeln;

Writeln('Median dari data berjumlah ', n,' tadi adalah : ',md:4:2);

writeln;

writeln('*terimakasih sudah menggunakan program ini*');

writeln('hitung lagi?');

readln(lagi);

end;

End.