Turbo Pascal - Programe si Instructiuni

Trimis la data: 2007-03-15 Materia: Informatica Nivel: Gimnaziu Pagini: 14 Nota: / 10 Downloads: 15
Autor: Daniell n. Dimensiune: 23kb Voturi: Tipul fisierelor: doc Acorda si tu o nota acestui referat: 1 2 3 4 5 6 7 8 9 10
vezi mai multe detalii vezi mai putine detalii
Raporteaza o eroare
Unul din cele mai simple programe, este acela de a afişa un text pe ecran, ca în exemplul următor :


Program inceput;
begin
writeln('Vornicescu Silviu');
writeln('Programator al firmei Delphin Software');
end.
În acest caz programul cuprinde :

Un antet, adică cuvîntul rezervat Program, urmat de numele programului. În Pascal folosirea antetului este obligatorie, dar în Turbo Pascal antetul nu mai este obligatoriu, dar e bine să îl folosim pentru o mai mare claritate a programelor.

Blocul programului, singurul care este obligatoriu. În interiorul blocului se pot face declaraţii de variabile sau constante şi pot fi scrise instrucţiuni. Un bloc poate să conţină la rîndul său alte blocuri.

Următorul program este asemănător cu primul, dar conţine elemente noi în structura sa.

uses crt;
begin
clrscr;
writeln('Salut');
end.

În acest caz, programul conţine în plus cuvîntul rezervat Uses, urmat de numele unit-ului care se va utiliza, crt;
În acest exemplu este utilizată subrutina clrscr (clear screen) din unitul crt , care este folosită pentru ştergerea ferestrei curente cu culoarea fondului. Implicit, culoarea fondului este neagră, iar a scrisului este albă.

Scrierea datelor

Orice operaţie de scriere a datelor se execută începînd din poziţia curentă a cursorului (liniuţa care clipeşte) şi lasă cursorul după ultimul caracter scris.

Procedurile Write şi WriteLn

Sintaxa : Write (argument1, argument2, …, argument n)

Numărul minim de argumente este unu. Un argument poate fi afişat cu sau fără format. O afişare cu format are forma : e:w:f în care
e reprezintă expresia a cărei valoare se afişează
pe w poziţii sau pe mai multe, dacă valoarea de afişat depăşeşte w poziţii
valoarea expresiei f se referă la numărul zecimalelor cu care se va scrie valoarea expresiei e de tip real, în reprezentare fără exponent.

Valoarea argumentelor se scrie pe linia curentă, fără spaţii între ele. În funcţie de tipul expresiei, formele admise ale argumentului pot fi cu sau fără format special.

Argumentul “e” poate fi de tip CHAR (caracter), STRING (şir de caractere), BOOLEAN (logic) sau INTEGER (Număr întreg). Formele posibile sînt : e sau e:w

Argumentul “e” poate fi şi de tip REAL. Formele posibile sînt : e sau e:w sau e:w:f.

Exemple de afişare date cu Write

Write('1234567890'); Afişează 1234567890
Write(1969:10); Afişează numărul 1969 începind cu coloana 10 spre coloana 7, pentru că numarul este aliniat la dreapta.
Write(9.752:7:2); Afişează 9.75 începind cu coloana 7 spre coloana 4. O coloană este ocupată de punctul zecimal, iar afişarea se face cu 2 zecimale. Numărul este aliniat la dreapta.
Write(9.999:7:2); Afişează 10.00 începind cu coloana 7 spre coloana 3. O coloană este ocupată de punctul zecimal, iar afişarea se face cu 2 zecimale. Se observă că numărul este rotunjit superior. Numărul este aliniat la dreapta.
Write(3.14:7); Afişează 3.1E+00 . Dacă nu se specifică numărul de zecimale pentru afişarea unui numar real, se afişează în format ştiinţific.

Procedura WriteLn are apelul cu aceiaşi formă cu a procedurii Write. Dacă este apelată fără parametri, are ca efect trecerea cursorului la începutul liniei următoare. Dacă există o listă de parametri, efectul este identic cu al procedurii Write, urmată de apelul procedurii WriteLn fără argumente.

Exemple de afişare date cu WriteLn

WriteLn; Afişează un rînd gol şi mută cursorul la începutul liniei următoare.
WriteLn('Vornicescu Silviu'); Afişează textul dintre apostroafe şi mută cursorul la începutul liniei următoare. Textul este aliniat la stînga.

Listingul programului Prg_0001

