PASCAL : melihat nilai maksimal
PROGRAM
nilai_maksimal;
USES
CRT;
VAR
a, b, max : integer;
BEGIN
CLRSCR;
TEXTCOLOR(lightblue);
WRITE(‘Masukkan
bilangan pertama : ’);READLN(a);
WRITE(‘Masukkan
bilangan kedua : ‘);READLN(b);
IF
a>b THEN
max:=a
ELSE
max:=b;
WRITELN(‘Bilangan
terbesar adalah ‘,max);
READLN;
END.
Komentar
Posting Komentar