Looping

Berikut contoh source code aplikasi perulangan...

perulangan 1 

uses crt;

type

    point= record

           x,y: integer;

    end;

var

   p1,p2: point;

begin

     clrscr;

     writeln('contoh mengisi p1, dengan p1.x dan p1.y:' );

     p1.x:=1;

     p1.y:=2;

     writeln('p1.x:',p1.x);

     writeln('p1.y:',p1.y);

     writeln('baca titik p2');

     write('absis:');readln(p2.x);

     write('ordinat:');readln(p2.y);

     write('koordinat:',p2.x,',',p2.y);

     readln;

end.

perulangan 2

uses crt;

label lagi;

var

        x,y: integer;

        ulang: char;

begin

        clrscr;

lagi:

        readln(x);

        readln(y);



        writeln('penjumlahan',x+y);

        writeln('perkalian',x*y);

        readln;

           writeln('ulangi lagi(y/t)');

           readln(ulang);

           if ulang in ['y'] then

                goto lagi;



end.

Baiklah semoga bermanfaat...