Pascal խնդիրներ

[Արամ]

իհարկէ։ շատ վատ է որ հայաստանում (եւ երեւի այլ շատ երկրներում) պասկալին լուրջ տեղ չեն տալիս, պասկալը ասենք Սի-ից պակաս լեզու չի (նոյնիսկ աւել ա ոմն ֆիչըր-ներով), ու նոյնիսկ շատ հզօր գրադարաններ ունի, ինչպէս նաեւ մի ամբողջ քաղաքակրթութիւն է լեզուի։
շատ մոդա է ԳՈւԻ ծրագիր գրել C++-ով եւ Qt-ով, բայց ասենք նոյն բանը շատ աւելի հեշտ (եւ աւելի փոխադրելի (portable)) է անել Object Pascal-ով եւ Lazarus-ով (։

Անիմաստ եմ համարում, շատ մանրանալ թե ինչու Pascal-ը "մեռած" լեզու եմ համարում, բայց մի քանի բան այնուամենայնիվ նշեմ․ typecast չկա, array-ի չափսը array-ի տիպի մաս ա կազմում, static փոփոխականներ չկան, էլ չեմ ասում Pascal-ի I/O Operation-ների մասին ( record - oriented ա ), if ... then begin ... end ??? if { } !!!

Սա մի քիչ մասնագիտական, բայց եկեք մի քիչ նայենք թե որտե՞ղ են ընդհանարապես Pascal-ով աշխատանք տրամադրում․
Օրինակ՝
https://careers.stackoverflow.com/jo...rchTerm=Pascal
http://www.indeed.com/q-Pascal-Developer-jobs.html
http://www.simplyhired.com/k-pascal-developer-jobs.html

Ինձ թվում ա կարիք չկա շարունակելու։

Եթե գրածդ վերաբերվում էր X-ի ֆակտորիալ հաշվելուն, հա կարող ա Pascal-ը ոչ մի բանով չի զիջում։
Կամ, եթե գրածդ վերաբերվում ա 1980-1990 ական թվականներին, էլի համաձայն եմ հետդ, Pascal-ը ու C-ին գրեթե հավասար էին։

Հիմնական պատճառը, որ էդ թվականներին C-ին առաջ գնաց Pascal—ից 2-ն էին։
1․ Unix-ը, որը C-ով ա գրվել։
2․ Apple-ը հրաժարվեց Pascal-ից ու անցավ C-ի ( հետո էլ objective c-ի )

[antranigv]

նախ՝ արդար չի իհարկէ ասածդ, քանի որ դու վերցնում համեմատում ես մաքուր պասկալը ժամանակակից սի-ի հետ ։Ճ ասենք մաքուր Սի-ում նոյնիսկ անփոփոխներ չկային, կային մենակ #DEFINE իսկ մաքուր պասկալում (որը անկապութիւն լինելով, ու մաքուր սի-ից աւելի հին լինելով) կար const ։Ճ ժամանակակից օբջեկտ պասկալը/դելֆին նոյնիսկ անցնում է Սի-ից։

յետոյ, շատ սխալ է Պասկալի համար ասել «այս եւ այն ֆիչըրները չկան», ոչ, պասկալը այդ լեզուն չի, ինքը C# չի, որ ամէն մի ֆունկցիա խցկեն մէջը, less is more ես էլ պէտք է ասե՞մ որ Սի-ն չունի with statement, իհարկէ ոչ, երբ անում ենք համեմատութիւն, պէտք է համեմատենք այն ինչ երկուսը ունեն, ոչ թէ ով է միւսից աւել/պակաս։ սինթաքսի պահով էլ ինքը աւելի էլեգանտ ա, ասենք նոյն Սի-ի հիմնադիրները երբ անցան Go-ի, արդէն շատ Վիրտեան բաներ են օգտագործում «:=, », օրինակ ես Սի սովորեցի, յետոյ մի օր որոշեցի կրկին կարդամ պասկալը, Սիրիայի օրերս էի յիշել, ու begin endը շատ աւելի յարմար է ասենք, աչքդ տեսնում է, իսկ { } աւելի հաւանական է որ փախի աչքերիցդ նոյնիսկ սինթաքս հայլայթինգ-ով, դէ ուր է ամբողջ բառը, ուր է մի հատ տառը։ դէ մէկը պէտք էր մի քանի տարում ՕՀ-ի համար լեզու գրէր, իսկ միւսը գիտնականի կողմից գրուած լեզու է, իհարկէ մի քանի տարում ՕՀ-ի համար գրած լեզուն աւելի լաւ պէտք է լինի քան գիտնականի լեզուն ։Ճ ի դէպ Սի-ն մինչեւ այսօր նոյնիսկ իւնիկոդի հետ է դեռ խնդիր անում ։)))

ես չեմ ասում Պասկալը աստուածային լեզու է, ո՛չ, լիքը թերութիւններ ունի, բայց ի տարբերութիւն Սի-ի, իր հեղինակն ասել է որ այն այդքան էլ լաւ լեզու չէ, եւ ստեղծել է Modula-2, Oberon, Oberon-2, որը կարծում դրանք են աստուածային, եւ կրկնում եմ, խօսքս լեզուի մասին է, ոչ թէ գրադարանների, դոկիւմենդացիայի, եւ իհարկէ աշխատանքի ։))

