User Tag List

Էջ 2 25-ից ԱռաջինԱռաջին 12345612 ... ՎերջինըՎերջինը
Ցույց են տրվում 16 համարից մինչև 30 համարի արդյունքները՝ ընդհանուր 371 հատից

Թեմա: Pascal խնդիրներ

  1. #16
    Ազատ Սամվել-ի ավատար
    Գրանցման ամսաթիվ
    24.04.2007
    Հասցե
    Հայաստան, Երևան
    Տարիք
    35
    Գրառումներ
    4,975
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)

    Re. Pascal-ի կուրսային աշխատանք

    Մեջբերում Tigana-ի խոսքերից Նայել գրառումը
    Բոլորին շնորհակալ եմ:
    Սամվել գրածդ ամենահարմարն էր,վերջում m-1 չէ,m:
    Մերսի:
    Հա ճիշտա ընդեղ սկզբում պատահմամբ մը 1ից էի սկսել դրա համար էր տենց ստացվել հետո դզեցի մոռացա էտ ցիկլում էլ դզել
    Loading your personal settings....

  2. #17
    Ազատ Սամվել-ի ավատար
    Գրանցման ամսաթիվ
    24.04.2007
    Հասցե
    Հայաստան, Երևան
    Տարիք
    35
    Գրառումներ
    4,975
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)

    Re. Pascal-ի կուրսային աշխատանք

    Կոդ:
    program Kursayin ;
    uses crt ;
    type vector=array[1..50] of integer ;
    var
    k:boolean ;
    i,m,n :integer ;
    x,y:vector ;
    procedure output ( m:integer ; y : vector ) ;
    var i:integer ;
    begin
    for i:=1 to m do write ( 'y[',i,']=',y[i],' ' ) ;
    end ;
    function input ( i:integer ):integer ;
    var x:integer ;
    begin
    write ( 'x[',i,']=' ) ;
    readln ( x ) ;
    input:=x ;
    end ;
    begin clrscr ;
    write ( 'n=' ) ; readln ( n ) ;
    write ( 'm=' ) ; readln ( m ) ;
    for i:=1 to n do x[i]:=input(i) ;
    k:=true ;
    for i:=2 to m div 2 do
    if (m mod i)=0 then k:=false ;
    m:=0 ;
    if k=true then
       begin
            for i:=1 to n do if ( x[i]>0 ) then begin m:=m+1; y[m]:=x[i] end ;
            if m=0 then writeln ( 'drakan tarr chka' )
       end
    else
        begin
             for i:=1 to n do if ( x[i]<0 ) then begin m:=m+1; y[m]:=x[i] end ;
             if m=0 then writeln ( 'bacasakan tarr chka' )
        end ;
    output ( m , y ) ;
    end.
    լավ տեստ չեմ արել, որ սխալներ լինի ասա կդզենք
    Վերջին խմբագրող՝ Ներսես_AM: 09.12.2007, 16:43:
    Loading your personal settings....

  3. #18
    Հատուկ Guest-ի ավատար
    Գրանցման ամսաթիվ
    25.09.2006
    Հասցե
    Այգեստան
    Տարիք
    38
    Գրառումներ
    1,511
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)

    Re. Pascal-ի կուրսային աշխատանք

    1000 դրամով կուրսային եմ գրում Ո՞վ ա ցանկանում ասեք:

    Շեղվելով թեմայից...
    Ժամանակին մտախում էի թե ինչքան փող կարելի ա ստանալ պոլիտեխնիկի ուսանողներից Ահագին զարմանում էի, որ պրիմիտիվ առաջադրանքների համար մարդիկ պատրաստ են բավականին մեծ(պոլիտեխնիկցու համար) գումարներ տալ: Կազմել էի ցանկ ու ուզում էի բիզնեսը սկսեի, բայց մտափոխվեցի… գնացի մորմալ աշխատանքի

    Ինչ կասեք, ամսկան 2000$-ը քիչ փող ա՞…

  4. #19
    ginger Dayana-ի ավատար
    Գրանցման ամսաթիվ
    06.10.2006
    Գրառումներ
    5,421
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)

    Re. Pascal-ի կուրսային աշխատանք

    Մեջբերում Guest-ի խոսքերից Նայել գրառումը
    1000 դրամով կուրսային եմ գրում Ո՞վ ա ցանկանում ասեք:

    Շեղվելով թեմայից...
    Ժամանակին մտախում էի թե ինչքան փող կարելի ա ստանալ պոլիտեխնիկի ուսանողներից Ահագին զարմանում էի, որ պրիմիտիվ առաջադրանքների համար մարդիկ պատրաստ են բավականին մեծ(պոլիտեխնիկցու համար) գումարներ տալ: Կազմել էի ցանկ ու ուզում էի բիզնեսը սկսեի, բայց մտափոխվեցի… գնացի մորմալ աշխատանքի

    Ինչ կասեք, ամսկան 2000$-ը քիչ փող ա՞…
    Գիտես մեր համատեղ խմբում մեկը կար անունը հետո ականջիդ կասեմ իրա հեռախոսը մեր ուսանողների հաշվին էր առել տենց կուրսաիիներ ու առաջադրանքներ էր արել, նենց որ անհնարին միտք չի բայց հանկարծ տենց բան չանես

  5. #20
    Անդամության թեկնածու
    Գրանցման ամսաթիվ
    20.03.2008
    Գրառումներ
    7
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)

    Re. Pascal-ի կուրսային աշխատանք

    Բարև ձեզ: Ժողովուրդ, խնդրում եմ օգնեք էլի, եթե ինչ-որ մեկը կարողա էս 2 խնդրի լուծումը գրի: Շատա պետք է նախապես մերսի

    1. Ձևավորել f1 և f2 տեքստային ֆայլեր: Ելք տալ այն տարրերը, որոնք ընդհանուր են երկու ֆայլերի համար:

    2. Տրված են n բնական թիվը և n3n քառակուսի մատրիցան: Հաշվել մատրիցայի այն էլեմենտների գումարը, որոնք չեն գտնվում գլխավոր և օժանդակ անկյունագծերի վրա և բազմապատիկ են իրենց ինդեքսների գումարին: Ինդեքսների գումարին բազմապատկությունը ձևակերպել որպես մոդուլ ծրագրի առանձին ֆունկցիա:

  6. #21
    Ազատ Սամվել-ի ավատար
    Գրանցման ամսաթիվ
    24.04.2007
    Հասցե
    Հայաստան, Երևան
    Տարիք
    35
    Գրառումներ
    4,975
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)

    Re. Pascal-ի կուրսային աշխատանք

    Մեջբերում hush-ի խոսքերից Նայել գրառումը
    Բարև ձեզ: Ժողովուրդ, խնդրում եմ օգնեք էլի, եթե ինչ-որ մեկը կարողա էս 2 խնդրի լուծումը գրի: Շատա պետք է նախապես մերսի

    1. Ձևավորել f1 և f2 տեքստային ֆայլեր: Ելք տալ այն տարրերը, որոնք ընդհանուր են երկու ֆայլերի համար:

    2. Տրված են n բնական թիվը և n3n քառակուսի մատրիցան: Հաշվել մատրիցայի այն էլեմենտների գումարը, որոնք չեն գտնվում գլխավոր և օժանդակ անկյունագծերի վրա և բազմապատիկ են իրենց ինդեքսների գումարին: Ինդեքսների գումարին բազմապատկությունը ձևակերպել որպես մոդուլ ծրագրի առանձին ֆունկցիա:
    Ես կարամ բայց հիմա տեղ եմ գնում...մի 2 ժամից հիշացրու անպայման կանեմ
    Loading your personal settings....

  7. #22
    Անդամության թեկնածու
    Գրանցման ամսաթիվ
    20.03.2008
    Գրառումներ
    7
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)

    Re. Pascal-ի կուրսային աշխատանք

    Շատ շնորհակալ կլինեմ

  8. #23
    Անդամության թեկնածու
    Գրանցման ամսաթիվ
    20.03.2008
    Գրառումներ
    7
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)

    Re. Pascal-ի կուրսային աշխատանք

    Մեջբերում Սամվել-ի խոսքերից Նայել գրառումը
    Ես կարամ բայց հիմա տեղ եմ գնում...մի 2 ժամից հիշացրու անպայման կանեմ
    Հիշեցնում եմ

  9. #24
    Արգելափակված
    Գրանցման ամսաթիվ
    09.03.2008
    Գրառումներ
    225
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)

    Re. Pascal-ի կուրսային աշխատանք

    Մեջբերում hush-ի խոսքերից Նայել գրառումը
    Բարև ձեզ: Ժողովուրդ, խնդրում եմ օգնեք էլի, եթե ինչ-որ մեկը կարողա էս 2 խնդրի լուծումը գրի: Շատա պետք է նախապես մերսի

    1. Ձևավորել f1 և f2 տեքստային ֆայլեր: Ելք տալ այն տարրերը, որոնք ընդհանուր են երկու ֆայլերի համար:

    2. Տրված են n բնական թիվը և n3n քառակուսի մատրիցան: Հաշվել մատրիցայի այն էլեմենտների գումարը, որոնք չեն գտնվում գլխավոր և օժանդակ անկյունագծերի վրա և բազմապատիկ են իրենց ինդեքսների գումարին: Ինդեքսների գումարին բազմապատկությունը ձևակերպել որպես մոդուլ ծրագրի առանձին ֆունկցիա:
    1-ը իսկապես շատ հետաքրքիր խնդիր եր, բայց բան չհասկացա…

    2.
    Կոդ:
    var i,j,n,l,:integer;
    a:array[1..10,1..10] of integer;
    function bazm(i1,i2,k):bool;
    begin
     bazm := ( (k mod (i1+i2))=0 );
    end;
    begin
     read(n);
     for i:=1 to n do
      for j:=1 to n do 
       read(a[i,j]);
     for i:=1 to n do
      for j:=1 to n do
       if (i<>j) and (i<>n-j+1) and bazm(i,j,a[i,j]) then l := l + a[i,j];
    writeln('Պատ: ', l);
    end.
    բայց հիմա ժամանակ չկա տեստավորելու…

  10. #25
    Անդամության թեկնածու
    Գրանցման ամսաթիվ
    20.03.2008
    Գրառումներ
    7
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)

    Re. Pascal-ի կուրսային աշխատանք

    Մեջբերում firewall-ի խոսքերից Նայել գրառումը
    1-ը իսկապես շատ հետաքրքիր խնդիր եր, բայց բան չհասկացա…

    2.
    Կոդ:
    var i,j,n,l,:integer;
    a:array[1..10,1..10] of integer;
    function bazm(i1,i2,k):bool;
    begin
     bazm := ( (k mod (i1+i2))=0 );
    end;
    begin
     read(n);
     for i:=1 to n do
      for j:=1 to n do 
       read(a[i,j]);
     for i:=1 to n do
      for j:=1 to n do
       if (i<>j) and (i<>n-j+1) and bazm(i,j,a[i,j]) then l := l + a[i,j];
    writeln('Պատ: ', l);
    end.
    բայց հիմա ժամանակ չկա տեստավորելու…
    շատ շնորհակալ եմ, որ ժամանակ ես տրամադրել ու արել էսքանը, բայց չաշխատեց

  11. #26
    Ազատ Սամվել-ի ավատար
    Գրանցման ամսաթիվ
    24.04.2007
    Հասցե
    Հայաստան, Երևան
    Տարիք
    35
    Գրառումներ
    4,975
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)

    Re. Pascal-ի կուրսային աշխատանք

    Մեջբերում hush-ի խոսքերից Նայել գրառումը
    2. Տրված են n բնական թիվը և n3n քառակուսի մատրիցան: Հաշվել մատրիցայի այն էլեմենտների գումարը, որոնք չեն գտնվում գլխավոր և օժանդակ անկյունագծերի վրա և բազմապատիկ են իրենց ինդեքսների գումարին: Ինդեքսների գումարին բազմապատկությունը ձևակերպել որպես մոդուլ ծրագրի առանձին ֆունկցիա:
    Կոդ:
    var i,j,n,s:integer;
    x:array[1..50,1..50] of integer ;
    y:array[1..50] of integer ;
    {**** Function *******}
    function func ( member:integer ; row:integer; col:integer ):integer;
    begin
    if ( (member mod (row+col)) = 0 ) then func:=member
    else func:=0 ;
    end;
    {**** main program ******}
    begin
    write ('n='); readln (n);
    for i:=1 to n do for j:=1 to n do
    begin write ('x[', i,',',j,']=');readln(x[i,j]); end ;
    s:=0 ;
    for i:=1 to n do for j:=1 to n do
    if ((i<>j) or ((i+j)<>(n+1))) then s:=s+func(x[i,j],i,j) ;
    
    writeln ('s=',s);
    end.
    Կներեք ուշացման համար...
    Հ.Գ. 1ին խնդիրը կանեմ կամ այսօր կամ վաղը առավոտյան...մենակ մի հատ էլի հիշեցրեք էլի
    Loading your personal settings....

  12. #27
    Անդամության թեկնածու
    Գրանցման ամսաթիվ
    20.03.2008
    Գրառումներ
    7
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)

    Re. Pascal-ի կուրսային աշխատանք

    Մեջբերում Սամվել-ի խոսքերից Նայել գրառումը
    Կոդ:
    var i,j,n,s:integer;
    x:array[1..50,1..50] of integer ;
    y:array[1..50] of integer ;
    {**** Function *******}
    function func ( member:integer ; row:integer; col:integer ):integer;
    begin
    if ( (member mod (row+col)) = 0 ) then func:=member
    else func:=0 ;
    end;
    {**** main program ******}
    begin
    write ('n='); readln (n);
    for i:=1 to n do for j:=1 to n do
    begin write ('x[', i,',',j,']=');readln(x[i,j]); end ;
    s:=0 ;
    for i:=1 to n do for j:=1 to n do
    if ((i<>j) or ((i+j)<>(n+1))) then s:=s+func(x[i,j],i,j) ;
    
    writeln ('s=',s);
    end.
    Կներեք ուշացման համար...
    Հ.Գ. 1ին խնդիրը կանեմ կամ այսօր կամ վաղը առավոտյան...մենակ մի հատ էլի հիշեցրեք էլի
    Շաաատ շնորհակալ եմ

  13. #28
    Արգելափակված
    Գրանցման ամսաթիվ
    09.03.2008
    Գրառումներ
    225
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)

    Re. Pascal-ի կուրսային աշխատանք

    Մեջբերում hush-ի խոսքերից Նայել գրառումը
    շատ շնորհակալ եմ, որ ժամանակ ես տրամադրել ու արել էսքանը, բայց չաշխատեց
    ամենացածր մակարդակի պասկալ իմացողը կուղեր այդ սխալները…

  14. #29
    Անդամության թեկնածու
    Գրանցման ամսաթիվ
    20.03.2008
    Գրառումներ
    7
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)

    Re. Pascal-ի կուրսային աշխատանք

    Մեջբերում firewall-ի խոսքերից Նայել գրառումը
    ամենացածր մակարդակի պասկալ իմացողը կուղեր այդ սխալները…
    եթե pascal իմանայի չէի դիմի ձեր օգնությանը…

    Հ.Գ. 1ին խնդիրը կանեմ կամ այսօր կամ վաղը առավոտյան...մենակ մի հատ էլի հիշեցրեք էլի
    էլի հիշեցում

  15. #30
    Անդամության թեկնածու
    Գրանցման ամսաթիվ
    20.03.2008
    Գրառումներ
    7
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)

    Re. Pascal-ի կուրսային աշխատանք

    1ին խնդիրը կանեմ կամ այսօր կամ վաղը առավոտյան...մենակ մի հատ էլի հիշեցրեք էլի [/QUOTE]



