Ajutati urgent cu Pascal DAU COROANA
1)Calculaţi necesarul de memorie pentru variabilele din următoarele declaraţii:
type Elev = record
Nume : string[25];
Prenume : string[15];
NotaMedie : real
end;
ListaElevi = array[1..n] of Elev;
var A, B, C : ListaElevi;
2)Estimaţi numărul operaţiilor elementare Q(n) din procedurile ce urmează:
procedure N3(n : integer);
var i, j, k, m : integer;
r : real;
begin
for i:=1 to n do
for j:=1 to n do
for k:=1 to n do
for m:=1 to n do
r:=1.0;
end;
3)Se consideră următorul program:
Program P147;
{ Dimensiunile stivei }
var n : integer;
function S(n:integer):real;
begin
if n=0 then S:=0
else S:=S(n-1)+n;
end; { S }
begin
write(’n=’); readln(n);
writeln(’s=’, S(n));
readln;
end.
Estimaţi necesarul de memorie al programului P147. Determinaţi valoarea maximală a lui n
pentru care programul P147 derulează fără erori.