Սի-ի յաջողութիւնը, այո, UNIX-ն էր, իսկ հիմայ էլ GNU/Linux-ը եւ մնացած բոլոր Իւնիքսանման ՕՀ-ները, բայց փաստացի Lazarusը շատ հզօր թուլ է,որը կախուած չէ նոյնիսկ պլատֆորմից (։ յիշեցնեմ որ VS-ից յետոյ ամենաշատ վաճառուած (ու աւելի թանկ) IDE-ն իր գրադարաններով եւ թուլերով դա միշտ էլ Դելֆին է եղել

աշխատանքի պահը ցաւալի է, ասենք ես եւրոպայում եմ, քանի որ հայաստանում չեմ գտնի աշխատանք եթէ գիտեմ պասկալ, օբերոն, ադա (ի դէպ ադան ամենալուրջ լեզուն է որ տեսել եմ), իսկ չեն էլ մտածում որ պասկալ սովորողը ոչ թէ միայն շատ հանգիստ Սի կը սովորի, այլ այն սխալները որ անում են մարդիկ Սի սովորելիս, Պասկալի ծրագրաւորողը չի անի, ասենք դիֆայն չի օգտագործի կոնստի տեղ (քանի որ պասկալի մշակոյթում չկայ դիֆայն)։ բայց մէկ է, Հայաստանում շատ են թերագնահատում պասկալին ։))) մի «փոքր» ցուցադրութիւն՝ http://wiki.freepascal.org/Lazarus_Application_Gallery

երկար թեմայ է քննարկման, եթէ աշխատանքը եւ շուկան դնենք մի կողմ, շատ աւելի պարզ կը լինի, բայց դէ այսօր բոլոր աշխատանքի համար են ծրագրաւորող, ոչ թէ ասենք նստեն եւ զուտ գիտական փորձ անելու համար pascal-to-oberon կամ pascal-to-c կոմպիլյատոր գրեն

[Արամ]

Անդրանիկ ջան, ինքդ էիր ասում Pascal-ը ֆիչըներով C-ից ավել ա, ու հիմա ինձ ասում ես, որ ֆիչըրներով լեզուն գնահատելը սխալ է։ Հետո, իմ թվարկածները քո օրինակ բերած with-ի հետ ընդհանրապես կապ չունեն, քո օրինակ բերածը ընդամենը syntax-sugar ա, դա լեզվի ֆունդամենտալ հնարավորթյուն չի։ Իսկ, քո array-ի տիպը փոփոխվում ա կախված array -ի չափսերից, սա ֆունդամենտալ խնդիր ա, կամ երբ որ լեզուն թույլ չի տալիս մի տիպից տեղափոխվես մի այլ տիպի, կամ սահմանես տիպ-ից տիպ փոփոխությունը, կամ static փոփոխականները ֆունդամենտալ խնդիրներ են :

Սի-ն մինչեւ այսօր նոյնիսկ իւնիկոդի հետ է դեռ խնդիր անում - լավ էլի․․․խնդիրներ ունի ոչ թե C-ին այլ ոչ-unicode գրադարաների հետ unicode ծրագրով աշխատելը(կամ հակառակը) որը լրիվ տրամաբանական ա

