Форум Всеукраїнської інтернет-олімпіади NetOI


На форумі обговорюються лише питання, пов'язані з олімпіадою

Ви не зайшли.

#26 2005-11-19 09:44:19

Andy
Олімпієць
Зареєстрований: 2005-11-19
Повідомлень: 9

Re: У кого какое решение?

6
1 4 6 2 2 4
3 3 5 6 1 5

Поза форумом

 

#27 2005-11-19 10:15:46

respect
Олімпієць
Зареєстрований: 2005-11-19
Повідомлень: 16

Re: У кого какое решение?

Для этой примера

6
1 4 6 2 2 4
3 3 5 6 1 5

ответ будет 3!!!!!!!!!!!


Не бывает сложных задач бывают тупые решатели!!!! smile

Поза форумом

 

#28 2005-11-19 10:42:13

Spunky
Олімпієць
Звідки: Черновцы, Украина
Зареєстрований: 2005-11-08
Повідомлень: 38

Re: У кого какое решение?

Andy написав:

6
1 4 6 2 2 4
3 3 5 6 1 5

ответ 3

Поза форумом

 

#29 2005-11-19 11:04:53

ROBOT
Олімпієць
Звідки: Ялта
Зареєстрований: 2005-10-26
Повідомлень: 158

Re: У кого какое решение?

Смотрите piece 2 решения (1- пложое)
1)
{$N+} { —в®Ўл а Ў®в «Ё Extended }
var a,b,c,d,h,p,r,x1,x2,x3,y1,y2,y3:extended;
begin
    read(r,x1,y1,x2,y2,x3,y3);
  a:=sqrt(sqr(x1-x3)+sqr(y1-y3));
  b:=sqrt(sqr(x1-x2)+sqr(y1-y2));
  c:=sqrt(sqr(x2-x3)+sqr(y2-y3));
  p:=(a+b+c)/2;
  h:=2*sqrt(abs(p*(p-a)*(p-b)*(p-c)))/c;
  if h-r>1e-6 then
    write('-1')
  else
    write(2*sqrt(abs(sqr(r)-sqr(h))));
end.

2)
{$N+} { —в®Ўл а Ў®в «Ё Extended }
var
    sq,rs:extended;
  r,x0,y0,x1,y1,x2,y2:longint;
begin
    read(r,x0,y0,x1,y1,x2,y2);
  dec(x1,x0);dec(x2,x0);
  dec(y1,y0);dec(y2,y0);
  sq:=sqr(r)-sqr(1.0*(x1*y2-x2*y1))/(sqr(x2-x1)+sqr(y2-y1));
  if sq<-1e-6 then  {Dolzhno byt "sq<0", no iz za pogreshnostey...}
       rs:=-1
  else
       rs:=2*sqrt(abs(sq));
  write(rs);
end.

Відредаговано ROBOT (2005-11-19 11:08:35)


I have Delphi 7, BP 7.0, FP 1.0.4, Windows XP
Мои решения олимпиад на  Паскале: http://h0h0l.narod.ru/
Моя проверялка: http://www.proveryalka.narod.ru/
ICQ: 266367671

Поза форумом

 

#30 2005-11-19 11:11:18

ROBOT
Олімпієць
Звідки: Ялта
Зареєстрований: 2005-10-26
Повідомлень: 158

Re: У кого какое решение?

КОМУ интересно, мои решения:
http://h0h0l.narod.yandex.ru/olymp.rar

Відредаговано ROBOT (2005-11-19 11:16:42)


I have Delphi 7, BP 7.0, FP 1.0.4, Windows XP
Мои решения олимпиад на  Паскале: http://h0h0l.narod.ru/
Моя проверялка: http://www.proveryalka.narod.ru/
ICQ: 266367671

Поза форумом

 

#31 2005-11-19 11:41:56

xXx
Олімпієць
Звідки: Kirovsk-city
Зареєстрований: 2005-11-16
Повідомлень: 123
Вебсайт

Re: У кого какое решение?

ROBOT написав:

