OINF-CLUB
Գլխավոր
Մուտք
Գրանցվել
Ուրբաթ, 29.03.2024, 15:03Ողջունում եմ ձեզ հյուր | RSS
[ Նոր հաղորդագրություններ · Մասնակիցներ · Ֆորումի կանոնները · Որոնում · RSS ]
  • Страница 1 из 1
  • 1
Модератор форума: TMNT  
Ֆորում » Խնդիրների վերլուծություններ » Օլիմպիադա ինֆորմատիկայից` նվիրված ակումբի հիմնադրման մեկ ամյակին: » ՄՈԼՈՐԱԿ "ՕԼԻՄՊԻԱԿԱ ԻՆՖՈՐՄԱՏԻԿԱ" (PLANET)
ՄՈԼՈՐԱԿ "ՕԼԻՄՊԻԱԿԱ ԻՆՖՈՐՄԱՏԻԿԱ" (PLANET)
oinf-clubДата: Շաբաթ, 18.12.2010, 15:15 | Сообщение # 1
Կայքի հիմնադիր
Группа: Ադմինիստրատորներ
Сообщений: 19
Репутация: 10
Статус: Օֆլայն
ԽՆԴՐԻ ՎԵՐԼՈւԾՈւԹՅՈւՆԸ

Խնդրում նկարագրված տեսակների համարակալման մեթոդը թույլ է տալիս ենթատեսակի համարով հեշտությամբ գտնել այն տեսակի համարը, որից առաջացել է այդ ենթատեսակը: Դրա համար բավարար է ենթատեսակի համարը ամբողջով բաժանել երկուսի: Այսպես պետք է շարժվել էվոլյուցիայի ծառով այնքան ժամանակ, մինչ չգտնենք տեսակ-նախնի տրված երկու ենթատեսակների համար:
 
TamaraДата: Շաբաթ, 18.12.2010, 15:18 | Сообщение # 2
Շարքային
Группа: Пользователи
Сообщений: 5
Репутация: 10
Статус: Օֆլայն
Ներկայացնում եմ իմ լուծումը Pascal լեզվով
Code
VAR N,A,B:LONGINT;
BEGIN
      ASSIGN(INPUT,'INPUT.TXT');
      RESET (INPUT);
      ASSIGN(OUTPUT,'OUTPUT.TXT');
      REWRITE (OUTPUT);
      READLN(N,A,B);
      WHILE A<>B DO
      IF A>B THEN A:=A DIV 2 ELSE B:=B DIV 2;
      WRITELN(A)
END.
 
TMNTДата: Շաբաթ, 18.12.2010, 15:19 | Сообщение # 3
Շարքային
Группа: Модераторы
Сообщений: 14
Репутация: 10
Статус: Օֆլայն
Իմ լուծումը C++ լեզվով
Code
#include <fstream.h>
void main()
{
  ifstream fin("input.txt");
  ofstream fout("output.txt");
  long n,a,b,k;
  fin >> n;
  fin >> a;
  fin >> b;
  while (a!=b)
  {
   if (a>b) a/=2;
   else b/=2;
   k=a;
  }
  fout << k << endl;
}
 
ArmanДата: Շաբաթ, 18.12.2010, 18:56 | Сообщение # 4
Շարքային
Группа: Пользователи
Сообщений: 3
Репутация: 10
Статус: Օֆլայն
Խնդրի լուծումը Visual Basic-ով:
Code
Private Sub Form_Load()
a = FreeFile
Open "Input.txt" For Input As #a
Input #a, s, b, c: Close #a
While b <> c
If b > c Then b = Int(b / 2) Else c = Int(c / 2)
Wend
Open "Output.txt" For Output As #a
Print #a, b: Close #a
End Sub


Сообщение отредактировал Arman - Շաբաթ, 18.12.2010, 18:58
 
Ֆորում » Խնդիրների վերլուծություններ » Օլիմպիադա ինֆորմատիկայից` նվիրված ակումբի հիմնադրման մեկ ամյակին: » ՄՈԼՈՐԱԿ "ՕԼԻՄՊԻԱԿԱ ԻՆՖՈՐՄԱՏԻԿԱ" (PLANET)
  • Страница 1 из 1
  • 1
Поиск:


Copyright Արամ Հովհաննիսյան © 2024