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


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

Ви не зайшли.

#1 2006-10-28 17:07:01

Fizteh
Новий користувач
Зареєстрований: 2006-09-17
Повідомлень: 99

Авторское решение AREA и FAILURE

Эти 2 детские задачи придумал я. Задачи для 8-9 класса, потому и решения совсем несложные.

Код:

Program area;
var i,n,s:word;
    x1,x2,x3,x4,y1,y2,y3,y4,c:integer;
procedure vv;
begin
  read(x1,y1,x2,y2,x3,y3,x4,y4);
  if (x1>x2)then begin c:=x1; x1:=x2; x2:=c; end;
  if (y1>y2)then begin c:=y1; y1:=y2; y2:=c; end;
  if (x3>x4)then begin c:=x3; x3:=x4; x4:=c; end;
  if (y3>y4)then begin c:=y3; y3:=y4; y4:=c; end;
end;
procedure viv;
begin
 write(s);
end;
procedure re;
begin
  if (x1>x4)or(x2<x3)or(y1>y4)or(y2<y3)
     then s:=0
     else if ((x1=x4)or(x2=x3))and((y1=y4)or(y2=y3))
             then s:=1                                                                        
             else if (x1=x4)or(x2=x3)or(y1=y4)or(y2=y3)
                     then s:=2
                     else s:=3;
end;
Begin
  read(n);
  for i:=1 to n
     do begin
          vv;
          re;
          viv;
        end;
End.

Код:

Program failure;
var i,n,s:longint;
    x1,x2,y1,y2,v1,v2,l1,l2:real;
procedure vv;
begin
read(v1,v2,l1,l2,x1,y1,x2,y2);
if x1=0 then x1:=y1;
if x2=0 then x2:=y2;
end;
procedure viv;
begin
 write(s);
end;
procedure re;
var t1,t2,t3,t4:real;
begin
  t1:=x1/v1;
  t2:=(x1+l1)/v1;
  t3:=x2/v2;
  t4:=(x2+l2)/v2;
  if (t1>=t4)or(t2<=t3) then s:=0
                        else s:=1;
end;
Begin
 read(n);
 for i:=1 to n do
     begin
       vv;
       re;
       viv;
     end;
End.

Поза форумом

 

#2 2006-10-28 18:42:58

Dark_Dimius
Новий користувач
Звідки: /dev/null
Зареєстрований: 2005-11-17
Повідомлень: 136

Re: Авторское решение AREA и FAILURE

респект тебе, легкие задачи без намека на решение придумать тяжело.


/*Hа C я могy пpосто делать ошибки, на C++ я могy их наследовать!
Некоторые люди на пальцах считают до 10, я же до 1023*/
Если надо помощь - стучитесь в асю, постараюсь помочь 99996414http://www.icq.com/scripts/online.dll?icq=99996414&amp;img=5

Поза форумом

 

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

Powered by Likt
© Copyright 2002–2009 Likt