Question

Ajutati.ma vă rog....dau 100 puncte, mulțumesc și cel mai bun până mâine dimineață

Answer 1

1 a) a=12,b=-4 atunci 12>-4 a>b deci mergem pe ramura then x=1
b) a<b este fals, deci mergem pe ramura else: x=a-b=12-(-4)=12+4=16
c) p este adevarat, atunci mergem pe ramura then x=abs(b)=abs(-4) abs este modului unui numar, atunci x=4
d) daca nu este adevarat, atunci mergem pe ramura de else deci x=1
e) a<b este fals, deci toata fraza a<b si p va fi fals, mergem pe ramura de else x=1
f) a>b e adevarata, p e adevarata, atunci operatia sau este adevarata, mergem pe ramura then: x=-6
2) nici un raspuns nu e corect.
in cadrul structurii case..of trebuie sa ai ramuri cu elemente distincte
aici ai 2 ramuri 1..7 deci toate elementele de la 1 la 7
0,6 deci 2 elemente 0 si 6. Elementul 6 apare pe ambele ramuri, deci programul nu va rula
3) Primul for este corect
Al doilea for este incorect, pentru ca x este un numar real si nu poate merge doar prin cifrele intregi de la 1 la n
Al treilea for este incorect, pentru ca prin comanda readln(i) citesti o valaore de la utilizator, in cadrul forului indicele nu are voie sa isi modifice valoarea
Al patrulea for este corect
Al cincilea for este incorect: impartirea unui nr intreg la orice valoare produce un nr real(cu virgula) deci nu se mai poate face iteratia pe numere intregi

4)
  while i<=15 do
  begin
  s:=s+i;
  i:=i+2;
  end;

  for i:=1 to 7 do
  begin
  s:=s+2*i
  end;

5) Secventa afisata este:
6
4
1
-3
-8
6) Ambele programe P1 si P2 calculeaza nr de cifre dintr-un numar. Diferenta dintre ele este faptul ca P1 nu ia in considerare numarul 0, deci este valabil doar pentru numere nenule, in timp ce P2 ia in considerare si valoarea 0. Diferenta este data de faptul ca P1 are structura repetitiva cu testare initiala: while n>0 do... pe cand cea de-a doua incepe mai intai cu executarea secventei si apoi cu testarea numarului.

Avem asadar
       16    0
P1    2    0
P2    2    1
P3 are acelasi comportament cu P1, pentru ca trateaza in mod special cazul n=0 prin acea structura decizionala if
7)
Program A2;

begin
var c:char;
var    i,k:integer;
c:='a';
for i:=1 to 26 do
begin
 for k:=1 to i do
 write(c);
 
 inc(c);
 writeln;
end;

end.