Konversi Bilangan

1. Konversi biner ke desimal
Yaitu dengan cara mengalikan masing-masing bit dalam bilangan dengan position valuenya. 

 

Contoh :
1 0 0 1₂                                  1 x 2 ⁰ = 1

                                               0 x 2 ¹ = 0

                                               0 x 2 ² = 0                               

                                               1 x 2 ³  = 8  kemudian dijumlahkan

Bilangan desimal                         18₁₀

Algoritama konversi bilangan biner ke desimal:

1.    Mulai

2.    Baca biner

3.    Desimal=desimal div 10

4.    Sisa= desimal mod 10

5.    Desimal=desimal+sisa*b

6.    b= b*2

7.    jika biner 0 pergi ke 1

8.    pergi ke 3

9.    cetak desimal 10. selesai

Array

Sekarang tiba saatnya kita mempelajari tentang array. Sebelum mempelajari array lebih lanjut perlu kita tahu definisi array itu sendiri.

Array adalah tipe data terstruktur yang terdiri dari sejumlah komponen-komponen yang mempunyai tipe sama. Komponen-komponen tersebut disebut sebagai komponen type, larik mempunyai jumlah komponen yang jumlahnya tetap. Banyaknya komponen dalam larik ditunjukkan oleh suatu index, dimana tiap komponen di array dapat diakses dengan menunjukkan nilai indexnya atau subskript. Array dapat bertipe data sederhana seperti byte, word, integer, real, bolean, char, string dan tipe data scalar atau subrange. Tipe larik mengartikan isi dari larik atau komponen- komponenya mempunyai nilai dengan tipe data tersebut.

Deklarasi Array.
Array dideklarasikan pada bagian deklarasi. Deklarasi umum dari array adalah

Ini contoh Program Pascal bagian 6

CONTOH PROGRAM BENTUK BINTANG DENGAN ANGKA

program seling;
uses wincrt;
var i,j,n:integer;
a:string;        
begin
write ('banyak baris ');
readln (n);
for i:=1 to n do
begin
for j:=1 to i do
begin
if (j mod 2)=1 then
a:='*' else a:='1';
write(a,' ');
end;
writeln;end;
end.

Lanjutkan menuju contoh Program Pascal bagian 5

CONTOH PROGRAM BINTANG PIRAMIDA

uses wincrt;
var
a,b,c,d:integer;
begin
write('masukkan jumlah baris bintang yang akan ditampilkan:');readln(a);
for b:= 1 to a do
begin
for c:= a downto b do
write(' ');
for d:= 1 to b+b-1 do
write('*');
writeln;
end;
end.

tampilan :

Kita menuju ke contoh Program Pascal bagian 4

 

 

CONTOH PROGRAM PERMUTASI DAN 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);

Kali ini akan diberikan contoh Program Pascal bagian 3

CONTOH PROGRAM FAKTORIAL PAKAI FOR TO DO

program faktorial;
uses wincrt;
var
i,n,f:integer;
begin
readln(n); f:=1;
for i:=1 to n do
    begin
    f:=f*i;
    end;
    writeln(n,' faktorial = ',f);
end.

Berikut ini adalah contoh Program Pascal bagian 2

 
CONTOH PROGRAM STATISTIKA DESKRIPTIF

program statistika_deskriptif;
uses wincrt;
var n,i,j,tengah:integer;
a:real;
data:array [0..100] of real;

begin
writeln('SELAMAT DATANG DI PROGRAM STATISTIKA DESKRIPTIF');WRITELN('***==========================***');writeln;
writeln('Berapa jumlah data yang ingin anda dimasukan? (max 100)');
write('silahkan masukan data:');
READLN(N); WRITELN;
{syntax untuk memasukkan data dalam array}
for i:=1 to n do