Osnovni pregled mikroPascal sintakse
_
Osnovni pregled sintakse mikroPascala dan je u donjem "programu". Program nema nikakve logike i ne radi ništa pametno! Služi samo kako bi se pokazalo na koji način se pišu naredbe u mikroPascalu i kako biste naučili sintaksu.
Sve što trebate znati o mikroPascalu i njegovom korištenju možete pogledati u pomoći programa koja je izuzetno dobro napisana.
Osnovni pregled sintakse mikroPascala dan je u donjem "programu". Program nema nikakve logike i ne radi ništa pametno! Služi samo kako bi se pokazalo na koji način se pišu naredbe u mikroPascalu i kako biste naučili sintaksu.
Sve što trebate znati o mikroPascalu i njegovom korištenju možete pogledati u pomoći programa koja je izuzetno dobro napisana.
_ program MyProject; //naziv programa
{deklaracije varijabli, konstanti, funkcija i procedura}
var i:byte;
var varijabla1, varijabla2, varijabla3:integer;
var real_varijabla:real;
procedure ime_procedure(ulazni_podatak:byte);
begin
//neke naredbe u proceduri
//neke naredbe u proceduri
end;
function ime_funkcije(ulazni_podatak_1,ulazni_podatak_2:integer):integer;
varlokalna_varijabla:integer;
begin
//neke naredbe u funkciji
//neke naredbe u funkciji
//neke naredbe u funkciji
lokalna_varijabla:=ulazni_podatak_1+ulazni_podatak_2;
result:=lokalna_varijabla;
end;
begin
//dodjeljivanje konstantne vrijednosti varijabli
varijabla1:=1;
//u jednom retku možemo pisati više naradbi
varijabla2:=2;varijabla3:=3;
//matematička manipulacija varijablama
varijabla1:=i+varijabla2;
//jednostavna if naradba
if i=17 then varijabla1:=5;
//if naradba s više naradbi za izvršenje
if real_varijabla=17 then
begin
//neke naredbe
//neke naredbe
//neke naredbe
end;
//if else if else naredba
if varijabla1=5 then varijabla3:=74
else if varijabla1=4 then varijabla3:=73
else varijabla3:=72;
//for petlja
for i:=1 to 5 do
begin
varijabla1:=i*2;
end;
//for petlja
for i:=varijabla2 to varijabla3 do
begin
varijabla1:=i*2;
end;
//repeat until petlja
repeat
//neke naredbe
//neke naredbe
//neke naredbe
until i<12;
//while petlja
while varijabla1<13 do
begin
//neke naredbe
//neke naredbe
//neke naredbe
end;
//ugnjezdena petlja
repeat
for i:=1 to 5 do
begin
varijabla1:=i*2;
end;
until 1=2;
//pozivanje procedure
ime_procedure(i);
//pozivanje funkcije
varijabla1:=ime_funkcije(varijabla2,varijabla3);
end.
{deklaracije varijabli, konstanti, funkcija i procedura}
var i:byte;
var varijabla1, varijabla2, varijabla3:integer;
var real_varijabla:real;
procedure ime_procedure(ulazni_podatak:byte);
begin
//neke naredbe u proceduri
//neke naredbe u proceduri
end;
function ime_funkcije(ulazni_podatak_1,ulazni_podatak_2:integer):integer;
varlokalna_varijabla:integer;
begin
//neke naredbe u funkciji
//neke naredbe u funkciji
//neke naredbe u funkciji
lokalna_varijabla:=ulazni_podatak_1+ulazni_podatak_2;
result:=lokalna_varijabla;
end;
begin
//dodjeljivanje konstantne vrijednosti varijabli
varijabla1:=1;
//u jednom retku možemo pisati više naradbi
varijabla2:=2;varijabla3:=3;
//matematička manipulacija varijablama
varijabla1:=i+varijabla2;
//jednostavna if naradba
if i=17 then varijabla1:=5;
//if naradba s više naradbi za izvršenje
if real_varijabla=17 then
begin
//neke naredbe
//neke naredbe
//neke naredbe
end;
//if else if else naredba
if varijabla1=5 then varijabla3:=74
else if varijabla1=4 then varijabla3:=73
else varijabla3:=72;
//for petlja
for i:=1 to 5 do
begin
varijabla1:=i*2;
end;
//for petlja
for i:=varijabla2 to varijabla3 do
begin
varijabla1:=i*2;
end;
//repeat until petlja
repeat
//neke naredbe
//neke naredbe
//neke naredbe
until i<12;
//while petlja
while varijabla1<13 do
begin
//neke naredbe
//neke naredbe
//neke naredbe
end;
//ugnjezdena petlja
repeat
for i:=1 to 5 do
begin
varijabla1:=i*2;
end;
until 1=2;
//pozivanje procedure
ime_procedure(i);
//pozivanje funkcije
varijabla1:=ime_funkcije(varijabla2,varijabla3);
end.