Cara membuat program Menentukan Luas dan Jenis Segitiga melaui program Turbo Pascal.

Tugas komputer adalah membuat program Menentukan Luas dan Jenis Segitiga, saya akan memberikan tutorial tentang cara membuat program untuk menghitung luas segitiga sebarang, segitiga sama kaki, 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.

Sebelum menuliskan source code , kami akan menunjukkan terlebih dahulu hasil program sebelum di run.

Anda harus memasukkan source code seperti contoh dibawah :

Setelah anda masukkan anda harus run program pascal. Sehingga dapat seperti ini :

Kemudian anda harus mengetik “y” dan akan bisa menghitung luas dan jenis segitiga

Contoh segitiga sebarang

Contoh segitiga sama kaki

Berikut ini source codenya :

Uses wincrt;
Var A,B,C,I,J,K,L,M,N,X:integer;
Luas:real;
d:char;

Begin
    Writeln('Apakah anda ingin memulai ?(y/t)');
    Readln(d);
    Clrscr;

    if d='y' then
    Begin
    Writeln('UNIVERSITAS PGRI ADI BUANA SURABAYA');
    Writeln('PRODI : PENDIDIKAN MATEMATIKA B-2014');

  Writeln('SEMESTER GENAP');
 Writeln('-----------------------------------------------------------');
Writeln('                  Tugas Kelompok 5 :                ');
Writeln('     WAHYUDI EDO , MIRA DEWI , RURI DWI   , ANGGA       ');
Writeln('     145500074   , 145500085 , 145500062  , 145500094 ');
    Writeln('-----------------------------------------------------------');

    Writeln('         Menghitung Luas dan Jenis Segitiga            ');
    Writeln('-----------------------------------------------------------');
    Writeln('');

    Write('Berapa A : ');
    Readln(A);
    Write('Berapa B : ');
    Readln(B);
    Write('Berapa C : ');
    Readln(C);

    I:=A+B+C;
    J:=I div 2;
    K:=J-A;
    L:=J-B;
    M:=J-C;

    X:=K*L*M;
    N:=J*X;
    Luas:=sqrt(N);
  Writeln('Maka Luas segitiga adalah = ',Luas:2:1);
    end

    Else
    Donewincrt;




    if A=B then
    Begin
    Writeln('Jadi, Jenis Segitiga =  Segitiga Sama Kaki');
    end
       Else if A=C then
       Begin
       Writeln('Jadi, Jenis Segitiga =  Segitiga Sama Sisi');
      end                    
          Else
          Writeln('Jadi, Jenis Segitiga =  Segitiga Sebarang');

      end.