program inceput_Prg_0001;
var a,b : integer; {Se declară variabilele "a" şi "b" ca nr. întregi}
begin {Începutul programului}
WriteLn('Vornicescu Silviu'); {Afişează textul dintre apostroafe şi mută
cursorul la începutul liniei următoare}
WriteLn('Programator al firmei Delphin Software'); {Afişeaza textul dintre
apostroafe şi mută cursorul la inceputul liniei
următoare}
WriteLn; {Afişează un rînd gol şi mută cursorul la începutul
liniei următoare}
Write('1234567890'); {Afişează 1234567890}
WriteLn;Write(1969:10); {Trece cursorul pe rîndul următor şi apoi
afişează numărul 1969 începînd cu coloana 10
spre coloana 7, pentru că numărul este aliniat
la dreapta.}
WriteLn;Write(1969:9); {Trece cursorul pe rîndul următor şi apoi
afişează numărul 1969 începînd cu coloana 9
spre coloana 6, pentru că numărul este aliniat
la dreapta.}
WriteLn;Write(1969:8); {Trece cursorul pe rîndul următor şi apoi
afişează numărul 1969 începînd cu coloana 8
spre coloana 5, pentru că numărul este aliniat
la dreapta.}
WriteLn;Write(9.752:7:2); {Afişează 9.75 începînd cu coloana 7 spre coloana
4. O coloană este ocupată de punctul zecimal, iar
afişarea se face cu 2 zecimale. Numărul este
aliniat la dreapta.}
WriteLn;Write(9.999:7:2); {Afişează 10.00 începînd cu coloana 7 spre coloana
3. O coloană este ocupată de punctul zecimal, iar
afişarea se face cu 2 zecimale. Se observă că
numărul este rotunjit superior. Numărul este
aliniat la dreapta.}
WriteLn;Write(7.2569:7:3); {Afişează 7.257 începînd cu coloana 7 spre coloana
3. O coloană este ocupată de punctul zecimal, iar
afişarea se face cu 3 zecimale. Se observă ca
numărul este rotunjit superior. Numărul este
aliniat la dreapta.}
WriteLn;Write(3.14:7); {Afişează 3.1E+00 . Dacă nu se specifică numărul
de zecimale pentru afişarea unui numar real, se
afişează în format ştiinţific.}
a:=5; {Se atribuie valoarea 5, variabilei "a"}
WriteLn;WriteLn(a); {Se afişeazâ valoarea variabilei "a"}
WriteLn(a:2); {Se afişează valoarea variabilei "a" începînd cu
coloana 2}
b:=111; {Se atribuie valoarea 111, variabilei "b"}
WriteLn;WriteLn(a,b); {Se afişează valorile variabilelor "a" şi "b"
una dupa alta, de apare "5111"}
WriteLn;WriteLn('a = ',a); {Se afişează şirul de caractere "a = ",urmat de
valoarea variabilei "a"}
WriteLn;WriteLn('a = ',a,' ','b = ',b); {Se afişează două şiruri de caractere
şi valorile celor două variabile, despărţite
printr-un caracter "spaţiu"}
WriteLn;
end.

Citirea datelor

Citirea datelor se face începînd din poziţia curentă a cursorului şi lasă cursorul după ultimul caracter citit.

  • pag. 1
  • pag. 2
  • pag. 3
  • pag. 4
  • pag. 5
  • pag. 6
  • pag. 7
  • pag. 8
  • pag. 9
  • pag. 10

Nota explicativa
Referatele si lucrarile oferite de Referate.ro au scop educativ si orientativ pentru cercetare academica.

Iti recomandam ca referatele pe care le downloadezi de pe site sa le utilizezi doar ca sursa de inspiratie sau ca resurse educationale pentru conceperea unui referat nou, propriu si original.

Referat.ro te invata cum sa faci o lucrare de nota 10!
Filmele zilei
Linkuri utile
Programeaza-te online la salonul favorit Descarca gratuit aplicatiile pentru iOS si Android Filmulete haioase Filme, poante si cele mai tari faze Jocuri Cele mai tari jocuri de pe net Referate scoala Resurse, lucrari, referate materiale pentru lucrari de nota 10 Bacalaureat 2019 Vezi subiectele examenului de Bacalaureat din 2019 Evaluare Nationala 2019 Ultimele informatii despre evaluare nationala
Toate imaginile, textele sau alte materiale prezentate pe site sunt proprietatea referat.ro fiind interzisa reproducerea integrala sau partiala a continutului acestui site pe alte siteuri sau in orice alta forma fara acordul scris al referat.ro. Va rugam sa consultati Termenii si conditiile de utilizare a site-ului. Informati-va despre Politica de confidentialitate. Daca aveti intrebari sau sugestii care pot ajuta la dezvoltarea site-ului va rugam sa ne scrieti la adresa webmaster@referat.ro.
Confidentialitatea ta este importanta pentru noi

Referat.ro utilizeaza fisiere de tip cookie pentru a personaliza si imbunatati experienta ta pe Website-ul nostru. Te informam ca ne-am actualizat politica de confidentialitate pentru a integra cele mai recente modificari privind protectia persoanelor fizice in ceea ce priveste prelucrarea datelor cu caracter personal. Inainte de a continua navigarea pe Website-ul nostru te rugam sa aloci timpul necesar pentru a citi si intelege continutul Politicii de Cookie. Prin continuarea navigarii pe Website-ul nostru confirmi acceptarea utilizarii fisierelor de tip cookie conform Politicii de Cookie. Nu uita totusi ca poti modifica in orice moment setarile acestor fisiere cookie urmarind instructiunile din Politica de Cookie.


Politica de Cookie
Am inteles