Question

1.Se dă un șir a de n numere întregi ordonat crescător și o valoare căutată. Să se determine dacă elementul căutat v este în șir și poziția acestuia în șir.
Pentru n=5 și a=2, 3, 5, 7, 11 să se scrie dacă elementul căutat v=7 este în șir și poziția acestuia în șir prin rularea programului Pascal următor.

RĂSPUNS:
a.Valoarea 7 nu se găsește in sir b.Se găsește pe pozitia 4 c.Se găsește pe pozitia 5 d.Se găsește pe pozitia 2

program pr1;
uses crt;
var a:array[1..20] of integer;
n,v,m,i,j,poz:integer;
gasit:boolean;
begin
write('Dimensiunea sirului ordonat crescator');
readln(n);
write('Valoarea cautata');
readln(v);
write('Sirul');
for i:=1 to n do
read(a[i]);
i:=1;
j:=n;
gasit:=false;
poz:=0;
while (i<=j) and (gasit=false) do
begin
m:=(i+j) div 2;
if a[m]=v then
begin
gasit:=true;
poz:=m
end
else
if a[m]>v then
j:=m-1
else
i:=m+1
end;
if gasit=false then
writeln('Valoarea ',v,' nu se găsește in sir')
else
writeln('Se găsește pe pozitia ',poz);
readln;
end.
2. Se dă un n număr întreg. Să se determine dacă numărul n este palindrom. (Un număr este palindrom dacă citit de la stânga la dreapta aceata are aceeiași valoare).
Pentru n=1223334444333221 prin rularea programului Pascal următor să se determine dacă numărul este palindrom.

RĂSPUNS:
a.Numarul este palindrom b. Numarul nu este palindrom

program pr2;
uses crt;
var n,ni,aux:integer;
begin
write('n=');
readln(n);
ni:=0;
aux:=n;
while n<>0 do
begin
ni:=ni*10+n mod 10;
n:=n div 10
end;
n:=aux;
if n=ni then
write('Numarul este palindrom')
else
write('Numarul nu este palindrom');
readln;
end.
3. Se dă o matrice a cu numere întregi de n linii și m coloane. Să se determine elementul minim, min și elementul maxim, max.
Pentru n= și a=3 și m=4 elementele matricei a sunt următoarele:
a=
Să se scrie care este elementul minin și elementul maxim din matrice prin rularea programului Pascal următor.

RĂSPUNS:
a.Minimul matricei este 2 b.Minimul matricei este 1
Maximul matricei este 11 Maximul matricei este 11
c.Minimul matricei este 1 d.Minimul matricei este 1
Maximul matricei este 10 Maximul matricei este 8

program pr3;
uses crt;
var a:array[1..10,1..10] of integer;
n,m,min,max,i,j:integer;
begin
write('n=');
readln(n);
write('m=');
readln(m);
writeln('Introduceti matricea');
for i:=1 to n do
for j:=1 to m do
read(a[i,j]);
min:=a[1,1];
for i:=1 to n do
for j:=1 to m do
if a[i,j] min:=a[i,j];
max:=a[1,1];
for i:=1 to n do
for j:=1 to m do
if a[i,j]>max then
max:=a[i,j];
writeln('Minimul matricei este ',min);
writeln('Maximul matricei este ',max);
readln;
readln;
end.


















4. Se dă o matrice a cu numere întregi de n linii și n coloane. Să se determine suma s pentru elementele de pe diagonala principală, produsul p pentru elementele de pe diagonala principală și suma elementelor de pe margine m.
Să se scrie care sunt valorile pentru suma s pentru elementele de pe diagonala principală, produsul p pentru elementele de pe diagonala principală și suma elementelor de pe margine m matrice prin rularea programului Pascal următor.

a=
RĂSPUNS:
a. s=15 p=45 m=40
b. s=16 p=45 m=45
c. s=15 p=45 m=45
d. s=16 p=40 m=45

program pr4;
uses crt;
var a:array[1..10,1..10] of integer;
n,s,p,m,s1, s2 i,j:integer;
begin
write('n=');
readln(n);
writeln('Matricea');
for i:=1 to n do
for j:=1 to n do
read(a[i,j]);
s:=0;
for i:=1 to n do
s:=s+a[i,i];
writeln('Suma elementelor de pe diagonala principala este ',s);
p:=1;
for i:=1 to n do
p:=p*a[i,n-i+1];
writeln('Produsul elementelor de pe diagonala secundara este ',p);
s1:=0;
s2:=0;
for i:=1 to n do
s1:=s1+a[1,i]+a[n,i];
for i:=2 to n-1 do
s2:=s2+a[i,1]+a[i,n];
writeln('Suma m a elementelor de pe margine este ', s1+s2);
readln;
readln;
end.

Answer 1

Răspuns:

Poz + begin =11+7

s1 +s2 =end