Էջ 2 25-ից ԱռաջինԱռաջին 12345612 ... ՎերջինըՎերջինը

Թեմայի մասին

Այս թեման նայող անդամներ

Այս պահին թեմայում են 1 հոգի. (0 անդամ և 1 հյուր)

Համանման թեմաներ

  1. Համակարգչային խնդիրներ
    Հեղինակ՝ Վազգեն1997, բաժին` Համակարգիչ
    Գրառումներ: 148
    Վերջինը: 01.03.2018, 01:55
  2. «Այո», «ոչ», «կարևոր չէ» խնդիրներ
    Հեղինակ՝ Apsara, բաժին` Ժամանց
    Գրառումներ: 1872
    Վերջինը: 30.05.2015, 04:31
  3. խնդիրներ Yandex.ru -ում
    Հեղինակ՝ AMzone, բաժին` Վեբ
    Գրառումներ: 0
    Վերջինը: 01.10.2010, 23:18
  4. pascal-abc.3dn.ru - Pascal ABC ծրագրավորման լեզվին նվիրված կայք
    Հեղինակ՝ GHayk, բաժին` Վեբ կայքերի քննարկում
    Գրառումներ: 3
    Վերջինը: 21.04.2010, 10:56
  5. Խնդիրներ ծրագրավորումից(Pascal կամ QBasic)
    Հեղինակ՝ Սլավիկ, բաժին` Ծրագրավորում
    Գրառումներ: 2
    Վերջինը: 20.02.2010, 21:31

Էջանիշներ

Էջանիշներ

Ձեր իրավունքները բաժնում

  • Դուք չեք կարող նոր թեմաներ ստեղծել
  • Դուք չեք կարող պատասխանել
  • Դուք չեք կարող կցորդներ տեղադրել
  • Դուք չեք կարող խմբագրել ձեր գրառումները
  •