PROGRAM MENGHITUNG LUAS SEGITIGA DAN JENIS SEGITIGA DENGAN TURBO PASCAL

PROGRAM MENGHITUNG LUAS SEGITIGA DAN JENIS SEGITIGA DENGAN TURBO PASCAL

Berkaitan dengan tugas komputer, saya akan memberikan tutorial tentang cara membuat program untuk menghitung luas segitiga siku-siku, segitiga sama kaki, segitiga lancip, segitiga tumpul dan segitiga sama sisi dengan mengunakan bahasa pemrograman turbo pascal sehingga kita tidak perlu repot-repot lagi menghitung secara manual, cukup dengan memasukkan data dan tunggu hasilnya.

Langkah-langkahnya sebagai berikut:

1. Buka turbo pascal atau tpw, masi binngung antara pascal dengan TPW?

santai , sebenarnya keduanya merupakan software yang sama, bedanya TPW adalah turbo pascal yang di gunakan untuk komputer yang memiliki sistim operasi windows.

2. Masukkan kode-kode di bawah ini.

uses wincrt;

var

a,b,c,s,p,x,y,z,ss,i,j,kali:real;

luas:real;

lagi:char;

begin

    lagi:='y';

    repeat

writeln('    Menghitung Luas dan Jenis Segitiga');

writeln('             Tugas Kelompok  ');

writeln('               Kelompok 9  :');

writeln('   Shilvia Putri,Winda Paramita,Dwi Mardiana ');

writeln('...............................................................');

writeln('');

write('berapa a:');

readln(a);

write('berapa b:');

readln(b);

write('berapa c:');

readln(c);

 p:=a+b+c;

s:=p/ 2;

 x:=s-a;

y:=s-b;

z:=s-c;

 i:=sqr(c);

 j:=sqr(a)+sqr(b);

 kali:=x*y*z;

ss:=s*kali;

luas:=sqrt(ss);

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

if (a=b) and (b=c) then

   begin

   writeln('jenis segitiga adalah segitiga sama sisi');

   end

      else if (a=b) or (a=c) then

           begin

           writeln('Jenis Segitiga adalah segitiga sama kaki');

           end

              else

              begin

              writeln('jenis segitiga adalah segitiga sebarang');

              end;            

              if i=j then

                   begin

                   writeln(' dan segitiga siku siku');

                   end

                      else if i

                           begin

                           writeln(' dan segitiga lancip');

                           end

                              else

                              writeln('dan segitiga tumpul');

                                  

write('Apakah anda ingin mengulang ?(y/t)');

    readln(lagi);

    until lagi='t';

    donewincrt; 

end.

Kode kode di atas selain untuk mencari luas segitiga bisa juga untuk memgetahui jenis - jenis segitiga tersebut.

Penjelasan

♥ Var: adalah variabel atau bisa di bilang merupakan nilai input data yang harus di masukkan. Nilai dari var bisa di isi dengan angka real atau integer, namun jika ingin di isi sengan huruf bisa memakai string.

♥ a,b,c,s,p,x,y,z,ss,i,j,kali:integer maksudnya adalah variabel a,b,c,s,p,x,y,z,ss,i,j,kali mengunakan bilangan

♥  writeln : digunakan sebagai label atau kalimat yang akan di tampilkan saat program di jalankan .

♥ luas:=sqrt(ss) adalah rumus dari segitiga yang akan di hitung

3. Jalankan program maka kurang lebih hasinya seperti ini:

Berikut ini flowchart program untuk membuat program di atas.

Begitulah rangkaian program untuk menghitung luas segitiga dan jenis segitiga dengan turbo pascal,selain kita dapat mengetahui jenis dari segitiga dari segi ukuran panjang rusuknya, kita juga dapat mengetahui jenisnya dari segi sudutnya.Dan sehubungan dengan adanya post ini adalah untuk tugas Komputer, semoga tugas ini dapat memenuhi kriteria tugas yang diberikan.Kurang lebihnya saya mewakili kelompok saya meminta maaf yang sebesar-besarnya, dan tentunya untuk pengunjung blog selamat mencoba:^_^.

Nama Kelompok:

1.Shilvia Putri Muslina P.   (145500059)

2.Dwi Mardiana                   (145500068)

3.Winda Paramita                (145500072)