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

Postingan populer dari blog ini

Makalah Algoritma Hough Transform & Source Code

Pengolahan Citra Digital : Laporan Praktikum Jobsheet 3

Pengolahan Citra Digital : Laporan Jobsheet 5