pascal "percabangan"

1. IF THEN ELSE
2. CASE OF

1. IF THEN ELSE
struktur penulisan:

if exp then statement 1 else statement 2

if exp2 then statement 1 else if exp2 then statement .... dst else statement

Contoh:
Menyebutkan Nama Bulan.

program if_then;
uses wincrt;
var kd_bln : integer;
begin
writeln ('nama-nama bulan');
writeln ('------------------');
write ('masukan kode bulan:,'); readln (kd_bln);
if kd_bln = 1 then
      write ('januari')
else if kd_bulan = 2 then
     write ('februari')
else if kd_bulan = 3 then
     write ('maret')
..... dst
else if kd_bln = 12 then
     write ('desember')
else
    write ('tidak ada bulan ke-13 dst.');
end.


2. CASE OF
contoh :
menyebutkan nama hari

program case_of;
uses wincrt;
var kd_hari : integer ;
begin
writeln ('menghitung nama hari');
writeln ('----------------------');
write ('masukan kode hari:,'); readln (kd_hari);
case kd_hari of
1 : begin
     write ('senin');
     end;
2. : begin
     write ('selasa');
     end;
3 : begin
     write ('rabu');
     end;
4. : begin
     write ('kamis');
     end;
5 : begin
     write ('jumat');
     end;
6. : begin
     write ('sabtu');
     end;
7 : begin
     write ('minggu');
     end;
else
   begin
   write ('tidak ada hari ke-8 dst');
   end;
  end;
end.

PERCABANGAN IF THEN ELSE

1. Satu Kondisi
     if  <kondisi> then
            aksi
          {endif}
jika kondisi benar maka (then) aksi akan dikerjakan dan jika salah tidak dikerjakan apa-apa.
contoh flowchart:

programnya:
uses wincrt;
var nilai : real;
      keterangan : string;
begin
     readln ('nilai');
     if nilai >= 60 then
     keterangan := 'lulus';
{endif}
     writeln (keterangan);
end.

2. Dua Kondisi
    if <kondisi> then
          aksi 1
             else
             aksi 2
     {endif}
contoh flowchart:

programnya:

uses wincrt;
var nilai : real;
      keterangan : string;
begin
     readln ('nilai');
     if nilai >= 60 then
     keterangan := 'lulus'
else
    if nilai <= 60 then
    keterangan := 'tidak lulus';
{endif}
    writeln (keterangan);
end.

contoh program pascal

Assalamualaikum...
Hallo teman-teman semuanya...
kali ini saya akan menulis materi kuliah tentang pascal, bagi yang belum punya aplikasinya silahkan download TPW 1.5 .

• contoh program perkalian

program perkalian;

uses wincrt;

begin

         writeln (6);

         writeln (9);

         writeln ('6*9');

         writeln (6*9);

         writeln ('_____');

end.

hasilnya:

6

9

6*9

54

------

• menghitung luas persegi panjang

program persegi;

uses wincrt;

var l, p, lp : integer;

begin

writeln ('menghitung luas persegi');

writeln ('------------------------');

writeln;

p := 6;

l := 5;

lp := p*l;

writeln ('panjang :', p);

writeln ('lebar:', l);

writeln ('luas persegi :',lp);

end.

hasilnya:

menghitung luas persegi

------------------------

panjang:6

lebar:5 

luas persegi:30

contoh fungsi invers

CONTOH FUNGSI INVERS

Y =  x + 6

          2

Untuk x = 1, 2, 3, 4

Tentukan :

a. Fungsi inversnya?

b. Gambar grafiknya?

c. Gambar pencerminannya?

a.       Fungsi inversnya?

f(1) = 3,5                      f’(1) = - 4        f(2) = 4                          f’(2) = -2        f(3) = 4,5                      f’(3) = 0        f(4) = 5                          f’(4) = 2

Y = x + 6

         2

2y = x + 6

x = 2y – 6

        f(x) = 2y – 6

        f’(x) = 2x – 6

b.      Gambar grafiknya?

c.    Gambar pencerminannya?

download materi di atas