Program turbo pascal

Program turbo pascal

Contoh Program luas trapezium

Program luas_trapesium;

USES CRT;

VAR

                Sisi_A:real;

                Sisi_B:real;

                Tinggi:real;

                Luas:real;

BEGIN

                CLRSCR;

                WRITE(masukkan sisi_A”);READLN(sisi_A);

WRITE(masukkan sisi_B”);READLN(sisi_B);

WRITE(masukkan tinggi”);READLN(tinggi);

LUAS:=0.5*(sisi_A*sisi_B)*tinggi;

WRITELNluas trapesium adalah:”’luas:8:2);

READLN;

END.