Смотрите piece 2 решения (1- пложое)
1)
{$N+} { —в®Ўл а Ў®в «Ё Extended }
var a,b,c,d,h,p,r,x1,x2,x3,y1,y2,y3:extended;
begin
    read(r,x1,y1,x2,y2,x3,y3);
  a:=sqrt(sqr(x1-x3)+sqr(y1-y3));
  b:=sqrt(sqr(x1-x2)+sqr(y1-y2));
  c:=sqrt(sqr(x2-x3)+sqr(y2-y3));
  p:sada+b+c)/2;
  h:=2*sqrt(abs(p*(p-a)*(p-b)*(p-c)))/c;
  if h-r>1e-6 then
    write('-1')
  else
    write(2*sqrt(abs(sqr(r)-sqr(h))));
end.

2)
{$N+} { —в®Ўл а Ў®в «Ё Extended }
var
    sq,rs:extended;
  r,x0,y0,x1,y1,x2,y2:longint;
begin
    read(r,x0,y0,x1,y1,x2,y2);
  dec(x1,x0);dec(x2,x0);
  dec(y1,y0);dec(y2,y0);
  sq:=sqr(r)-sqr(1.0*(x1*y2-x2*y1))/(sqr(x2-x1)+sqr(y2-y1));
  if sq<-1e-6 then  {Dolzhno byt "sq<0", no iz za pogreshnostey...}
       rs:=-1
  else
       rs:=2*sqrt(abs(sq));
  write(rs);
end.

А что если x1=x2, y1=y2 ? Runtime error!!! (но с другой стороны прямая не задаёться точками с одинаковыми координатами, но кто их знает этих тест-мейкеров... )


icq - 402174

Поза форумом

 

#32 2005-11-19 11:48:26

DeusEx
Олімпієць
Зареєстрований: 2005-11-17
Повідомлень: 127

Re: У кого какое решение?

#include <iostream.h>
#include <math.h>


int main(){
    long double x1,y1,x2,y2,x0,y0,R; long double res,D,a,b,c,kx1,kx2,ky1,ky2,k,q;

    cin >> R >> x0 >> y0 >> x1 >> y1 >> x2 >> y2;
    x1=x1-x0;
    x2=x2-x0;
    y1=y1-y0;
    y2=y2-y0;
    x0=0;
    y0=0;
   
    if (x2 - x1 != 0) {k = (y2 - y1) / (x2 - x1);  q = y1 - x1*k;};
    if (x2 - x1 == 0) {k = (x2 - x1) / (y2 - y1); q = x1 - y1*k;};
    a = k*k + 1;
    b = 2*k*q - 2*x0 - 2*k*y0;
    c = q*q + x0*x0 + 2*q*y0 + y0*y0 - R*R;
    D = b*b - 4*a*c;
    if (D<0)  {res=-1; cout << res;};
    if (D>0)     
    {
             kx1 = ((-1)*b + sqrt(D)) / (2*a);     
             kx2 = ((-1)*b - sqrt(D)) / (2*a);
             ky1=k*kx1 + q;
             ky2=k*kx2 + q;
             res = sqrt( (kx1-kx2)*(kx1-kx2) + (ky1-ky2)*(ky1-ky2) );
             cout << res;           
             }
    if (D==0)     
    {
             res = 0;   cout << res;
             }   
            return 0;
}

Поза форумом

 

#33 2005-11-19 11:49:26

DeusEx
Олімпієць
Зареєстрований: 2005-11-17
Повідомлень: 127

Re: У кого какое решение?

что тут решать-то?

Поза форумом

 

#34 2005-11-19 11:51:11

DeusEx
Олімпієць
Зареєстрований: 2005-11-17
Повідомлень: 127

Re: У кого какое решение?

задача bear:
#include <iostream.h>
int main () {
    long int k,m;
    cin >> m >> k;
    for (long int x=k%2;x<=k; x=x+2) {if (x!=k) {cout << x*m << " ";}if (x==k) {cout << x*m << endl;}};
    return 0;
}

Поза форумом

 

#35 2005-11-19 12:01:12

