Contoh Program Paskal Pengaplikasian For do

uses crt;
var a: integer;
begin
clrscr;
for a:=1 to 10 do
begin
if (a mod 2=0) then write('-',a) else write('+',a);
end; readln; end.



Hasil

+1-2+3-4+5-6+7-8+9-10


Sumber : Pra UTS ATA 2011//2012 Algoritma & Pemprograman 2