լավ տեստ չեմ արել, որ սխալներ լինի ասա կդզենքԿոդ: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....
1000 դրամով կուրսային եմ գրում Ո՞վ ա ցանկանում ասեք:
Շեղվելով թեմայից...
Ժամանակին մտախում էի թե ինչքան փող կարելի ա ստանալ պոլիտեխնիկի ուսանողներից Ահագին զարմանում էի, որ պրիմիտիվ առաջադրանքների համար մարդիկ պատրաստ են բավականին մեծ(պոլիտեխնիկցու համար) գումարներ տալ: Կազմել էի ցանկ ու ուզում էի բիզնեսը սկսեի, բայց մտափոխվեցի… գնացի մորմալ աշխատանքի
Ինչ կասեք, ամսկան 2000$-ը քիչ փող ա՞…
Բարև ձեզ: Ժողովուրդ, խնդրում եմ օգնեք էլի, եթե ինչ-որ մեկը կարողա էս 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.
Կներեք ուշացման համար...Կոդ: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....
1ին խնդիրը կանեմ կամ այսօր կամ վաղը առավոտյան...մենակ մի հատ էլի հիշեցրեք էլի [/QUOTE]
Այս պահին թեմայում են 1 հոգի. (0 անդամ և 1 հյուր)
Էջանիշներ