clasa VIII, Tema: Tipuri simple de date. Rezolvarea problemelor. Recapitulare. 04.05-08.05

Avem 4 tipuri predefinite de date:
Numere intregi-notatia: (Integer, Byte,Longint,Word, Shortint)
Numere reale-notatia: Real
Caractere-notatia: Char
Logice-notatia: Boolean(valorile True, False)

Exemple:
1. Este dat un numar intreg, format din 6 cifre. Calculati suma  dintre cifra a 2 si a 3.
Uses CRT; Var N:Longint; S,D,T:Integer;
Begin ClrScr; Write('Introdu un numar:'); ReadLn(N);
D:=N Mod 100000 Div 10; T:=N Mod 10000 Div 10;
S;=D+T;
WriteLn('Suma=',S); ReadKey End.
2. Sunt date 2 cercuri concentrice cu razele cercul mare R si mic Q. Calculati aria inelului format de aceste cercuri.
Uses CRT; Var R,Q,S:Real;
Begin ClrScr; Write('Introdu razele R, Q:'); ReadLn(R,Q);
S;=Pi*(Sqr(R)-Sqr(Q));
WriteLn('Aria=',S:0:2); ReadKey End.
3. De la tastatura se citeste un caracter. De afisat la ecran true, daca e operatie aritmetica si false-in caz contrar.
Uses CRT; Var C:Char; R:Boolean;
Begin ClrScr; Write('Introdu un caracter:'); ReadLn(C);
R:=C in ['+','-','*','/'];
WriteLn(R); ReadKey End.
4. O navă parcurge distanţa D (în km) dintre două staţii orbitale în A săptămîni şi B zile. Să se determine viteza navei, exprimată în m/sec.

Program Nava_cosmica;   Uses CRT;

Var D,A,B,T:Longint; V:Real;

Begin

  ClrScr;

Write(’Introdu distanta (km):'); Read(D);

Write(’Introdu timpul (saptamini, zile):'); Read(A,B);

  T:=(A*7+B)*24*3600; D:=D*1000;   

  V:=D/T;
WriteLn(’Viteza=’,V:10:2,’m/sec’);

ReadKey End.

Pentru lectia urmatoare ne pregatim de evaluare!!!