Contoh Soal Membuat Programa Pada TurboPascal

Buatlah Prosedur yang membaca panjang alas dan tinggi segitiga, menghitung luas segitiga dengan rumus Luas = (Alas x Tinggi)/2, dan mencetak Luas segitiga tersebut.

Cara Penyelesaian  :

procedure Hitung Luas Segitiga

{Menghitung luas segitiga dengan rumus L=(alas x tinggi)/2}

(Kondisi Awal : sembarang}

{Kondisi Akhir : Luas Segitiga Tercetak}

DEKLARASI

alas : real ( panjang alas segitiga)

tinggu : real (tinggi segitiga)

luas : real (luas segitiga)

ALGORITMA :

readln(alas,tinggi)

luas<----(alas*tinggi)/2

write(luas)

PENYELESIAN , yaitu:

Program cobafor;

Uses wincrt;

Var segitiga :array[1..2]of integer;

L,alas,tinggi: integer ;

Nilai:array[1..2]of real;

Begin

For L:=1 to 2 do

begin

Clrscr;

Write(‘segitiga ke :’);readln(segitiga[L]);

Write(‘masukan alas :’);readln(alas);

Write(‘masukan tinggi :’);readln(tinggi);

Nilai[L]:=0.5*alas*tinggi;                                                      

end;

Clrscr;

For L:=1 to 2 do

Writeln(‘Segitiga ke :’,Segitiga[L],’Luas :’,nilai[L]:5:2);

Readln;

End.

setlah programnya di copypaste ke pascal kemudian klik RUN.