Flowchart dan Source Code Menentukan Luas dan Jenis Segitiga (TUGAS KOMPUTER/B-2014-Kelompok 2)

 

Semester 2 ini , kami mulai mempelajari mata kuliah komputer , dan hal pertama yang kita pelajari adalah Bahasa Pemrograman Pascal , tugas kami kali ini adalah membuat program Menentukan Luas dan Jenis Segitiga .

Sebelum menuliskan source code dan flowchartnya , kami akan menunjukkan terlebih dahulu hasil program setelah di run :)

---

 

Berikut ini flowchart program yang kami buat untuk membuat program seperti di atas .

Berikut ini pula source codenya , :

program Welcome;

uses
  WinCrt;
var
a,b,c,s,p,x,y,z,ss,kali:integer;
luas:real;
d:char;

begin

    writeln('Apakah anda ingin memulai ?(y/t)');
    readln(d);
    clrscr;

    if d='y' then
    begin
    Writeln('           Menghitung Luas dan Jenis Segitiga');
    writeln('                      Tugas Kelompok 2 : ');
    writeln('Jiwanti M., Wahyu Ningtias , Ina Triana , Nurul Laili K.');
    writeln('---------------------------------------------------------');
    writeln('');

    write('berapa a : ');
    readln(a);
    write('berapa b : ');
    readln(b);
    write('berapa c : ');
    readln(c);

    p:=a+b+c;
    s:=p div 2;
    x:=s-a;
    y:=s-b;
    z:=s-c;

    kali:=x*y*z;
    ss:=s*kali;
    luas:=sqrt(ss);

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


    else
    donewincrt;


   

    if a=b then
    begin
    writeln('Jenis Segitiga adalah segitiga sama kaki');
    end
       else if a=c then
       begin
       writeln('Jenis Segitiga adalah segitiga sama sisi');
       end                      
          else
          writeln('Jenis Segitiga adalah segitiga sebarang');


end.

 ------------------------------------------------------------------

Sekian dari kelompok kami , mohon maaf apabila ada kesalahan , terimakasih :)