Flowchart Menentukan Luas dan Jenis segitiga

Assalamu'alaikum Wr.Wb
Hai... senang rasanya kami dapat menyelesaikan tugas kami dengan mata kuliah komputer, sekaligus berbagi ilmu kepada teman-teman. Disemester ini kami mempelajari mengenai Pemograman Bahasa Pascal, diantaranya membuat flowchart dengan Menentukan Luas dan Jenis Segitiga. Mari kita belajar bersama✊




***********************************************************************************
Dibawah ini adalah program input_output nya:

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 1 : ');
    writeln('Rosita Dewi K., Vida Ayu A , Alifah Nur A , Ratih Rahayu N.');
    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.


Setelah selesai membuat programnya di Aplikasi TPW 1.5 (Turbo Pascal), dapat kita buat Flowchart Programnya yakni sebagai berikut.

***********************************************************************************
Seperti itulah cara menentukan luas dan jenis segitiga dari kelompok kami, dengan program begitupun Flowchart nya. Semoga ilmu ini dapat bermanfaat bagi semua orang, apabila terdapat kesalahan mohon dimaafkan, karena manusia tidak luput dari kesalahan. Terimakasih ^_^