jack_spektor
Олімпієць
Звідки: Украина Одесса
Зареєстрований: 2005-11-12
Повідомлень: 116
Вебсайт

Re: У кого какое решение?

Я наверно позновато...,но... выкладываю...
Bear 153bytes(13 строки)
Blam 588bytes(29 строки)
Circ 689bytes(34 строки)
Newpatience 1,26KB(75 строки)
Piece 674bytes(32 строки)

А как там решения проверяют?С помощбю тестов или как?
Если кому интересно моя аська: 260564697


Delphi IT!!!
Мой сайт:http:\\mr-kody.blogspot.com

Поза форумом

 

#36 2005-11-19 12:01:25

xXx
Олімпієць
Звідки: Kirovsk-city
Зареєстрований: 2005-11-16
Повідомлень: 123
Вебсайт

Re: У кого какое решение?

Bear.cpp

Код:

#include<stdio.h>

int main()
{
    long i,M,K,S;
    scanf("%d%d",&M,&K);
    for(i=K&1,S=(M=M<<1)*K/2;i<=S;i+=M)
        printf("%d ",i);
    return 0;
}

Piece.cpp

Код:

#include<stdio.h>
#include<math.h>

const double Eps=0.00000000000000001;

inline char Cpr(double a,double b)
{
    a-=b;
    if(a>Eps)
        return 1;
    else if(a<-Eps)
        return -1;
    return 0;
}

int main()
{
    int R,X,Y,x[2],y[2],i;
    scanf("%d%d%d",&R,&X,&Y);
    for(i=0;i<2;i++){
        scanf("%d%d",&x[i],&y[i]);
        x[i]-=X;
        y[i]-=Y;
    }
    if(x[0]!=x[1] || y[0]!=y[1]){
        double    a=y[1]-y[0],
                b=x[0]-x[1],
                c=x[1]*y[0]-x[0]*y[1],
                H=a*a+b*b,
                cX=a*c/H,
                cY=b*c/H;
        H=cX*cX+cY*cY;
        i=Cpr(R*=R,H);
        if(i==1)
            printf("%.16E",2*sqrt(R-H));
        else printf("%d",i);
    }else if(x[0]==X && y[0]==Y)
        printf("0");
    else printf("-1");
    return 0;
}

Відредаговано xXx (2005-11-19 12:04:11)


icq - 402174

Поза форумом

 

#37 2005-11-19 12:05:40

jack_spektor
Олімпієць
Звідки: Украина Одесса
Зареєстрований: 2005-11-12
Повідомлень: 116
Вебсайт

Re: У кого какое решение?

Кстати мои решения можна скачать по адресу
http://www.TheJack.narod.ru/olymp.rar


Delphi IT!!!
Мой сайт:http:\\mr-kody.blogspot.com

Поза форумом

 

#38 2005-11-19 12:16:16

necro
Олімпієць
Зареєстрований: 2005-11-19
Повідомлень: 134

Re: У кого какое решение?

Я себя не сдерживаю smile правда и решения не знаю правильные ли : не просите показать только если все пойдет smile а то раньше времени расстраиватся не хоца smile
bear - 479
blamblam - 1734
newpatience - 461
piece - 604
Циркуит по смешному мал но не помны сколко порядка 400

Відредаговано necro (2005-11-19 12:23:21)


Да что там "винница" под новый год... Матан - вот в чем сила

Поза форумом

 

#39 2005-11-19 12:16:57

jack_spektor
Олімпієць
Звідки: Украина Одесса
Зареєстрований: 2005-11-12
Повідомлень: 116
Вебсайт

Re: У кого какое решение?

Люди,а кто нибудь письмо с результатами получал?
Говорят оно должно прийти сегодня утром


Delphi IT!!!
Мой сайт:http:\\mr-kody.blogspot.com

Поза форумом

 

#40 2005-11-19 12:20:08

Vladislav Simonenko
Олімпієць
Зареєстрований: 2005-10-05
Повідомлень: 20

Re: У кого какое решение?

Spunky написав:

