clasa VIII, 28.04-30.04. Tema: Tipuri simple de date. Rezolvarea problemelor.

Problema 1. Scrieti un program care calculeaza aria unui inel forma de 2 cercuri concentrice cu razele Q-cercul mic, R-cercul mare.

Uses CRT;
Var Q,R,S:Real;
Begin ClrScr; Write('introdu razele:'); Read(Q,R);
     S:=Pi*(Sqr(R)-Sqr(Q));
Write('Aria=',S:0:2); ReadKey End.

Problema 2. Scrieti un program care calculeaza suma cuburilor dintre ultima si penultima cifra a aunui numar natural.
Uses CRT;
Var N,U,P,S:Integer;
Begin ClrScr; Write('introdu numarul:'); Read(N);
U:=N Mod 10; P:=N Mod 100 Div 10;
     S:=U*Sqr(U)+P*Sqr(P);
Write('Suma=',S); ReadKey End.

Problema 3. Scrieti un program care afiseaza la ecran valoarea true, daca numerele A,B,C-intregi  sunt ordonate strict crescator  si false-in caz contrar.
Uses CRT;
Var A,B,C:Integer; R:Boolean;
Begin ClrScr; Write('introdu 3 numere:'); Read(A,B,C);
     R:=(A<B) And (B<C);
Write(R); ReadKey End.

Problema 4. Scrieti un program care afiseaza la ecran valoarea true, daca  numerele A,B,C-reale sunt ordonate descrescator  si false-in caz contrar.
Uses CRT;
Var A,B,C:Integer; R:Boolean;
Begin ClrScr; Write('introdu 3 numere:'); Read(A,B,C);
     R:=(A>=B) And (B>=C);
Write(R); ReadKey End.

Problema 5. Scrieti un program care afiseaza la ecran valoarea true, daca  caracterul citit este operatie aritmetica si false-in caz contrar.
Uses CRT;
Var A:Char; R:Boolean;
Begin ClrScr; Write('introdu un caracter:'); ReadLn(A);
     R:=A in ['+','-','*','/'];
Write(R); ReadKey End.

Sarcini pentru realizare:
1. Scrieti un program care calculeaza suprafata unui poligon regulat cu latura A fara suprafata cercului inscris in poligon cu raza R.
2. Scrieti un program care calculeaza produsul dintre ultima si penultima cifra a unui numar natural.
3. Scrieti un program care  afiseaza la ecran valoarea true, daca numerele reale A,B,C sunt ordonate strict descrescator si false-in caz contrar.
4. Scrieti un program care afiseaza la ecran valoarea true daca caracterul citit de la tastatura este litera mica si false-in caz contrar.
5. Un melc se plimbă printr-un parc pe vreme umedă, fiind cunoscută viteza sa, exprimată în km/săptămînă. Cunoscînd lungimea totală a aleilor parcului exprimată în metri, să se calculeze de cîte ore are nevoie melcul pentru a străbate întregul parc.
6. Un avion a decolat la data D, ora O, min M, sec S. În  zbor s-a aflat Q secunde. Determinaţi timpul aterizării.   

Problemele rezolvate le transmiteti la adresa: toloaca.svetlana@gmail.com pina la data de 30.04.2020.

Succese!!!