Menampilkan nilai terbesar dari 3 bilangan munggunakan pascal

   Buat Notasi Algoritma beserta flowchartnya dari sebuah program untuk mencari angka terbesar dari 3 bilangan yang dimasukkan. 

Algoritma : Menampilkan nilai terbesar dari 3 bilangana
Deskripsi : 1.Masukan bilangan 1 (A)
                    2.Masukan bilangan 2 (B)
                    3.Masukan bilangan 3 (C)
                    4.Tampilkan hasil bilangan terbesar

Flowchart :

Jalankan program tersebut dengan bahasa Pascal.

program TugasIf1;

{Pradana Choirun Naziq ;S1 - Teknik Informatika ;Stekom Siliwangi }

uses crt;

  var A, B, C :Integer;

begin

  Clrscr;

  Writeln('MENAMPILKAN BILANGAN TERBESAR DARI 3 BILANGAN');

  Writeln('=============================================');

  WriteLn;

  Write('Masukan bilangan ke 1 = ');ReadLn(A);

  Write('Masukan bilangan ke 2 = ');ReadLn(B);

  Write('Masukan bilangan ke 3 = ');ReadLn(C);

  

  if (A>B) and (A>C) then

        begin 

        writeln('-----------------------------------------------------------');

   WriteLn('Nilai terbesarnya adalah ',A) ;

   end

   else

     if (B>C) and (B>A) then

       begin 

        writeln('-----------------------------------------------------------');

     WriteLn('Nilai terbesarnya adalah ',B) ;

     end

     else

         begin 

         writeln('-----------------------------------------------------------');

       WriteLn('Nilai terbesarnya adalah ',C);

       end;

 Writeln('===============================================');

 Writeln('SEKIAN DAN TERIMA KASIH');

 Writeln('===============================================');

 Writeln('Kunjungi www.pradanaziq.com');

  readln;

end.

Dan hasilnya akan seperti ini, bisa ditambahin variasi sendiri sesuai imajinasi kalian

Berbagi :