Contoh Program Pascal Case of Menentukan Indeks Nilai

FLOWCHAT Menentukan Indeks Nilai :

PROGRAM MENENTUKAN INDEKS NILAI 

program NA_CASE_OF ;
uses wincrt;
var
n,na : integer;
begin
writeln ('masukkan nilai yang didapat'); readln (n);
na:=n div 20;
case na of
1: write ('indeks nilai : E');
2: write ('indeks nilai : D');
3: write ('indeks nilai : C');
4: write ('indeks nilai : B');
5: write ('indeks nilai : A');
end;
end.

Proses

Dari proses program diatas, akan diperoleh

Contoh Program Pascal Menentukan Nilai Faktorial

Algoritma Menentukan Nilai Faktorial :

1. Tentukan angka
2. Tuliskan rumus fak*i maka i = n down to 1
3. Masukkan angka pada rumus
4. Hasil.

Program
program menghitung_faktorial;
uses wincrt;
var
i,n,fak: integer;

begin
writeln ('program menghitung faktorial');
write('n= '); readln(n);
fak:= 1;
for i := n downto 1 do
fak:=fak*i; 
writeln(n,'!= ',fak);
readln;
end.

Proses Program Menentukan Nilai Faktorial

proses diatas akan menghasialkan gambar :

Contoh Permasalahan if...then...else

Algoritma menentukan grafik funsi kuadrat , y=ax2+bx+c
1.Memasukkan angka
2.Jika angka lebih dari nol (angka > 0) maka grafik parabola terbuka ke atas
3.Jika angka kurang dari nol (angka < 0) maka grafik parabola terbuka ke bawah
4.Jika angka sama dengan nol (angka = 0) maka grafik berupa garis.
5.Hasil

FLOWCHART:

Cara di programnya TPW 1,5:

program menggambar_grafik_fungsi_kuadrat;

Uses winCrt;

var

angka:real;

begin

clrscr;

writeln('program menentukan parabola');

write('masukkan angka');

readln(angka);

writeln;

if angka > 0 then

write('terbuka ke atas')

else

if angka < 0 then

write('terbuka ke bawah')

else

if angka = 0 then

write('garis');

readln;

end.

TAMPILAN PROGRAM DI ATAS:

\

1.PROSES

2. HASIL

3. CONTOH JIKA DIMASUKKAN ANGKA 1 MAKA PARABOLA TERBUKA KE ATAS