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.
Setelah mengetahui flowcartnya, dapat dibuat progam input_output seperti di bawah ini.
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
Dan tekan ctrl+F9
Silakan mencoba. Semoga bermanfaat ^_^