clasa VIII, 23.03-27.03, Tema: Initiere in limbajul Pascal. Operatii cu numere intregi si reale.

Tipuri de date întregi:

Integer  -32768..32767
Byte   0..255
ShortInt -128..127
Word 0..65535
Longint 10 cifre, pozitive, negative

Operatii: +,-,* (rezultatele intregi), /-rezultatul real   div-partea intreaga de la impartire, mod-restul de la impartire

Tipuri de date real

Real
la reprezentare , (virgula) se scrie . (punct)
Operatii: +,-,*,/.
functii: 
sqr(x)  -ridicarea la puterea a 2
sqrt(x) -radical

Rezolvarea problemelor:
1. Determinati cifra din pozitia unitatilor.
Program Cifra;
Uses CRT;
Var N,C:Integer;
Begin ClrScr;
     Write('Introdu numarul:'); Read(N); 
     C:=N Mod 10;
     Write('Cifra unitatilor:',C);
ReadKey End.
2. Determinati cifra din pozitia zecilor
Program Cifra;
Uses CRT;
Var N,C:Integer;
Begin ClrScr;
     Write('Introdu numarul:'); Read(N); 
     C:=N Mod 100 Div 10;
     Write('Cifra zecilor:',C);
ReadKey End.
3. Determinati perimetrul si aria unui triunghi cu laturile date.
Program Trio;
Uses CRT;
Var A,B,C,P,S:Real;
Begin ClrScr;
     Write('Introdu laturile:'); Read(A,B,C); 
     P:=A+B+C; S:=Sqrt(P/2*(P/2-A)*(P/2-B)*(P/2-C)); {f-la lui Heron }
     Write('Perimetrul:',P:0:2,' Aria=',S:0:2);
ReadKey End.
4. Calculati distanta dintre 2 puncte date prin coordonatele sale.
Program Punct;
Uses CRT;
Var  X1,Y1,X2,Y2,D:Real;
Begin ClrScr;
     Write('Introdu coordonatele P1:'); Read(X1,Y1); 
     Write('Introdu coordonatele P2:'); Read(X2,Y2); 
     D:=Sqrt(Sqr(X1-X2)+Sqr(Y1-Y2));
     Write('Distanta:',D:0:2);
ReadKey End.

Sarcini pentru rezolvare:
1. Scrieţi un program care calculează  suma dintre ultima si penultima cifra a unui numar natural.
2. Scrieţi un program care calculează  ipotenuza unui triunghi dreptunghic cunoscind catetele.
3. Scrieţi un program care calculează  perimetrul si aria unui triunghi echilateral.