Pascal խնդիրներ

[armen9494]

Ժողովուրդ, այս թեմայում գրառում անող կա
Եթե կա, կխնդրեի, որ օգնեիք: Իմ մոտ մի շաաաատ լուրջ պռոբլեմ կա
Ուզում էի գրեի ցանցային խաղ՝ Պասկալով, երկու համակարգչի համար: Կառուցվածքը այսպիսին է՝
մի համակարգիչը լինում է server իսկ մյուսը՝ client : Server-ի մեջ պահվում են ֆայլերը: Client-ը կարողանում է օգտվել այդ ֆայլերից:
Հիմա ամենալուրջ պահը՝ ինչպես անեմ, որ մի ծրագիրը կարողանա գրել, իսկ մյուսը կարդալ ֆայլը (միաժամանակ): Տալիս ա սխալ՝ Error 100: Disc read error
Կարծում եմ, որ սխալն այն պատճառաով է, որ այդ ֆայլը օգտագործվում է մյուս համակարգի կողմից:
Ինչպե՞ս լուծել այս պռոբլեմը, օգնեեեեեք

Նախապես շաաաաաատ շնորհակալություն

[armen9494]

Լավ, ոնց երևում ա էս թեման իրոք իմ մենախոսությունն ա դարձել
Ասեմ, որ արդեն գտա լուծումը: Եթե հանկարծ ինչ-որ մեկը լինի այս թեմայում և նրան հետաքրքրի սա, ասեք, կգրեմ:

[MrKaren]

Հարգելի ծրագրավորողներ, խնդրում եմ օգնեք մի այսպիսի խնդիր գրել Պասկալով...

Երկչափ զանգվածի մեջ հեռացնել բոլոր այն տողերը և սյուները, որոնց հատման տեղում գտնվում են բացասական էլեմենտները։ Տողի և սյունակի հեռացումը կատարել պրոցեդուրայի միջոցով։

եթե խնդիրը բարդ է և ժամանակատար, ապա խնդիրի դիմաց, կվճարեմ....

[armen9494]

Հարգելի ծրագրավորողներ, խնդրում եմ օգնեք մի այսպիսի խնդիր գրել Պասկալով...

Երկչափ զանգվածի մեջ հեռացնել բոլոր այն տողերը և սյուները, որոնց հատման տեղում գտնվում են բացասական էլեմենտները։ Տողի և սյունակի հեռացումը կատարել պրոցեդուրայի միջոցով։

եթե խնդիրը բարդ է և ժամանակատար, ապա խնդիրի դիմաց, կվճարեմ....

MrKaren ջան, խնդիրը մի փոքր ժամանակատար ա, կգրեմ մոտավորապես ինչ պիտի անես, կարծում եմ կհասկանաս:
Ուրեմն դու պիտի ստուգես մատրիցիդ բոլոր տարրերը ու որ տարրը որ բացասական ա դրա տողն ու սյունը պահես մի տեղ (կարող ես մի վեկտորի մեջ պահել, էս առաջին բանն էր որ մտքիս եկավ, հնարավոր է ակումբցիները ավելի խելոք բան առաջարկեն): Տողի ու սյան հեռացումն էլ պիտի կատարես այսպես. էդրա ներքևի տողից (կամ սյունից) սկսած պիտի մի-մի տող վերև բարձրացնես (սյուների դեպքում մի-մի սյուն ձախ տանես), այսինքն էդ տողում գրված յուրաքանչյուր տարր ցիկլով վերագրես վերևի տարրին:
Այ էս բոլդով գրածը պիտի պրոցեդուրայով սարքես. պրոցեդուրան պիտի ընդունի (ու վերադարձնի) քո մատրիցը, մատրիցիդ տողերի ու սյուների քանակը (էս պարտադիր չի, որ վերադարձնի, կարաս ղեկավարող ծրագրիդ մեջ պակասացնես), բացասական տարրիդ գտնվելու տողի ու սյան համարը:

Էս առաջին բանն էր, որ մտքիս եկավ

[ucomik]

ժողովուրդ կարողք օգնեք գրեմ էլի շատա պետք.
Տրված են n բնական թիվը և n տարր պարունակող x վեկտորը:Կազմել այնպիսի նոր Y վեկտորի ստացման և տպման բլոկ-սխեման ու ծրագիը որի տարերը ստացվում են սկզբից վերցնելով այն տարրերը, որոնք մեծ են տրված վեկտորի առաջին պարզ տարից, հետո նրան հավասար տարերը, իսկ վերջում նրանից փոքր տարրերը:

[armen9494]

ժողովուրդ կարողք օգնեք գրեմ էլի շատա պետք.
Տրված են n բնական թիվը և n տարր պարունակող x վեկտորը:Կազմել այնպիսի նոր Y վեկտորի ստացման և տպման բլոկ-սխեման ու ծրագիը որի տարերը ստացվում են սկզբից վերցնելով այն տարրերը, որոնք մեծ են տրված վեկտորի առաջին պարզ տարից, հետո նրան հավասար տարերը, իսկ վերջում նրանից փոքր տարրերը:

Էս դեպքում էլ էլի կարճ կոնկրետ գրեմ լուծման ձևը, չեմ կարող ամբողջը գրել:
Նախ ցիկլով ստուգի x-իդ յուրաքանչյուր տարրը և հենց հանդիպես պարզ տարրի ցիկլդ break արա: Հիմա նորից ցիկլով անցի տարրերի վրայով ու ստուգի՝ եթե էդ տարրից մեծ տարր կա, ապա գրի y վեկտորի հերթական համարով տարրի մեջ: Հետո նորից ցիկլ արա ու ստուգի, եթե էդ տարրին հավասար տարր կա, ապա գրի y վեկտորի հերթական համարով տարրի մեջ: Հետո նորից ցիկլ արա ու ստուգի, եթե էդ տարրից փոքր տարր կա, ապա գրի y վեկտորի հերթական համարով տարրի մեջ:

