Home > IT, Utilizare > Crearea unei aplicatii in Free Pascal

Crearea unei aplicatii in Free Pascal

Free Pascal este un compilator pe 32 si 64 de biţi disponibil pentru mai multe tipuri de procesoare, pentru mai multe sisteme de operare. Sintaxa limbajului este compatibilă cu limbajul Pascal:

21

După deschiderea aplicaţiei, putem crea un nou fişier de lucru, prin comanda New din meniul File:
22

După deschiderea unui proiect nou, putem începe scrierea de cod sursă:
23

Un program în Free Pascal respectă sintaxa Pascal:
– ce este scris între paranteze acolade este comentariu şi este ignorat de compilator
– orice linie de cod este încheiată cu punct şi virgulă
program fibonacci; – program este un cuvânt cheie rezervat pentru atribuirea numelui programului – fibonacci
var i, x, m, n : integer; – declararea variabilelor utilizate în program. var este un cuvânt rezervat, integer este tipul de date declarat pentru i, x, m şi n
begin şi end – delimitează un bloc de program
writeln – procedură de afişare de mesaje
readln – procedură de citire a datelor introduse de utilizator
n:=0; i:=i+1; m:=m+n; – reprezintă proceduri de atribuire a unor noi valori pentru n, i respectiv m, şi anume 0, i+1 respectiv m+n
if i=x-2 then – este o buclă decizională, care efectuează comanda scrisă după cuvântul rezervat then dacă este îndeplinită condiţia de egalitate i=x-2
24

Salvarea proiectului se realizează prin accesarea comenzii Save şi Save as… din meniul File:
25

Se scrie numele dorit pentru salvare (recomand utilizarea unui nume de maxim 8 caractere, litere mici pentru compatibilitate maximă):
26

Pentru lansarea în execuţie a programului proaspăt creat, se accesează meniul Run, comanda Run:
27

Se afişează mesajul Enter the length of the sequence care a fost generat de procedura writeln(‘Enter the length of the sequence‘);
După ce se tastează numărul dorit, 7 în exemplul prezentat se apasă Enter pentru confirmare. Valoarea 7 îi este atribuită variabilei x prin procedura readln(x);
28

Programul începe să lucreze, şi repetă bucla repetitivă while atâta timp cât variabila i este mai mică decât x-2, totodată afişând valoarea pe care o are la fiecare pas variabila m prin procedura writeln(m); La îndeplinirea condiţiei if i=x-2 then se afişează mesajul Finished ! de către procedura writeln(‘Finished !’);
29

În mod asemănător, se pot crea aplicaţii diverse.

Categories: IT, Utilizare
  1. 2010/04/23 at 4:33 am

    Explica te rog chestia cu :
    “Se scrie numele dorit pentru salvare (recomand utilizarea unui nume de maxim 8 caractere, litere mici pentru compatibilitate maximă):”?
    Din cate stiu asta tine mai mult de ergonomie programarii … E vreun sistem de operare care sa nu stie de numele fisierelor mai mari de 8 caractere , astfel incat sa existe o incompatibilitate software ?
    Imi place ca e finalizat tutorialul , eu as fi prezentat si celelalte tipuri de variabile, macar declararea lor …
    E ok in rest .

    • 2010/04/23 at 4:06 pm

      Sub MS-DOS se pot salva fisiere al caror nume e de maxim 8 caractere.
      Iar litere mici le recomand pentru ca este posibil ca utilizarea unit-uri in Linux sa se faca astfel:
      Uses Utile, Diverse;
      iar numele fisierelor unit sa fie UTILE.PAS si DIVERSE.PAS
      Si va apare eroarea de compilare Can’t find unit Utile and Diverse used by Program

  1. No trackbacks yet.

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s

%d bloggers like this: