LOOPING GOTO

                              {SPAP1006077TUGAS5}
PROGRAM menentukan_genap_gajil_dengan_batas_max;

uses crt;
var
{
i,x:word;
label 1;

begin
clrscr;
writeln('Tulis batas nilai maksimal yang di tampilkan: '); readln(x);
i:=0;
1:i:=i+1;
write(i,' ');
if (i mod 2=0) then writeln('adalah bilangan genap')
else writeln ('adalah bilangan ganjil');
if  i < x then
goto  1;

readln;
end.

LINK DOWNOAD :

FILE PDF

FILE PAS

uzzumaki_naruto Senin, 15 Agustus 2011