Probelma 1. Creaţi un program care afişează următoarea funcţie.
Program P2.1;
uses crt;
var i,n,s : integer;
f : boolean;
begin
clrscr;
repeat
write(‘Introduceţi un număr natural n=’);
readln(n);
until n>2;
if n mod 2=0 then f:=false else f:=true;
write(‘s=’);
for i:=1 to n-2 do
if(not f) and (i mod 2 =0)then write(‘*’,i)
else
if f and (i mod 2<>0)then write(‘*’,i);
writeln(‘*’,n);
readkey;
end.
Se dă un număr natural n. Verificaţi daca acest număr este prim sau nu.
Program P2.2;
uses crt;
var i,n,f : integer;
begin
clrscr;
repeat
write(‘Introduceţi un număr natural n=’);
readln(n);
until n>2;
f:=0;
for i:=2 to n div 2 do
if n mod i=0 then f:=1;
if f=0 then
writeln(‘Numărul’,n:6,’ este prim’)
else
writeln(‘Numărul’,n:6,’ nu este prim’);
readkey;
end.
Este dat intervalul numerelor naturale de la n pina la m. Determinati toate numerele naturale din acest interval.
Program P2.3;
uses crt;
var i,n,f,j,r,m : integer;
begin
clrscr;
repeat
write(‘Introduceţi limita de jos a intervalului n=’);
read(n);
write(‘Introduceţi limita de sus a intervalului m=’);
readln(m);
until (n>0) and(m>0) and(n<m);
writeln(‘Introduceţi intervalul de la’,n:6,’pina la’,m:6′);
r:=0;
for j:=n to m do
begin
f:=0;
for i:=2 to j div 2 do
if j mod i=0 then f:=1;
if f=0 then
begin r:=1;
writeln(‘Numărul’,j:6,’ este prim’)
end;
end;
if r=0 then writeln(‘Numărul nu este prim’);
readkey;
end.
Se da un număr natural n. Determinaţi toate numerele prime, inclusiv n.
Program P2.4;
uses crt;
var i,n,f,j,r,m : integer;
begin
clrscr;
repeat
write(‘Introduceţi un număr natural n=’);
readln(n);
until n>0;
writeln(‘Introduceţi intervalul de la 1 pînă la’,n:6′);
r:=0;
for j:=1 to n do
begin
f:=0;
for i:=2 to j div 2 do
if j mod i=0 then f:=1;
if f=0 then
begin r:=1;
writeln(‘Numarul’,j:6,’ este prim’)
end;
end;
if r=0 then writeln(‘Numărul nu este prim’);
readkey;
end.
Introduceţi doua numere naturale m si n. Determinaţi împărţitorul lor comun NOD.
Program p2_5;
uses crt;
var i,m,n,k,nod:integer;
begin
clrscr;
repeat
write(‘Introduceţi numărul natural n=’);
readln(n);
write(‘Introduceţi numărul natural m=’);
readln(m);
until (n>0) and (m>0);
if n>m then k:=m else k:=n;
for i:=1 to k do
if (n mod i=0) and (m mod i=0) then nod:=i;
writeln(‘Împărţitorul numărului comun ‘,n, ‘şi’, m,
‘nod=’,nod);
readkey;
end.
Tema 3:
Sunt date următoarele n numerele naturale. Găsiţi suma tuturor numerelor naturale negative.
Program P3.1;
uses crt;
var n,x,sum,i : integer;
begin
clrscr;
repeat
write(‘Introduceţi lungimea următoarelor numere n=’);
readln(n);
until n>0;
sum:=0;
for i:=1 to n do
begin
writeln(‘introdu x=’);
readln(x);
if x<0 then sum:=sum+x;
end;
if sum=0 then writeln(‘Numărul negativ nu exisţă’)
else
writeln(‘Suma numerelor negative este sum=’,sum);
end.
Sunt date următoarele n numere naturale. Găsiţi numărul maximal.
Program P3.2;
uses crt;
var n,x,max,i : integer;
begin
clrscr;
repeat
write(‘Introduceţi lungimea următoarelor numere n=’);
readln(n);
until n>0;
writeln(‘introdu x=’);
readln(x);
max:=x;
for i:=2 to n do
begin
writeln(‘introdu x=’);
readln(x);
if (x>max) then max:=x;
end;
writeln(‘Numărul maximal este max=’,max);
end.
Download probleme rezolvate Pascal
