clasa VIII, 23.03-27.03, Tema: Initiere in limbajul Pascal.

                                                                 Descarcare Turbo Pascal

Un program în limbajul PASCAL este alcătuit din următoarele componente:
• antetul, în care se specifi că denumirea programului;
 • partea declarativă, în care se descriu variabilele, funcţiile, subalgoritmii etc. folosiţi în program;
• partea executabilă, care include instrucţiunile ce urmează să fi e executate într-o anumită ordine de calculator
 antetul: Program  <Nume_program>;
<Nume_program> poate contine litere, cifre cu lungimea nu mai mare de 63 caractere, 
   Este opţional.
 partea declarativă:
Var - pentru descrierea variabilelor, mărimi care îşi pot modifica valoarea în procesul execuţiei programului.
partea executabilă: conţine instrucţiuni:
1) Write-afişarea informaţiei la ecran.
2) Read-citirea datelor.
3) := -atribuirea valorilor variabilelor.

Exemplu 1. Calculaţi suma a 2 numere întregi.
Uses CRT;
Var A,B,S:Integer;
Begin
    ClrScr;
Write('Introdu 2 numere:'); Read(A,B);
S:=A+B;
Write('Suma=',S);
ReadKey End.
Uses CRT;
Var A,B,S:Integer;
Begin
    ClrScr;
Write('Introdu 2 numere:'); Read(A,B);
S:=A+B;
Write('Suma=',S);
ReadKey End.

Program Suma; - programul a fost numit Suma.
Uses CRT; -permisul la biblioteca CRT care contine comenzi de lucru cu ecranul si tastatura.
Var A,B,S:Integer; -declarareaa variabilelor A,B -numerele date, S-suma calculata.
Begin -începutul blocului de acţiuni.
    ClrScr;+ curăţirea ecranului.
Write('Introdu 2 numere:'); -scrierea unui mesaj la ecran.
Read(A,B); -citirea valorilor pentru A şi B de la tastatură.
S:=A+B;  - calcularea sumei şi atribuirea reyultatului variabilei S
Write('Suma=',S); -afişarea rezultatului
ReadKey 
End. -sfărşitul blocului de acţiuni.

Exemplu 2. Calculaţi perimetrul şi aria unui pătrat.
Uses CRT;
Var A,P,S:Integer;
Begin
    ClrScr;
Write('Introdu lungimea laturii:'); Read(A);
P:=4*A;
S:=A*A;
Write('Perimetrul=',P,' Aria=',S);
ReadKey End.

Exemplu 3. Calculaţi media aritmetica a 3 numere intregi.
Uses CRT;
Var A,B,C:Integer; M:Real;
Begin
    ClrScr;
Write('Introdu 3 numere:'); Read(A,B,C);
M:=(A+B+C)/3;
Write('Media=',M:0:2);
ReadKey End.

Write('Media=',M:0:2);  Pentru numerele reale indicam numarul de cifre dupa virgula (2) ce trebuie afisate

Sarcini pentru rezolvare:
1. Scrieţi un program care calculează  produsul a 3 numere întregi.
2. Scrieţi un program care calculează  aria şi perimetrul uni dreptunghi.
3. Scrieţi un program care calculează  media aritmetica a 5 numere întregi.