User Tag List

Էջ 5 25-ից ԱռաջինԱռաջին 12345678915 ... ՎերջինըՎերջինը
Ցույց են տրվում 61 համարից մինչև 75 համարի արդյունքները՝ ընդհանուր 371 հատից

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

  1. #61
    Պատվավոր անդամ Ներսես_AM-ի ավատար
    Գրանցման ամսաթիվ
    25.06.2006
    Գրառումներ
    4,303
    Բլոգի գրառումներ
    1
    Mentioned
    5 Post(s)
    Tagged
    0 Thread(s)
    հարյուր տարի առաջ եմ պասկալով գրել, սենց բան գտա
    http://books.google.com/books?id=XFa...rinter&f=false

    պետք է անես մոտավոր սենց բան:
    Կոդ:
    USES printer;
    
    .....
    Writeln(Lst, 'text printer tpi');
    .....
    Բայց համոզված չեմ որ կաշխատի: Ինչքան հիշում եմ սա աշխատում էի միայն հին տպիչների հետ որոնք միացվում էին LPT պորտի միջոցով, ու plug & play չէին: Առավել ևս հիմիկվա USB-ով տպիչները:

  2. Գրառմանը 1 հոգի շնորհակալություն է հայտնել.

    Nnn (30.09.2010)

  3. #62
    Մշտական անդամ JoKer777-ի ավատար
    Գրանցման ամսաթիվ
    30.08.2010
    Գրառումներ
    158
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)
    Մեջբերում Nnn-ի խոսքերից Նայել գրառումը
    Ցավոք սրտի սխալվում եք: Դեռ չեմ գտել սխալս

    Իսկ կարող եք ասել թե ինչու չի աշխատում
    Nnn ջան, հիմա անցնում ենք պասկալ, բայց դեռ տպիչններին չենք հասել.... երբ իմացա անպայման կգրեմ

  4. Գրառմանը 1 հոգի շնորհակալություն է հայտնել.

    Nnn (30.09.2010)

  5. #63
    Լիարժեք անդամ Nnn-ի ավատար
    Գրանցման ամսաթիվ
    28.06.2010
    Հասցե
    Վանաձոր
    Տարիք
    32
    Գրառումներ
    91
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)
    Մեջբերում Ներսես_AM-ի խոսքերից Նայել գրառումը
    հարյուր տարի առաջ եմ պասկալով գրել, սենց բան գտա
    http://books.google.com/books?id=XFa...rinter&f=false

    պետք է անես մոտավոր սենց բան:
    Կոդ:
    USES printer;
    
    .....
    Writeln(Lst, 'text printer tpi');
    .....
    Բայց համոզված չեմ որ կաշխատի: Ինչքան հիշում եմ սա աշխատում էի միայն հին տպիչների հետ որոնք միացվում էին LPT պորտի միջոցով, ու plug & play չէին: Առավել ևս հիմիկվա USB-ով տպիչները:
    հա ճիշտ ես, բայց հին տպիչ էլ ունեմ, ուղղակի համապատասխան շինա չունեմ

  6. #64
    Լիարժեք անդամ n1djhayko-ի ավատար
    Գրանցման ամսաթիվ
    09.08.2010
    Տարիք
    31
    Գրառումներ
    133
    Բլոգի գրառումներ
    1
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)
    Ժող ջան կխնդրեի կաազմել այս(տրված է a,b,c թվերը ասումա>եթե այդպիսի երկարություն ունեցող հատվածներով հնարավոր է կառուցել եռանկյունի ,ապա կարտածեն 'y=1',հակառակ դեպքում 'y=2' արտահայտությունը) խնդրի բլոկ սխեման և ծրագիրը

  7. #65
    Պատվավոր անդամ BOBO-ի ավատար
    Գրանցման ամսաթիվ
    04.09.2006
    Տարիք
    33
    Գրառումներ
    3,953
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)
    var a,b,c:real;
    begin
    read(a,b,c);
    if (a+b>c) and (a+c>b) and (b+c>a) then
    write("y=1") else write("y=2");
    end.

  8. #66
    Պատվավոր անդամ BOBO-ի ավատար
    Գրանցման ամսաթիվ
    04.09.2006
    Տարիք
    33
    Գրառումներ
    3,953
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)
    ավելի ճիշտ սենց

    var a,b,c,y:real;
    begin
    read(a,b,c);
    if (a+b>c) and (a+c>b) and (b+c>a) then y:=1 else y:=2;
    write("y=",y)
    end.

  9. #67
    Անդամության թեկնածու
    Գրանցման ամսաթիվ
    05.07.2010
    Գրառումներ
    1
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)
    ժող. կարող եք մենյուի ծրագիր գրել?

  10. #68
    Լիարժեք անդամ n1djhayko-ի ավատար
    Գրանցման ամսաթիվ
    09.08.2010
    Տարիք
    31
    Գրառումներ
    133
    Բլոգի գրառումներ
    1
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)
    Կխնդրեի կազմել (տրված է a,b,c,d թվերը ,դասավորել աճման կարգով) բլոկ սխեման և ծրագիրը,,,նախապես շնորհակալ եմ

  11. #69
    Լիարժեք անդամ Nnn-ի ավատար
    Գրանցման ամսաթիվ
    28.06.2010
    Հասցե
    Վանաձոր
    Տարիք
    32
    Գրառումներ
    91
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)
    Մեջբերում n1djhayko-ի խոսքերից Նայել գրառումը
    Կխնդրեի կազմել (տրված է a,b,c,d թվերը ,դասավորել աճման կարգով) բլոկ սխեման և ծրագիրը,,,նախապես շնորհակալ եմ
    program NMN;
    uses crt;
    var
    i,j:integer;
    m:array[1..100] of integer; {cankutyan depqum real}
    z:integer; {kaxvat verevinic}
    begin
    writeln('Give me please the number for zangvat and the zangvat : ');
    readln(n);
    for i:=1 to n do read(m[i]);

    for j:= 1 to n do
    for i:=1 to n-1 do
    if m[i]> m[i+1] then begin
    z:=m[i];
    m[i]:=m[i+1];
    m[i+1]:=z;
    end;

    for i:=1 to n do write(m[i],' ');

    readln(j);
    end.

    ծրագրի արտաքին տեսքի սիրունությունը քեզ եմ թողնում/բլոկ-սխեման էլ/
    քո խնդրի համար n=4

  12. #70
    Լիարժեք անդամ n1djhayko-ի ավատար
    Գրանցման ամսաթիվ
    09.08.2010
    Տարիք
    31
    Գրառումներ
    133
    Բլոգի գրառումներ
    1
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)
    Մեջբերում Nnn-ի խոսքերից Նայել գրառումը
    program NMN;
    uses crt;
    var
    i,j:integer;
    m:array[1..100] of integer; {cankutyan depqum real}
    z:integer; {kaxvat verevinic}
    begin
    writeln('Give me please the number for zangvat and the zangvat : ');
    readln(n);
    for i:=1 to n do read(m[i]);

    for j:= 1 to n do
    for i:=1 to n-1 do
    if m[i]> m[i+1] then begin
    z:=m[i];
    m[i]:=m[i+1];
    m[i+1]:=z;
    end;

    for i:=1 to n do write(m[i],' ');

    readln(j);
    end.

    ծրագրի արտաքին տեսքի սիրունությունը քեզ եմ թողնում/բլոկ-սխեման էլ/
    քո խնդրի համար n=4
    Շնորհակալ եմ շատ,բայց մենք հլը բաներ կա քո գրածից որ հլը չենք անցել...

  13. #71
    ginger Dayana-ի ավատար
    Գրանցման ամսաթիվ
    06.10.2006
    Գրառումներ
    5,421
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)
    Ժող, դադարեք ուրիշի փոխարեն խնդիր լուծել, դրանով դուք էդ մարդուն վատություն եք անում: Խնդրի մասին հարցեր տվողներ, դադարեք ուրիշի խելքով խնդիրներ լուծել, դրանով դուք դեգրադացիայի եք ենթարկում ինքներդ ձեզ: Ավելի լավ է ձեր խելքով 40 ստանաք, քան ուրշի խելքով՝ 100:

  14. Գրառմանը 2 հոգի շնորհակալություն են հայտնել.

    VisTolog (09.10.2010), Արևհատիկ (11.10.2010)

  15. #72
    Լիարժեք անդամ n1djhayko-ի ավատար
    Գրանցման ամսաթիվ
    09.08.2010
    Տարիք
    31
    Գրառումներ
    133
    Բլոգի գրառումներ
    1
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)
    Շնորհակալ եմ DAYANA ջան խորհուրդի համար ,ուղղակի արդեն 2 ամիսա դասախոսը տվելա լուծենք ու ոչմեկի մոտ չի ստացվում ,2 շաբաթից էլ միջանկյալնա չգիտեմ ինչ եմ անելու...

  16. #73
    ginger Dayana-ի ավատար
    Գրանցման ամսաթիվ
    06.10.2006
    Գրառումներ
    5,421
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)
    Մեջբերում n1djhayko-ի խոսքերից Նայել գրառումը
    Շնորհակալ եմ DAYANA ջան խորհուրդի համար ,ուղղակի արդեն 2 ամիսա դասախոսը տվելա լուծենք ու ոչմեկի մոտ չի ստացվում ,2 շաբաթից էլ միջանկյալնա չգիտեմ ինչ եմ անելու...
    Շատ ներողություն, բայց էդ ո՞ր ֆակուլտետում եք ու որ ինսիտուտում, որովհետև կներես, բայց էստեղ խնդիր չկա, որ ամբողջ կուրսն էլ չկարողանա լուծել: Եթե ձեզ ընդհանրապես ոչինչ չեն բացատրել, դա ուրիշ խնդիր է պիտի դասախոսի աչքերը հանեք հարցեր տալով, ուրիշ տարբերակ չկա: Ինձ ու ցանկացած մեկի համար դժվար չի էս տեսակ խնդիրը լուծել, բայց դրանից ոչ ես եմ օգտվում , ոչ դու: Անիմաստ ժամանակի վատնում ա: Նեղանալ չկա:

  17. Գրառմանը 2 հոգի շնորհակալություն են հայտնել.

    Armen.181 (15.10.2010), Արևհատիկ (11.10.2010)

  18. #74
    insidious VisTolog-ի ավատար
    Գրանցման ամսաթիվ
    06.10.2007
    Հասցե
    Էլի հին տները
    Գրառումներ
    8,294
    Mentioned
    1 Post(s)
    Tagged
    0 Thread(s)
    Մեջբերում n1djhayko-ի խոսքերից Նայել գրառումը
    Շնորհակալ եմ DAYANA ջան խորհուրդի համար ,ուղղակի արդեն 2 ամիսա դասախոսը տվելա լուծենք ու ոչմեկի մոտ չի ստացվում ,2 շաբաթից էլ միջանկյալնա չգիտեմ ինչ եմ անելու...
    2 ամսում հնարավոր չէ՞ր դասախոսից հարցնել:


  19. #75
    Լիարժեք անդամ n1djhayko-ի ավատար
    Գրանցման ամսաթիվ
    09.08.2010
    Տարիք
    31
    Գրառումներ
    133
    Բլոգի գրառումներ
    1
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)
    Հարցնում ենք ասումա չարչարվեք,ես էլ չարչարվում եմ բայց միշտ կիսատ պռատա լինում..

Էջ 5 25-ից ԱռաջինԱռաջին 12345678915 ... ՎերջինըՎերջինը

Թեմայի մասին

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

Այս պահին թեմայում են 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

Էջանիշներ

Էջանիշներ

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

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