Selasa, 02 Desember 2014

Penggunaan Perulangan For Pada Pascal

Gan, sudah lama tak jumpa,,,,
kwkwkwkw.... :)

Okey kita mulai saja membuat suatu yang bermanfaat dalam bahasa program pascal atau lebih sering dikenal dengan layar biru. Disini saya akan membuat beberapa contoh program sederhana penggunaan Perulangan For pada Pascal.

======================================================
uses crt;
var
i : integer;
begin
clrscr;
for i := 1 To 5 Do
writeln(i);
readln;
end.

======================================================
uses crt;
var
i : integer;
begin
clrscr;
for i := 1 To 5 Do
writeln(i, 'Belajar bersama-sama');
readln;
end.

======================================================
uses crt;
var
i : integer;
begin
clrscr;
for i := 5 DownTo 1 Do
writeln(i , ' : ',  'Belajar itu menarik');
readln;
end.


Sekian dulu pembahasan mengenai perulangan for, semoga bermanfaat bagi kita semua...