Orar semigroup #2

Orar semigroup #2

14 ianuarie - Fisa de lucru 4 - FULL CORECT


Se citeste de la tastatura un vector cu n numere intregi.
Sa se realizeze subprograme pentru realizarea urmatoarelor cerinte:
1)      Afisarea vectorului
2)      Calcularea sumei valorilor vectorului
3)      Afisarea numarului de valori prime din vector
4)      Afisarea numarului de elemente palindroame din vector (1234321 este palindrom)
5)      Afisarea urmatorului triunghi cu valorile din tablou:
a[0] a[1] a[2]........ .............a[n-1] 
            a[0] a[1] a[2]........ ......a[n-2]
            a[0] a[1] a[2]........ ...a[n-3] 
            .....
a[0] a[1]
a[0]
#include<iostream>
#include<fstream>
#include<math.h>
using namespace std;
void afisare(int n, int a[100])
{int i;
for(i=0;i<n;i++)
    cout<<a[i]<<" ";
}

int suma(int n, int a[100])
{int s=0,i;
for(i=0;i<n;i++)
    s=s+a[i];
return s;
}

int prime(int n, int a[100])
{int d,ok=1,s=0,i;
for(i=0;i<n;i++)
{    ok=1;
    for(d=2;d<=a[i]/2;d++)
        if(a[i]%d==0)
            ok=0;
    if(a[i]==1)ok=0;
    if(a[i]==2 || a[i]==3)ok=1;
    if(ok==1)s++;
}
return s;
}

int palindrom(int n, int a[100])
{int t,r,d,ok=1,s=0,i;
for(i=0;i<n;i++)
{    ok=1;r=0;
    t=a[i];
    while(t)
    {r=r*10+t%10;
    t=t/10;}
    if(a[i]!=r)
        ok=0;
    if(ok==1)
        s++;
}
return s;
}

void triunghi(int n, int a[100])
{int i,j;
j=n;
while(j>0)
{for(i=0;i<j;i++)
    cout<<a[i]<<" ";
cout<<endl;
j--;
}
}

int main()
{int i,n,a[100];
cout<<"Numarul de elemente ale vectorului este:"<<endl;
cin>>n;
cout<<"Cititi elementele vectorului"<<endl;
for(i=0;i<n;i++)
    cin>>a[i];
cout<<endl<<"<<Afisare>>"<<endl;
afisare(n,a);
cout<<endl<<endl<<"<<Suma valorilor vectorului>>"<<endl;
cout<<suma(n,a)<<endl<<endl;
cout<<"<<Numarul de elemente prime>>"<<endl;
cout<<prime(n,a)<<endl<<endl;
cout<<"<<Numarul de elemente palindrom>>"<<endl;
cout<<palindrom(n,a)<<endl<<endl;
cout<<"<<TRIUNGHIUL BERMUDELOR>>"<<endl;
triunghi(n,a);
}

luni, 24 ianuarie 2011 by DlMuresan
Categories: , , , , , | 1 comment

One Comment

  1. http://www.filehost.ro/1710599/New_Text_Document_txt/

Leave a Reply