Program menentukan terbesar dan terkecil
Program Latihan0204;
uses wincrt;
var a,b,c,kcl,bsr:integer;
begin
write(' masukkan bilangan pertama : ');readln(a);
write(' masukkan bilangan kedua : ');readln(b);
write(' masukkan bilangan ketiga : ');readln(c);
kcl:=a;
bsr:=a;
if (bsr<b) and (b>c)then
bsr:=b
else if (bsr<c) and (c>b) then
bsr:=c ;
if (kcl>b) and (b<c) then
kcl:=b
else if (kcl>c) and (c<b) then
kcl:=c;
if (a=b) and (b=c) then
write('semua bilangan sama')
else
begin
writeln(' bilangan terbesar adalah ',bsr);
write(' bilangan terkecil adalah ',kcl);
end;
end.
uses wincrt;
var a,b,c,kcl,bsr:integer;
begin
write(' masukkan bilangan pertama : ');readln(a);
write(' masukkan bilangan kedua : ');readln(b);
write(' masukkan bilangan ketiga : ');readln(c);
kcl:=a;
bsr:=a;
if (bsr<b) and (b>c)then
bsr:=b
else if (bsr<c) and (c>b) then
bsr:=c ;
if (kcl>b) and (b<c) then
kcl:=b
else if (kcl>c) and (c<b) then
kcl:=c;
if (a=b) and (b=c) then
write('semua bilangan sama')
else
begin
writeln(' bilangan terbesar adalah ',bsr);
write(' bilangan terkecil adalah ',kcl);
end;
end.
screenshot output program
Semoga Bermanfaat.....
0 Comments
