programeinfo.MyForum.ro

cosmyn · Administrator Data inscrierii: 15/Ian/2009 Mesaje: 2

1)Testu de palindromitate

#include <iostream>
using namespace std;

int main(){
long int n,inv,copie;
cout<<"n=";
cin>>n;
if(n<0){n=-n;}
inv=0;
copie=n;
do{
inv=inv*10+copie%10;
copie=copie/10;}
while(copie>0);
cout<<inv<<" ";
if(inv==n){cout<<"Este!";}
else{cout<<"Nu este.";}}

Anuta Cosmin Andrei - 9a

2)Cel mai mic cu cifrele sale

#include<iostream>
#include<math.h>
using namespace std;
int n,m,w;
int cifra;
int last=0;
int nrc;
int final;
int power;
int main(){
cout<<"n=";
cin>>n;
m=n;
w=n;
int min=10;
while(n!=0){
while(m!=0){
cifra = m%10;
m=m/10;
if((min>cifra)&&(cifra>last)){
min = cifra;
nrc=1;
}else{
if(min==cifra){
nrc++;
}
}
}
if(min==10){
break;
}

while(nrc!=0){
final = final*10+min;
nrc=nrc-1;
}

m=w;
last = min;
min = 10;
n=n/10;
}
cout<<endl<<final;
return 0;
}
Anuta Cosmin Andrei - 9a

3)Cel mai mic cu cifrele sale II

#include <iostream>
using namespace std;
long int a,i,nr_0=0,cifra,aux, cifra1=0,x=0,j,cate;
int main()
{cout<<"a= " ;
cin>>a;
if(a<0)
{a=-a;}
aux=a;
while(aux!=0)
{cifra=aux%10;
if(cifra==0) nr_0=nr_0+1;
aux=aux/10;}
for(i=1;i<=9;i++)
{aux=a;
cate=0;
while(aux>0)
{cifra=aux%10;
if(cifra==i)cate=cate+1;
aux=aux/10;}
if(cate!=0)
{cifra=i;
if(cifra1==0)
{x=x*10+cifra;
for(j=1;j<=nr_0;j++)x=x*10;
for(j=1;j<cate;j++)x=x*10+cifra;
cifra1=1;}
else for(j=1;j<=cate;j++)x=x*10+cifra;}}
cout<<x<<endl;}

Anuta Cosmin Andrei - 9a

4)Testul de prietenie dintre numere

#include <iostream>
using namespace std;
int main()
{
int x,y,divx,divy,div;
cout<<"x=";cin>>x;
cout<<"y=";cin>>y;
divx=0;
divy=0;
div=1;
while(div<=x/2)
{
if(x%div==0)
divx=divx+div;
div++;
}
div=1;
while(div<=y/2)
{
if(y%div==0)
divy=divy+div;
div++;
}
if(x==divy && y==divx)
cout<<" nr sunt femei ";
else
cout<<" nr NU sunt prietene ";
}

Anuta Cosmin Andrei - 9a

5)Testul de primalitate

#include <iostream>
#include <math>
using namespace std;
int main()
{
int n,m,p;
cout<<"n="; cin>>n;
for(m=2;m<=sqrt(n) && n%m;m++);
if(m>sqrt(n))
cout<<"Numarul este prim ";
else cout<<"Numarul nu este prim ";
}

Anuta Cosmin Andrei - 9a

6)Numere perfecte

#include<iostream>
#include<math>
using namespace std;
int x;
int main()
{
cout<<"x="; cin>>x;
int i,s;
s=1;
for(i=2;i<=x/2;i++)
{
if(x%i==0)
s=s+i;
}
if(x==s)
{
cout<<"Este numar perfect ";}
else {
cout<<"nu este numar perfect ";}
}

Anuta Cosmin Andrei - 9a

7)Cel mai mare divizor comun

#include<iostream.h>
#include<conio.h>

cmmdc(int n1, int n2){
int i = n1, cmmdc;
if(n1 > n2)i=n2;
while(i>=1){
if (n1 % i == 0 && n2 % i == 0){
cmmdc = i;
goto end;}
i=i-1;}
end:
return cmmdc;
}

main(){
int n, v_cmmdc, numar, i=2;
cout<<"Introuceti numarul de valori care vor fi citite: ";cin>>n;
cout<<"Introduceti numarul #1 ";cin>>v_cmmdc;
while(i<=n){
i=i+1;
cout<<"Introduceti numarul #"<<(i-1)<<" ";cin>>numar;
v_cmmdc = cmmdc(v_cmmdc, numar);
}
cout<<"Cel mai mare divizor al numerelor introduse este "<<v_cmmdc;
getch();
}

Anuta Cosmin Andrei - 9a

8)Numere Fibonaci

#include<iostream>
using namespace std;
int main()
{
long n;
int i,a,b,f;
cout<<"n=";cin>>n;
a=1;
b=1;
if(n==1) cout<<"Numarul "<<n<<" apartine sirului ";
else
{
do
{
f=a+b;
a=b;
b=f;
}
while(f<n);
if (f==n) cout<<"Numarul "<<n<<" apartine sirului ";
else cout<<"Numarul "<<n<<" nu apartine sirului ";
}
}

Anuta Cosmin Andrei - 9a

9)Numarul de rang fibonaci

#include<iostream.h>
#include<conio.h>
void main(void)
{
clrscr();
long n;
int i,a,b,f;
cout<<"n=";cin>>n;
a=1;
b=1;
if(n==1||n==2) f=1;
else
{
for(i=3;i<=n;i++)
{
f=a+b;
a=b;
b=f;
}
}
cout<<"Numarul de rang "<<n<<" din sirul lui Fibonaci este "<<f;
getch();
}

Anuta Cosmin Andrei - 9a

tabernaculum · Trimis: 22/07/2012 16:00 Titlul subiectului:

Numerous people will be benefited from your writing. Cheers!

misanchik · Trimis: 30/07/2012 20:52 Titlul subiectului:

We have the way the country is not always so easy to find something interesting on the Internet!

misanchik · Trimis: 01/08/2012 09:47 Titlul subiectului:

Thanks for the inihsgt. It brings light into the dark!

misanchik · Trimis: 05/08/2012 16:54 Titlul subiectului:

This information is unbelievable! I really cannot believe it is true!

misanchik · Trimis: 07/08/2012 06:51 Titlul subiectului:

This is awesome!

misanchik · Trimis: 08/08/2012 18:08 Titlul subiectului:

This post is for real smart people! Thanks.

tcapital · Trimis: 02/09/2012 01:54 Titlul subiectului:

We have the way the country is not always so easy to find something interesting on the Internet!

tcapital · Trimis: 03/09/2012 07:53 Titlul subiectului:

How cool is that!

tcapital · Trimis: 04/09/2012 11:02 Titlul subiectului:

I am glad to learn something new! In general, a positive attitude to all the people who do not stand still, and learn something new.

catalinrusu25 · Junior Data inscrierii: 27/Apr/2020 Mesaje: 4

Thanks