Membuat Program Pascal (Mencari Luas dan Jenis Segitiga)

Assalamu'alaikum.
Di sini, dalam memenuhi tugas Komputer, akan saya tampilkan program input_output untuk mencari luas segitiga dan jenisnya. Oh ya, untuk membuat program, akan lebih mudah jika kita membuat dan mengetahui flowcartnya terlebih dahulu. berikut adalah flowcart yang akan membantu.

Klik Gambar Untuk Lebih Jelas

  Setelah mengetahui flowcartnya, dapat dibuat progam input_output seperti di bawah ini.

uses wincrt;

var

s,L:real;

a,b,c,n:integer;

x:array[1..100]of integer;

lg:char;

begin

writeln('Kelompok 2');

writeln('Menghitung Luas dan Jenis Segitiga');

repeat

n:=1;

L:=0;

repeat

write('Berapa sisi ke',n,':');

readln(x[n]);

n:=n+1;

until n=4;

a:=x[1];

b:=x[2];

c:=x[3];

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

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

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

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

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

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

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

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

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

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

readln(lg);

until lg='t'

end.

Silakan mencoba. Semoga bermanfaat ^_^