MENENTUKAN LUAS SEGITIGA DAN JENIS SEGITIGA DENGAN BAHASA PEMROGRAMAN PASCAL

Berkenaan dengan tugas Matkul Komputer, kami akan memaparkan bagaimana cara membuat program dengan menggunakan TPW (Turbo Pascal). Disini kami akan membuat program Menentukan Luas dan Jenis Segitiga.

1.      Pertama, sebelum kalian membuat program, kalian harus bisa membuat flowchartnya terlebih dahulu. Kalian pasti sudah tahu bukan, apa itu flowchart? Flowchart merupakan diagram alir yg disusun menurut logika untuk mnyelesaikan sesuatu. Berikut flowchart program untuk membuat program Menentukan Luas dan Jenis Segitiga:

2.      Setelah kalian tahu bagaimana model-model program yg nantinya harus dibuat, lalu kita akan membuat programnya supaya dapat dibaca oleh komputer dari baris teratas hingga baris terakhir . Program yg dapat dibuat dari flowchart diatas adalah sebagai berikut:

uses wincrt;

var

a,b,c,s:integer;

luas:real;

lg:char;

begin

    writeln('Apakah anda ingin memulai ?(y/t)');

    readln(lg);

    clrscr;

    if lg='y' then

    begin

    Writeln('               Menghitung Luas dan Jenis Segitiga');

    writeln('                      Tugas I Kelompok 7 : ');

    writeln('IKE YUNIARSIH, KHOLIFATUS S.P. , SHINTA DEWI S.P. ,MIFTAKHUL HIDAYAH');

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

    writeln('');

    write('berapa a : ');

    readln(a);

    write('berapa b : ');

    readln(b);

    write('berapa c : ');

    readln(c);

    s:=(a+b+c) div 2;

    Luas:=sqrt((s)*(s-a)*(s-b)*(s-c));

    writeln('Maka luas segitiga=',Luas:2:2);

      if sqr(c)=sqr(a)+sqr(b) then writeln('Jenis Segitiga adalah Segitiga Siku-siku')else

      if sqr(a)=sqr(c)+sqr(b) then writeln('Jenis Segitiga adalah Segitiga Siku-siku')else

      if sqr(b)=sqr(a)+sqr(c) then writeln('Jenis Segitiga adalah Segitiga Siku-siku')else

      if a=b then a:=b else if a=c then writeln ('Jenis Segitiga adalah Segitiga Sama Kaki')else

      if b=c then writeln ('Jenis Segitiga adalah Segitiga Sama Kaki')else

      writeln('Jenis Segitiga adalah Segitiga Sebarang');

      if a=b then if a=c then writeln('Jenis Segitiga adalah Segitiga Sama Sisi')else

      writeln('Jenis Segitiga adalah Segitiga Sama Kaki');

      end;

readln;

donewincrt;

end.

Masukkan kode-kode diatas keTPW, setelah itu untuk mengetahui hasilnya, coba kalian Run(ctrl+f9).

3.      a. Apakah anda akan mulai(y/t)=        {isikan y}, seperti ini hasilnya lalu klik Enter.

  b. Misal, kalian mau tahu luas segitiga dan membuktikan bahwa segitiga itu Jenis dari Segitiga Samasisi:

berapa a=              {isikan 9}

berapa b=             {isikan 9}

berapa c=              {isikan 9}, maka hasilnya kurang lebih seperti berikut:

 

c. Misal, kalian mau tahu luas segitiga dan membuktikan bahwa segitiga itu Jenis dari Segitiga Samakaki:

lakukan langkah 3a, lalu isikan seperti dibawah ini!

berapa a=              {isikan 7}

berapa b=             {isikan 6}

berapa c=              {isikan 6}, hasilnya kurang lebih seperti berikut:

d. Hampir sama dengan langkah 3c, jika kalian mau tahu luas segitiga dan membuktikan bahwa segitiga itu Jenis dari Segitiga Sebarang:

lakukan langkah 3a, lalu isikan seperti dibawah ini!

berapa a=              {isikan 10}

berapa b=             {isikan 8}

berapa c=              {isikan 5}, hasilnya kurang lebih seperti berikut:

e. Dan jika kalian mau tahu luas segitiga dan membuktikan bahwa segitiga itu Jenis dari Segitiga Siku-siku: 
lakukan langkah 3a, lalu isikan seperti dibawah ini!

berapa a=              {isikan 3}

berapa b=             {isikan 4}

berapa c=              {isikan 5}, hasilnya kurang lebih seperti berikut: 

 

Naahhh !!! Cukup mudah bukan ?? 

Itulah rangkaian program untuk menghitung luas segitiga dan jenis segitiga dengan turbo pascal yg dpt kami paparkan.

Sekian dan Terimakasih.....

GOOD LUCK YAAAA!! J