Selasa, 26 Mei 2015

MENGHITUNG LUAS SEGITIGA DAN JENIS SEGITIGA DENGAN BAHASA PEMROGRAMAN PASCAL

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.
Dan tekan ctrl+F9
Silakan mencoba. Semoga bermanfaat ^_^