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