Програмчлалын XVI онлайн тэмцээн

Энд дарж орно уу.

Програмчлалын XV онлайн тэмцээний "Рекурс" бодлогын бодолт

Chimed

#include <cstdio>
#include <algorithm>
#include <vector>
using namespace std;
bool cicle[1001]={0};
bool visited[1001];
int save[1001];
vector <vector <int> > g(1001);
void dfs(int start,int index){
    save[index]=start;
    visited[start]=true;
    int q,r;
    for (q=0;q<g[start].size();q++)
    if (visited[g[start][q]])
    {
        for (r=0;r<index;r++)
        if (save[r]==g[start][q]) break;
        for (;r<=index;r++)
        cicle[save[r]]=true;
    }
    else
        dfs(g[start][q],index+1);
}
int main(){
    int N;
    int i,j,k,t;
    scanf("%d",&N);
    for (i=1;i<=N;i++)
    {
        scanf("%d",&k);
        for (j=0;j<k;j++)
        {
            scanf("%d",&t);
            g[i].push_back(t);
        }
    }
    for (i=1;i<=N;i++)
    if (cicle[i]) printf("%d ",i);
    else
    {
        for (j=1;j<=N;j++)
            visited[j]=false;
        dfs(i,0);
        if (cicle[i]) printf("%d ",i);
    }
    return 0;
}

Програмчлалын XV онлайн тэмцээний "Квадратууд" бодлогын бодолт

Chimed

#include <cstdio>
#include <vector>
#include <algorithm>
#include <iostream>
#include <map>
#include <cmath>
using namespace std;
double a,b,c;
double x1[1000],x2[1000],y3[1000],y2[1000];
double x[2000],y[2000];
char table[2000][2000]={0};
int n,i,xi1,xi2,yi1,yi2,j,k;
double answer=0.0;
int main(){
    scanf("%d",&n);
    for (i=0;i<n;i++)
    {
        scanf("%lf %lf %lf",&a,&b,&c);
        x1[i]=a-c/2;
        y3[i]=b-c/2;
        x2[i]=a+c/2;
        y2[i]=b+c/2;
        x[2*i]=x1[i];
        x[2*i+1]=x2[i];
        y[2*i]=y3[i];
        y[2*i+1]=y2[i];
    }
    sort(x,x+2*n);
    sort(y,y+2*n);
    for (i=0;i<n;i++)
    {
        xi1=lower_bound(x,x+2*n,x1[i])-x;
        xi2=lower_bound(x,x+2*n,x2[i])-x;
        yi1=lower_bound(y,y+2*n,y3[i])-y;
        yi2=lower_bound(y,y+2*n,y2[i])-y;
        for (j=xi1;j<xi2;j++)
            for (k=yi1;k<yi2;k++)
            table[j][k]=1;
    }
    for (j=0;j<2*n;j++)
        for (k=0;k<2*n;k++)
        if (table[j][k])
        {
        //    printf("%.1lf %.1lf %.1lf %.1lf\n",x[j],y[k],x[j+1],y[k+1]);
            answer+=(x[j+1]-x[j])*(y[k+1]-y[k]);
        }
    printf("%.3lf",answer);
    return 0;
}

Програмчлалын XV онлайн тэмцээний "Координатын эх" бодлогын бодолт

bodolt

var x,y:array[0..5]of double;
s1,s2,s3,s4:double;
n,i,j:integer;
begin
readln(n);
for i:=1 to n do
begin
for j:=1 to 3 do
read(x[j],y[j]);
s1:=abs(y[1]*(x[3]-x[2])+y[2]*(x[1]-x[3])+y[3]*(x[2]-x[1]));
s2:=abs(y[3]*x[2]-y[2]*x[3]);
s3:=abs(y[1]*x[3]-y[3]*x[1]);
s4:=abs(y[2]*x[1]-y[1]*x[2]);
if s1=s2+s3+s4 then writeln('YES')
               else writeln('NO');
end;
readln;
end.

Програмчлалын XV онлайн тэмцээний "Уламжлал" бодлогын бодолт

bodolt

var p,q,t:array[0..100]of real;
n,i,l:integer;
s,t1:real;
begin
readln(s,t1,n);
for i:=0 to n do
read(p[i]);
q[0]:=p[0]*t1;
q[1]:=p[1]*t1;
for i:=2 to n+2 do
q[i]:=p[i]*t1+p[i-2]*s;
for i:=0 to n-1 do
t[i]:=p[i+1]*(i+1);
t[n]:=0;
t[n+1]:=0;
l:=n+2;
while t[l]+q[l]=0 do
l:=l-1;
for i:=0 to l-1 do
write((q[i]+t[i]):0:1,' ');
write((q[l]+t[l]):0:1);
readln;
end.

Програмчлалын XV онлайн тэмцээний "Чөтгөрийн тоо" бодлогын бодолт

bodolt

var a,a1,a2:array[1..20]of int64;
n,k,i:integer;
begin
read(n,k);
if k>6 then
begin
a[1]:=k-2;
a1[1]:=1;
a2[1]:=0;
a[2]:=(k-1)*(k-1);
a1[2]:=k-2;
a2[2]:=1;
for i:=3 to n do
begin
a[i]:=(k-1)*(a1[i-1]+a2[i-1]+a[i-1]);
a1[i]:=a[i-1];
a2[i]:=a[i-2];
end;
writeln(a[n]+a1[n]+a2[n]);
end
else
begin
a[1]:=k-1;
for i:=2 to n do
a[1]:=a[1]*k;
writeln(a[1]);
end;
readln;
end.