Սինտակսի պահով։ Եղբայր ասում ես less is more, երբ պետք ա ? Բա խի չի սինտակսի դեպքում էլ less is more-ը աշխատում։
Ցանկություն չունեմ սինտակսը քննարկել, որովհետև ընդամենր 3 տողովդ ժամանակակից լեզուների ստանդարտները լրիվ քարովը տվեցիր։

Եթե Պասկալում դիֆայն չկա, էդ մինուս ա, ոչ թե պլյուս․․․․ նայեք pascal-ում define չկա և դուք C-ի սովորելիս ընդհանրապես դիֆայնը չեք օգտագործի ։յահօօ։ Իմաստը՞։ Նույն հաջողությամբ կարելի էր, որպես արգումենտ բերել, որ չգիտեմ C-ի իմացողը C# հեշտ կսովորի, որովհետև տողի վերջում կետ ստորակետ դնել գիտի․․․։ ՃՃՃ

Զուտ գիտական փորձ անելու մասին մենք չենք խոսում Անդրանիկ ջան։ Զուտ գիտական փորձի համար կարող ես pascal-ը թարգմանել C#-ի, pascal-ում static փոփոխականներ ավելացնես, կամ ասենք նոր լեզու գրես։ Ես էլ մեծ հաճույքով նման "բզբզ" բաներ անում եմ, բայց դա ի՞նչ կապ ունի լեզվի գնահատակնի մասին։ ( Ու իմ ու քո բերած օրինակները, շա՜՜տ հեռու են գիտական փորձերից ՃՃՃ )

Ասում ես, աշխատանքը, շուկան դնենք մի կողմ, feature-ները կապ չունեն, pascal իմացողը C էլ կսովորի, with-ի մասին ես ասում։ Հազար ներեղություն դու սրանք համարում ես առգումենտներ ?!
Էն որ ոչ աշխատանք կա, ոչ շուկա , ոչ ներկայիս պահանջներին բավարարող feature-ներ, էս ամենինչը վկայում ա էն մասին, որ Pascal-ը մեռած լեզու ա։ Ես ուրիշ բան չեմ ասել ))

Հ․Գ․ Անդրանիկ ջան միգուցե դա քո գրելավոճն է, բայց կխնդրեմ գրածներիս դոգմատիկ գնահատականներ չտաս։ Եթե ինչ որ բան սխալ ես համարում, ասա որ սխալ ես համարում ու պարզաբանի ինչի համար։ Հակառակ դեպքում մեր խոսակցությունը կվերածվի ավելորդ ժամանակի կորստի։ Շնորհակալություն։

[Linka25]

Եթե կարող եք խնդրում եմ օգնեք ինձ լուծել այս խնդիրը

Թվով N նախադասություններ գրանցել առանձին-առանձին տեքստային ֆայլում: Տրված A նախադասության համար պահանջվում է ֆունկցիայի կիրառմամբ պարզել, թե այդ նախադասության յուրաքանչյուր բառ ֆայլի որ նախադասությունում է հանդիպում:
Տեսատիպի էկրանի վրա գրաֆիկական ռեժիմում արտածել ֆայլի բոլոր նախադասությունները, որոնցում հանդիպած A-ի բառերը գունափոխել:

[Աթեիստ]

Եթե կարող եք խնդրում եմ օգնեք ինձ լուծել այս խնդիրը

Թվով N նախադասություններ գրանցել առանձին-առանձին տեքստային ֆայլում: Տրված A նախադասության համար պահանջվում է ֆունկցիայի կիրառմամբ պարզել, թե այդ նախադասության յուրաքանչյուր բառ ֆայլի որ նախադասությունում է հանդիպում:
Տեսատիպի էկրանի վրա գրաֆիկական ռեժիմում արտածել ֆայլի բոլոր նախադասությունները, որոնցում հանդիպած A-ի բառերը գունափոխել:

Ես հիմա պասկալից շատ քիչ բան եմ հիշում։
Ինչքանը կարում ես, գրի, կողքից օգնելով հասնենք արդյունքին։

[meryyyy]

Բարև Ձեզ կներեք pascalic խնդիր ունեմ կոգնեք գրեմ

[Աթեիստ]

Բարև Ձեզ կներեք pascalic խնդիր ունեմ կոգնեք գրեմ