Պարզ տարրը ստուգի հետևյալ կերպ.
վերցրու թիվը ու սկսի ցիկլով բաժանել իրենից փոքր բոլոր թվերի վրա (մինչև երկուսը ներառյալ): Յուրաքանչյուր դեպքում ստուգի, եթե ինքը մնացորդ չունի, ապա շարունակի բաժանելը:
Օրինակ 5 թվի համար՝
5/4 - մնացորդը 1
5/3 - մնացորդը 2
5/2 - մնացորդը 1

հետևաբար 5-ը պարզ ա:

4 թվի համար՝
4/3 - մնացորդը 1
4/2 - մնացորդը 0

հետևաբար պարզ չի:

[Aperna]

ախպերներ ջան մի հատ սենց խնդիր ունեմ,կարաք օգնեք շատ գոհ կինեմ
տրված է N բնական թիվը և N տար պարունակող X միաչափի զանգվածը:
Կազմել բլոկ սխեմա և որը կհաշվեն և կտպեն y=X1+X1X2+X1X2X3..X1X2X3..Xm արտահայտել արժեքը որտեղ M վերջի բացասական տարի համարն է:
Եթե վեկտորը բացասական է տարր չունի ապա ընդունել է Y=0

[Aperna]

ախպերներ ջան մի հատ սենց խնդիր ունեմ,կարաք օգնեք շատ գոհ կինեմ
տրված է N բնական թիվը և N տար պարունակող X միաչափի զանգվածը:
Կազմել բլոկ սխեմա և որը կհաշվեն և կտպեն y=X1+X1X2+X1X2X3..X1X2X3..Xm արտահայտել արժեքը որտեղ M վերջի բացասական տարի համարն է:
Եթե վեկտորը բացասական է տարր չունի ապա ընդունել է Y=0

ոչմեկ չի կարա օգնի ես հարցում?

[Varzor]

ոչմեկ չի կարա օգնի ես հարցում?

Բլոկ-սեխամ ուղարկեմ, թե ծրագիրը?
Նաև կարող եմ ընդհանուր սկզբունքը նկարագրել:

[Varzor]

Խնդրի բլոկ-սխեման`
Block.jpg

Ծրագիրը`

PROGRAM P1;
USES CRT;
VAR
	i, M, N, y : INTEGER;
	S : REAL; 
	X:ARRAY[1..100] OF INTEGER;
BEGIN
	CLRSCR;
	WRITE ( 'N=' ) ; READLN ( N ) ;
	FOR i:=1 TO N DO BEGIN
		WRITE ( 'X[',i,']=' ) ;
		READLN ( X[i] ) ;
	END ;
	M:=0;
	y:=0;
	FOR i:=1 TO N DO 
		IF ( X[i]<0 ) THEN
			M:=i;
	IF ( M>0 ) THEN BEGIN
		S = 1;
		FOR i:=1 TO M DO BEGIN
			S:=S*X[i];
			y:=y+S;
		END;
	END;
	WRITELN('y=', y);
END.

Հ.Գ.
Արդեն 10 տարի է Pascal-ով բան չէի գրել

[Aperna]

Խնդրի բլոկ-սխեման`
Block.jpg

Ծրագիրը`

PROGRAM P1;
USES CRT;
VAR
	i, M, N, y : INTEGER;
	S : REAL; 
	X:ARRAY[1..100] OF INTEGER;
BEGIN
	CLRSCR;
	WRITE ( 'N=' ) ; READLN ( N ) ;
	FOR i:=1 TO N DO BEGIN
		WRITE ( 'X[',i,']=' ) ;
		READLN ( X[i] ) ;
	END ;
	M:=0;
	y:=0;
	FOR i:=1 TO N DO 
		IF ( X[i]<0 ) THEN
			M:=i;
	IF ( M>0 ) THEN BEGIN
		S = 1;
		FOR i:=1 TO M DO BEGIN
			S:=S*X[i];
			y:=y+S;
		END;
	END;
	WRITELN('y=', y);
END.

Հ.Գ.
Արդեն 10 տարի է Pascal-ով բան չէի գրել

Շաաատ շաաաատ մերսի շատ օգնեցիր ինձ
ես ես պասկալ ծրագրավորման լեզուն տանել չեմ կարում,չնայած եսա հիմքը C++-ի

[ucomik]

չեք ասի թե վոնց կարող եմ պասկալի բլոկ սխեման տեղափոխել word ծրագիրի մեջ?

[armen9494]

չեք ասի թե վոնց կարող եմ պասկալի բլոկ սխեման տեղափոխել word ծրագիրի մեջ?

word-ով գծի

[MrKaren]

Հարգելի ծրագրավորողներ, խնդրում եմ օգնեք մի այսպիսի խնդիր գրել Պասկալով...

Երկչափ զանգվածի մեջ հեռացնել բոլոր այն տողերը և սյուները, որոնց հատման տեղում գտնվում են բացասական էլեմենտները։ Տողի և սյունակի հեռացումը կատարել պրոցեդուրայի միջոցով։

եթե խնդիրը բարդ է և ժամանակատար, ապա խնդիրի դիմաց, կվճարեմ....

Չեք կարող օգնել՞

[Varzor]

Չեք կարող օգնել՞

Մենակ ծրագիրն է պետք, թե բլոկ-սխեման էլ հետը?
Դու ասա, հաստատ կօգնեմ