OINF-CLUB
Գլխավոր
Մուտք
Գրանցվել
Կիրակի, 17.12.2017, 16:54Ողջունում եմ ձեզ հյուր | RSS
[ Նոր հաղորդագրություններ · Մասնակիցներ · Ֆորումի կանոնները · Որոնում · RSS ]
Страница 1 из 11
Ֆորում » Խնդիրների վերլուծություններ » 2010-2011 ուս.տարվա հանրապետական օլիմպիադա, Շիրակի մարզ, տարածքայի փուլ: » ԳՅՈւՄՐԻ (GYUMRI)
ԳՅՈւՄՐԻ (GYUMRI)
oinf-clubДата: Հինգշաբթի, 24.02.2011, 20:15 | Сообщение # 1
Կայքի հիմնադիր
Группа: Ադմինիստրատորներ
Сообщений: 19
Репутация: 10
Статус: Օֆլայն
ԽՆԴՐԻ ՎԵՐԼՈւԾՈւԹՅՈւՆԸ

Ներկայացնում ենք խնդրի լուծման երկու տարբեր ալգորիթմներ:

ԱԼԳՈՐԻԹՄ-1

Code
VAR I,K:INTEGER; S,S1:STRING;
BEGIN
      ASSIGN(INPUT,'INPUT.TXT');
      RESET(INPUT);
      ASSIGN(OUTPUT,'OUTPUT.TXT');
      REWRITE(OUTPUT);
      READLN(S);
      S1:='GYUMRI';
      K:=1;   
      FOR I:=1 TO LENGTH(S) DO
          IF S[I]=S1[K] THEN K:=K+1;
      IF K=7 THEN WRITELN('YES') ELSE WRITELN('NO')
END.

ԱԼԳՈՐԻԹՄ-2

Code
VAR I:INTEGER; S,S1:STRING;
BEGIN
      ASSIGN(INPUT,'INPUT.TXT');
      RESET(INPUT);
      ASSIGN(OUTPUT,'OUTPUT.TXT');
      REWRITE(OUTPUT);
      READLN(S);
      S1:='GYUMRI';
      FOR I:=1 TO LENGTH(S) DO
          IF S[I]=S1[1] THEN DELETE(S1,1,1);
      IF S1='' THEN WRITELN('YES') ELSE WRITELN('NO')
END.
 
Ֆորում » Խնդիրների վերլուծություններ » 2010-2011 ուս.տարվա հանրապետական օլիմպիադա, Շիրակի մարզ, տարածքայի փուլ: » ԳՅՈւՄՐԻ (GYUMRI)
Страница 1 из 11
Поиск:


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