Cine poate sa ma ajute sa convertesc un progam din c++ in pascal? Va rog
Răspunsuri la întrebare
Răspuns de
0
Ce program ai de convertit?
{
freopen("bitona.in","r",stdin);
freopen("bitona.out","w",stdout);
ios_base::sync_with_stdio(false);cin.tie(0);cerr.tie(0);cout.tie(0);
cin>>n;
for(i=1;i<=n;i++)
{
cin>>x;
if(i==1)f=x;
if(i==n)l=x;
if(i>1 && x==y)rc("NU");
if(i>1 && x>y)
{
if(v==-1)nr++;
v=1;
}
else if(i>1 && x {
if(v==1)nr++;
v=-1;
}
y=x;
}
nr++;
if(f==l || nr==1 || nr>3)rc("NU");
if(nr==2)rc("DA");
if(nr==3)
{
if(v==-1 && l>f)rc("DA");
if(v==1 && l }
cout<<"NU"< return 0;
}
freopen("bitona.in","r",stdin);
freopen("bitona.out","w",stdout);
ios_base::sync_with_stdio(false);cin.tie(0);cerr.tie(0);cout.tie(0);
cin>>n;
for(i=1;i<=n;i++)
{
cin>>x;
if(i==1)f=x;
if(i==n)l=x;
if(i>1 && x==y)rc("NU");
if(i>1 && x>y)
{
if(v==-1)nr++;
v=1;
}
else if(i>1 && x {
if(v==1)nr++;
v=-1;
}
y=x;
}
nr++;
if(f==l || nr==1 || nr>3)rc("NU");
if(nr==2)rc("DA");
if(nr==3)
{
if(v==-1 && l>f)rc("DA");
if(v==1 && l }
cout<<"NU"< return 0;
}
de la main in jos
http://varena.ro/problema/bitona
si daca ai nevoie de problema ca sa intelegi mai usor
si daca ai nevoie de problema ca sa intelegi mai usor
Alte întrebări interesante
#include
#define rc(x) return cout<#define pb push_back
#define in insert
#define er erase
#define fd find
#define fr first
#define sc second
typedef long long ll;
typedef long double ld;
const ll INF=0x3f3f3f3f3f3f3f3f;
const ll llinf=(1LL<<61);
const int inf=(1<<30);
const int nmax=1e5+50;
const int mod=1e9+7;
using namespace std;
int n,i,x,y,f,l,v,nr;
int main()