<body><script type="text/javascript"> function setAttributeOnload(object, attribute, val) { if(window.addEventListener) { window.addEventListener('load', function(){ object[attribute] = val; }, false); } else { window.attachEvent('onload', function(){ object[attribute] = val; }); } } </script> <div id="navbar-iframe-container"></div> <script type="text/javascript" src="https://apis.google.com/js/platform.js"></script> <script type="text/javascript"> gapi.load("gapi.iframes:gapi.iframes.style.bubble", function() { if (gapi.iframes && gapi.iframes.getContext) { gapi.iframes.getContext().openChild({ url: 'https://www.blogger.com/navbar/5389923243548870975?origin\x3dhttp://m2mdevil.blogspot.com', where: document.getElementById("navbar-iframe-container"), id: "navbar-iframe" }); } }); </script> <iframe src="http://www.blogger.com/navbar.g? targetBlogID=3054107564476057249&blogName=m2mdevil.blogspot.com&publishMode=PUBLISH_MODE_BLOGSPOT&navbarType=BLACK&layoutType=CLASSI evil.blogspot.com%2Fsearch" height="30px" width="100%" marginwidth="0" marginheight="0" scrolling="no" id="navbar-iframe" frameborder="0"></iframe> <div id="space-for-ie"></div>
m2mdevil.blogspot.com
WELCOME







2 BLOG M2M


Photobucket


Selasa, 04 November 2008

Pemograman pascal

Sejarah Pascal :
- berakar dari bahasa Algo1 dan PL/1 pada tahun 60-an di benua Eropa
- Pascal disusun oleh Prof Niklaus Wirth pada tahun 70dan dipublikasikan tahun 71
- di uji coba pada computer CDC 6000
- turbo pascal bersifat compiler dan termasuk bahasa tingkat tinggi

contoh program pascal :

uses crt;
var
a,b,c:integer
begin
clrscr;
write (' Masukan Bilangan A :');readln(a);
write (' Masukan Bilangan B :');readln(b);
for c:=a to b do
begin
if c mod 2=0 then
write (' Bilangan Genap :',c)
else
write (' Bilangan Ganjil :',c);readln;
end;
end.

writtern @04.28