Andy написав:

6
1 4 6 2 2 4
3 3 5 6 1 5

ответ 3

Сейчас исправлю, просто я вобще пишу на Паскале а для DeusEx перевел на С++, и случайно пропустил строчку.

Поза форумом

 

#41 2005-11-19 12:20:26

necro
Олімпієць
Зареєстрований: 2005-11-19
Повідомлень: 134

Re: У кого какое решение?

jack_spektor написав:

Люди,а кто нибудь письмо с результатами получал?
Говорят оно должно прийти сегодня утром

Однажды они больше недели проверяли так что жди мне тоже ниче не пришло


Да что там "винница" под новый год... Матан - вот в чем сила

Поза форумом

 

#42 2005-11-19 12:23:23

xXx
Олімпієць
Звідки: Kirovsk-city
Зареєстрований: 2005-11-16
Повідомлень: 123
Вебсайт

Re: У кого какое решение?

jack_spektor написав:

...А как там решения проверяют?С помощбю тестов или как?...

А как иначе? (не, теоретически другие варианты могут быть... например жюри расмотрит сорсы всех учасников smile и... или может существовать такая прога, которая сама может проверить исходники...)

Відредаговано xXx (2005-11-19 12:25:16)


icq - 402174

Поза форумом

 

#43 2005-11-19 12:29:33

necro
Олімпієць
Зареєстрований: 2005-11-19
Повідомлень: 134

Re: У кого какое решение?

xXx написав:

jack_spektor написав:

...А как там решения проверяют?С помощбю тестов или как?...

А как иначе? (не, теоретически другие варианты могут быть... например жюри расмотрит сорсы всех учасников smile и... или может существовать такая прога, которая сама может проверить исходники...)

Но фигня эт все smile там автоматическая сис-ма тестинга заганяются автроские решения и их ответы на данные жюри тесты сравниваются с ответами твоей проги. Я понимаю че ты задал этот вопрос ты хочеш чтоб с файла читали и т.п. ног там используется перенаправление потоков


Да что там "винница" под новый год... Матан - вот в чем сила

Поза форумом

 

#44 2005-11-19 12:31:00

jack_spektor
Олімпієць
Звідки: Украина Одесса
Зареєстрований: 2005-11-12
Повідомлень: 116
Вебсайт

Re: У кого какое решение?

ROBOT написав:

КОМУ интересно, мои решения:
http://h0h0l.narod.yandex.ru/olymp.rar

Тут ты шото неправильно написал.Я твои решения скачать пытаюсь,а невыходит.
У меня тоже есть сайт на Народе,так вот .Yandex писать не надо...
Я пробовал www.h0h0l.narod.ru/olymp.rar и всё скачалось


Delphi IT!!!
Мой сайт:http:\\mr-kody.blogspot.com

Поза форумом

 

#45 2005-11-19 12:35:28

jack_spektor
Олімпієць
Звідки: Украина Одесса
Зареєстрований: 2005-11-12
Повідомлень: 116
Вебсайт

Re: У кого какое решение?

Andy написав:

6
1 4 6 2 2 4
3 3 5 6 1 5

Тут ответ сто пудов 3


Delphi IT!!!
Мой сайт:http:\\mr-kody.blogspot.com

Поза форумом

 

#46 2005-11-19 12:40:26

xXx
Олімпієць
Звідки: Kirovsk-city
Зареєстрований: 2005-11-16
Повідомлень: 123
Вебсайт

Re: У кого какое решение?

necro написав:

xXx написав:

jack_spektor написав:

...А как там решения проверяют?С помощбю тестов или как?...

А как иначе? (не, теоретически другие варианты могут быть... например жюри расмотрит сорсы всех учасников smile и... или может существовать такая прога, которая сама может проверить исходники...)

Но фигня эт все smile там автоматическая сис-ма тестинга заганяются автроские решения и их ответы на данные жюри тесты сравниваются с ответами твоей проги. Я понимаю че ты задал этот вопрос ты хочеш чтоб с файла читали и т.п. ног там используется перенаправление потоков

