Contoh Program Pascal Case of Menentukan Indeks Nilai

Flowchat Menentukan Indeks Nilai :

Proses dalam Program Pascal

Hasil dari Proses Diatas :

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.

Proses Dalam Program Pascal

Hasil dari proses diatas :

Contoh Permasalahan if...then...else

Algoritma menentukan sudut istimewa pada cosinus

1. Memasukkan nilai sudut
2. Jika besar sudutnya 0 derajat maka nilainya 1
3. Jika besar sudutnya 30 derajat maka nilainya (1 )/(2 ) √3
4. Jika besar sudutnya 45 derajat maka nilainya (1 )/(2 ) √2
5. Jika besar sudutnya 60 derajat maka nilainya 1/2
6. Jika besar sudutnya 90 derajat maka nilainya 0
7. Hasil

FLOWCHART :

 TPW 1,5

program menentukan_sudut_istimewa_pada_cosinus;
uses winCrt;
var
angka : longint;

begin

ClrScr;
writeln('sudut cosinus');
write('masukkan angka')  ;
                                                        
readln(angka);


writeln;

if angka = 0 then
write('satu')
else
if angka = 30 then
 write('satu per dua akar tiga')                                        
 else
 if angka = 45 then
 write('satu per dua akar dua')
 else
 if angka= 60 then
 write('satu per dua')
 else
 if angka = 90 then
 write('nol');

 readln;

 end.


TAMPILAN PROGRAM :

HASIL :

CONTOH :