Programe rezolvate în Pascal

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