Не, вопрос был с помощью тестов или нет (как я понял)
И авторские решения никуда не заганяються, просто входные данные, выходные и верификатор...


icq - 402174

Поза форумом

 

#47 2005-11-19 13:50:32

Andy
Олімпієць
Зареєстрований: 2005-11-19
Повідомлень: 9

Re: У кого какое решение?

у кого какой ответ для задачи Newpatience на такой тест:

100
98 39 69 13 2 40 84 85 16 78 98 22 34 4 99 86 94 36 11 33 90 86 75 10 35 55 63 96 26 30 28 49 17 41 50 15 99 37 12 33 65 34 24 60 25 54 50 79 65 31 53 8 36 1 84 7 22 91 61 100 69 42 59 71 38 12 23 58 42 53 83 21 46 40 52 89 74 5 77 76 44 6 20 58 73 17 18 44 52 81 88 54 14 55 37 64 56 9 97 78
51 14 35 71 83 57 88 31 11 29 38 15 16 70 97 43 47 20 62 70 26 66 93 48 47 39 45 94 48 80 77 95 82 30 1 85 10 62 25 3 79 67 7 13 64 29 72 72 82 18 19 59 92 24 56 43 60 32 27 66 23 81 92 95 9 74 63 87 61 75 96 89 100 90 28 4 68 21 6 19 91 68 3 41 67 27 87 93 49 45 76 2 46 8 32 51 73 80 5 57

Поза форумом

 

#48 2005-11-19 14:04:42

Kero
Олімпієць
Звідки: Кондитерская
Зареєстрований: 2005-10-15
Повідомлень: 8

Re: У кого какое решение?

Результы будут на неделе


Я люблю цукерки,
Я люблю комп'ютер,
Я люблю грати в гарну гру,
А ламерів не люблю!

Поза форумом

 

#49 2005-11-19 14:07:48

Ivan
Олімпієць
Зареєстрований: 2005-10-09
Повідомлень: 218

Re: У кого какое решение?

piece:


var
r,o1,o2,x1,y1,x2,y2,d,ps,l:real;
begin
read(r,o1,o2,x1,y1,x2,y2);
x1:=x1-o1;
x2:=x2-o1;
y1:=y1-o2;
y2:=y2-o2;
l:=sqrt((x1-x2)*(x1-x2)+(y1-y2)*(y1-y2));
ps:=abs(x1*y2-x2*y1);
if ps=0 then d:=0 else d:=ps/l;
if d>r+0.00001 then writeln(-1) else
if abs(d-r)<0.00001 then writeln(0) else
writeln(2*sqrt(r*r-d*d));
end.


ICQ 233-416-344

Поза форумом

 

#50 2005-11-19 14:41:57

DeusEx
Олімпієць
Зареєстрований: 2005-11-17
Повідомлень: 127

Re: У кого какое решение?

Andy написав:

у кого какой ответ для задачи Newpatience на такой тест:

100
98 39 69 13 2 40 84 85 16 78 98 22 34 4 99 86 94 36 11 33 90 86 75 10 35 55 63 96 26 30 28 49 17 41 50 15 99 37 12 33 65 34 24 60 25 54 50 79 65 31 53 8 36 1 84 7 22 91 61 100 69 42 59 71 38 12 23 58 42 53 83 21 46 40 52 89 74 5 77 76 44 6 20 58 73 17 18 44 52 81 88 54 14 55 37 64 56 9 97 78
51 14 35 71 83 57 88 31 11 29 38 15 16 70 97 43 47 20 62 70 26 66 93 48 47 39 45 94 48 80 77 95 82 30 1 85 10 62 25 3 79 67 7 13 64 29 72 72 82 18 19 59 92 24 56 43 60 32 27 66 23 81 92 95 9 74 63 87 61 75 96 89 100 90 28 4 68 21 6 19 91 68 3 41 67 27 87 93 49 45 76 2 46 8 32 51 73 80 5 57

31

Поза форумом

 

Нижній колонтитул

Powered by Likt
© Copyright 2002–2009 Likt