Pemrograman Pascal menentukan (Nilai Terbesar)

Latihan Pemrograman menentukan Nilai Terbesar

Buatlah sebuah program untuk menerima inputan 2 buah angka, kemudian tentukan angka terbesar dari 2 buah angka yang diinputkan tadi. 

• Output yang diharapkan 

Input angka pertama : 10 <Inputan>

Input angka kedua : 15 <Inputan>

Angka terbesar adalah 15 <Output>

Jawab:

Inputan 

Program Inputan_angka;

uses crt;

var

        angkapertama: integer;

        angkakedua: integer;

begin

        clrscr;

        writeln('Nama : Farhan Misbahul Hayat');

        writeln('Npm  : 202143502440');

        writeln('=================================');

        writeln('>>>Program Inputan<<<');

        write('Input angka pertama : ');

        readln(angkapertama);

        write('Input angka kedua   : ');

        readln(angkakedua);

        if (angkapertama > angkakedua) then

                writeln('Angka terbesar adalah : ',angkapertama)

        else

                writeln('Angka terbesar adalah : ',angkakedua);

        readln;

end.

Output

Thanks Guys