Ողջույն, դժվար թե ձեր փոխարեն գրենք, բայց եթե գրեք խնդիրն ու ասեք, թե ինչքանն եք կարողանում, իսկ ինչը՝ ոչ, ով որ գիտի պասկալ, կփորձի օգնել։

[աղջնակ]

բարև Ձեզ,,,,,,մի խնդրանք ունեմ եթե դժվար չի կօգնեք լուծեմ պասկալով խնդիրը,,,,նախապես շնորհակալություն ուղղակի շատ շտապ է անհրաժեշտ

1, տրված է 0 և 1-ից բաղկացած երկչափ զանգված:Ուղանկյուն կանվանենք 1ով լրացված զանգվածի մաս:Հայտնի է որ ուղղանկյունները իրար հետ չեն հպվում:որոշել ուղանկյունների քանակը:

2,տրված է տեքստ:Արտածել բոլոր բառերը թողնելով բառի մեջ յուրաքանչյուր տառի միայն առաջին մուտքը:

[Արամ]

բարև Ձեզ,,,,,,մի խնդրանք ունեմ եթե դժվար չի կօգնեք լուծեմ պասկալով խնդիրը,,,,նախապես շնորհակալություն ուղղակի շատ շտապ է անհրաժեշտ

1, տրված է 0 և 1-ից բաղկացած երկչափ զանգված:Ուղանկյուն կանվանենք 1ով լրացված զանգվածի մաս:Հայտնի է որ ուղղանկյունները իրար հետ չեն հպվում:որոշել ուղանկյունների քանակը:

2,տրված է տեքստ:Արտածել բոլոր բառերը թողնելով բառի մեջ յուրաքանչյուր տառի միայն առաջին մուտքը:

Իսկ ի՞նչ եք փորձել անել։ Ինչը՞ չի ստացվել։

[աղջնակ]

դե պասկալ այդքանել լավ չգիտեմ ու կուրսային աշխատանք է տրված ընդհանութ գաղափար ունեմ բարդ խնդիրներ չեմ կարող լուծել.....ներկա պահին խնդրի պահանջը չեմ հասկնաում

[Աթեիստ]

դե պասկալ այդքանել լավ չգիտեմ ու կուրսային աշխատանք է տրված ընդհանութ գաղափար ունեմ բարդ խնդիրներ չեմ կարող լուծել.....ներկա պահին խնդրի պահանջը չեմ հասկնաում

Մի քիչ վերև արդեն գրել եմ։

Ողջույն, դժվար թե ձեր փոխարեն գրենք, բայց եթե գրեք խնդիրն ու ասեք, թե ինչքանն եք կարողանում, իսկ ինչը՝ ոչ, ով որ գիտի պասկալ, կփորձի օգնել։

Ընդունում եմ, որ խնդիրները լավ չեն շարադրված։
Փորձեմ բացատրել թե ես ինչ եմ հասկացել։

1. Խնդիրը շատ վատ ա շարադրած, կխնդրեի տեղադրել ամբողջական տարբերակը, ենթադրում եմ, որ ինչ որ բան թերի ա գրած։

110100011000
110100011010
110000000010

Էս օրինակում տեսնում ենք 4 ուղղանկյուն։ Առաջինը՝ 2x3, երկրորդը՝ 1x2, երրորդը՝ 2x2, չորրորդը՝ 1x2։

2. Ունենք նախադասություն, որի բառերում կան կրկնվող տառեր։ Հարկավոր է ամեն բառում թողնել ամեն տառից մի հատ։
Օրինակ՝ «բոքոնիկը գնաց գազանանոց։»-ւ կդառնա «բոքնիկը գնաց գազնոց»։

Հիմա փորձեք գտնել, շարադրել էս խնդիրների լուծման ալգորիթմը, հետո դա փորձել ներկայացնել պասկալի լեզվով, ու ասել, թե կոնկրետ ինչը չեք կարողանում։ Մենք էլ փորձենք օգնել։

[աղջնակ]

Մի քիչ վերև արդեն գրել եմ։



Ընդունում եմ, որ խնդիրները լավ չեն շարադրված։
Փորձեմ բացատրել թե ես ինչ եմ հասկացել։

