Program Pascal Break & Continue
Program Pascal Break & Continue
__________________________________
Program Breaking;
var
a: integer;
begin
a := 10;
while a < 20 do
begin
writeln('Nilai dari a adalah ', a);
a:=a +1;
if( a > 15) then
break; {menghentikan perulangan}
end;
end.
_________________________________
Program Lanjut;
var
a: integer;
begin
a := 10;
repeat
if( a = 15) then
begin
a := a + 1;
continue;
end;
writeln ('Nilai a adalah ', a);
a:= a+1;
until ( a = 20 );
end.
0 Response to "Program Pascal Break & Continue"
Post a Comment