Con A = 11, B = 121, C = 'B' e Ord('A')=65

Sqr(A)+Sqrt(B)

Sqr(11)+Sqrt(121) ---> 121+11 --> 132

(B Div A) >= (B Mod A)

(121 Div 11) >= (121 Mod 11) ---> 11 >= 0 ---> True

(Ord(C) > Ord('A')) OR (‘A’ <= Chr(B))

(Ord('B') > Ord('A')) OR (‘A’ <= Chr(121)) ---> True > OR True ---> True

Scrivi in Pascal le formule...

XMENO:=(-b-Sqrt(Sqr(b)-4*a*c))/(2*a);
V:=4*Pi*R*R*R/3;

Calcolare la posizione di un corpo che si muove con moto rettilineo uniforme

function Posizione(s0, v0, a, t: Real): Real;
begin
   Posizione:=s0+v0*t+1/2*a*Sqr(t);
end;

Contare il numero di lettere maiuscole e di lettere minuscole presenti in una sequenza di caratteri inserita da tastiera e terminata con ‘*’

procedure ContaLettere;
Var Minuscole, Maiuscole: Integer;
begin
   Minuscole:=0;
   Maiuscole:=0;
   repeat 
      CH:=ReadKey;
      if(CH >= 'a') And (CH <= 'z') then
         Inc(Minuscole)
      else if(CH >= 'A') And (CH <= 'Z') then
         Inc(Maiuscole);
   until(CH = '*');
   write('Minuscole: ', Minuscole, ', Maiuscole: ', Maiuscole);
end;

oppure

procedure ContaLettere(Var Minuscole, Maiuscole: Integer);
begin
   Minuscole:=0;
   Maiuscole:=0;
   repeat 
      CH:=ReadKey;
      if(CH >= 'a') And (CH <= 'z') then
         Inc(Minuscole)
      else if(CH >= 'A') And (CH <= 'Z') then
         Inc(Maiuscole);
   until(CH = '*');
end;

Dato un numero intero < 1000 individuare le sue tre cifre (usando Div e Mod...)

procedure TreCifre(N: Integer; Var Centinaia, Decine, Unita: Integer);
begin
   Centinaia:=N Div 100;
   Decine:=(N Mod 100) Div 10;
   Unita:=N Mod 10;
end;

Calcolare la somma dei quadrati dei primi N numeri naturali

function SommaQuadrati(N: Longint): LongInt;
Var i, Somma: LongInt;
begin
   Somma:=0;
   for i:=1 to N do
      Somma:=Somma+Sqr(i);
   SommaQuadrati:=Somma;
end;

- ApPuNtIdIuNiNfOrMaTiCo