1. Խնդիրը շատ վատ ա շարադրած, կխնդրեի տեղադրել ամբողջական տարբերակը, ենթադրում եմ, որ ինչ որ բան թերի ա գրած։

110100011000
110100011010
110000000010

Էս օրինակում տեսնում ենք 4 ուղղանկյուն։ Առաջինը՝ 2x3, երկրորդը՝ 1x2, երրորդը՝ 2x2, չորրորդը՝ 1x2։

2. Ունենք նախադասություն, որի բառերում կան կրկնվող տառեր։ Հարկավոր է ամեն բառում թողնել ամեն տառից մի հատ։
Օրինակ՝ «բոքոնիկը գնաց գազանանոց։»-ւ կդառնա «բոքնիկը գնաց գազնոց»։

Հիմա փորձեք գտնել, շարադրել էս խնդիրների լուծման ալգորիթմը, հետո դա փորձել ներկայացնել պասկալի լեզվով, ու ասել, թե կոնկրետ ինչը չեք կարողանում։ Մենք էլ փորձենք օգնել։

հենց դա է որ պարզ չի խնդիրը դրա համարեմ դժվարացել......ես կփորցեմ մի հատ նորից ճշտել կամ ինչ որ ուղություն իմանալ լուծելու... ու ասեմ Ձեզ որտեղ եմ դժվարանում.....շատ շնորհակալեմ Ձեր գրացնել ինչ որ հւուշեմ է փորցեմ նորից հասկնալ.

[աղջնակ]

կարող եք օգնել ինչ որ բաներ խնդիրների վերաբերյալ ես ճշտելեմ

[Աթեիստ]

կարող եք օգնել ինչ որ բաներ խնդիրների վերաբերյալ ես ճշտելեմ

Ասա թե ինչ ես ճշտել, տեսնենք ինչքանով ա խնդիրը դառնում ավելի հասկանալի։
Մնացածը արդեն գրել եմ։

Փորձում եք գտնել, շարադրել խնդիրների լուծման ալգորիթմը, հետո դա փորձել ներկայացնել պասկալի լեզվով, ու ասել, թե կոնկրետ ինչը չեք կարողանում։ Մենք էլ փորձենք օգնել։

[աղջնակ]

Ասա թե ինչ ես ճշտել, տեսնենք ինչքանով ա խնդիրը դառնում ավելի հասկանալի։
Մնացածը արդեն գրել եմ։

Փորձում եք գտնել, շարադրել խնդիրների լուծման ալգորիթմը, հետո դա փորձել ներկայացնել պասկալի լեզվով, ու ասել, թե կոնկրետ ինչը չեք կարողանում։ Մենք էլ փորձենք օգնել։

2. խնդիրը.....քանի որ մեզ տրված է տեքստ իսկ յուրաքանչյուր բառ հայտնաբերվելու է նրան կից բացատանիշերի շնորհիվ աըդ դեպքում տողի վերջում ավելացվում է բացատանիշ
նախ եթե պատճենահանենք և պահենք BAR փոփոխականի մեջ առաջին պատահած բառը որը S տողի առաջին սիմվոլից սկսած մինչև առաջին հանդիպած բացատանիշի կարգահամարը ընգրկված սիմվոլների հաջորդականությունն է… եթե փորձենք օգտվել POS ֆունկցիայից և K ով նշանակենք կրկնվող տառերը կունենաք POS(K,S) տվյալ բառը արտածելուց հետո այն հեռացնենք տողից DELETE (S,1, LENGHT(BAR)+1 իրեն կից բացատանիշի հետ միասին բառերը կարեղեն իրարից անջատված լինել մի քանի բացատանիշերով որոնք անհրաժեշտ է հեռացնել WHILE S[1]=''DO DELETE (S,1,1)........այսքանն եմ մտածել փորձել եմ գրել պասկալով մտածում եմ որ սխալ եմ նշանակել կրկնվող տառերը էդ չգիդեմ ոնց անեմ

PROGRAM OR_2;
VAR S,BAR:STRING; K:INTEGER;
BEGIN
READLN(S);
S:S+' ';
WHILE S<>'' DO
BEGIN
BAR:= COPY (S,1, POS(K,S));
DELETE (S,1, LENGHT(BAR)+1);
WHILE S[1]=''DO DELETE (S,1,1)
END;
WRITELN(BAR)
END.