Pascal խնդիրներ

[Հրատացի]

Կուրսային հանձնելու ժամանակն ա իսկ ես Պասկալից տեղյակ չեմ:Խնդում եմ օգնեք:

Տրված է n բնական թիվը և n տարր պարունակող x վեկտորը:Կազմել այնպիսի նոր y վեկտորի ստացման և տպման բլոկ-սխեման ու ծրագիրը,որի տարրերը ստացվում են վեկտորի ամեն 3-ի աստիճան հանդիսացող տարրից հետո ավելացնելով մեկ հատ 2 արժեք ունեցող տարր:

[Ռեդ]

Կուրսային հանձնելու ժամանակն ա իսկ ես Պասկալից տեղյակ չեմ:Խնդում եմ օգնեք:

Տրված է n բնական թիվը և n տարր պարունակող x վեկտորը:Կազմել այնպիսի նոր y վեկտորի ստացման և տպման բլոկ-սխեման ու ծրագիրը,որի տարրերը ստացվում են վեկտորի ամեն 3-ի աստիճան հանդիսացող տարրից հետո ավելացնելով մեկ հատ 2 արժեք ունեցող տարր:

Պասկալ հլա որ չեմ մոռացել
Անհասկանալի բան լինի ասա բացատրեմ

Program REn005;
const n=20;
var i,y_size,j,cur:integer;
    x:array[1..n] of integer;
    y:array[1..2*n] of integer;

function baj(m:integer; p:integer):boolean;
{stugum e ardyoq m tiv@ bajanvum e p tvi vra aranc mnacordi}
begin
if m=p*trunc(m/p) then baj:=true else baj:=false;
end;

function ast(m:integer; p:integer):boolean;
{stugum e ardyoq m tiv@ p tvi astichan e te voch ev veradarznum}
begin
if m=1 then
   ast:=true
else
   if not baj(m,p) then
      ast:=false
   else
       ast:=ast(trunc(m/p),p);
end;

begin
y_size:=0;
for i:=1 to n do
begin
     readln(x[i]);
     inc(y_size);
     y[y_size]:=x[i];
     if ast(x[i],3) then
     begin
          inc(y_size);
          y[y_size]:=2;
     end;
end;
writeln;
for i:=1 to y_size do writeln(y[i]);
readln;
end.

[Հրատացի]

Որ մի երկու խոսկով բացատրես շատ գոհ կլինեմ

[Ռեդ]

Որ մի երկու խոսկով բացատրես շատ գոհ կլինեմ

օու քեյ
Նախ հայտարարման մասին

y:array[1..2*n]

վերցրել եմ 2*n չափի վեկտոր, որովհետև մաքսիմալ դեպքում /այսինքն երբ x-ի ամեն մի տարր 3-ի աստիճան է/ y-ի երկարությունը 2*n կլինի
baj ֆունկցիայի իրականացումը
Ֆունկցիան պետք է պարզի, թե արդյոք m թիվն առանց մնացորդի բաժանվում է p-ի վրա:

m=p*trunc(m/p)

սրանով մենք ստուգում ենք պահանջվող պայմանը: trunc-ը, գիտես, ամբողջ մաս վերցնելու ֆունկցիան ա: Որ մի քանի անգամ ստուգես, կտեսնես, որ ճիշտ է
ast ֆունկցիայի իրականացումը
Ֆունկցիան պետք է պարզի՝ արդյո՞ք m թիվը p թվի աստիճան է /տվյալ խնդրի համար p=3/
Իրականացումը կատարվում է ռեկուրսիայի եղանակով: Եթե ծրագրավորում չգիտես ընդհանրապես, ռեկուրսիան կարող է դժվար թվալ: Բայց որ մի քանի անգամ ուշադիր կարդաս ֆունկցիան, կհասկանաս:
Հիմնական ծրագիրը
Դե էս մեկը ծրագրի թերևս ամենահեշտ մասն է
Նախօրոք պահում ենք y_size=0 արժեքով փոփոխական, որը ցույց է տալիս y-ի տվյալ դիրքաթիվը /այսինքն վերջին լրացված դիրքը/ :
Այնուհետև կատարում ենք n հատ թվերի մուտքագրում: Յուրաքանչյուր մուտք արված թիվ "գցում ենք" y-ի մեջ inc(y_size); y[y_size]:=x[i]; տողերի օգնությամբ

if ast(x[i],3) then
begin
inc(y_size);
y[y_size]:=2;
end;

Այս մասը ստուգում է եթե թիվը 3-ի աստիճան է ապա y-ում ավելացնում ենք 2 վերջին լրացված դիրքին հաջորդող /առաջին չլրացված/ դիրքում:
Դրան հաջորդող տողերը կատարում են y վեկտորի արտածում
Վերջ, մի քիչ երկար ստացվեց, բայց դե,
Դե հիմա ինձ ասա
1. քո մոտ աշխատե՞ց
2. հասկացա՞ր լրիվ ասածս

[BOBO]

Տրված ե n բնական թիվ և n տարր պարունակող միաչափ զանգված: Զագգվածից հեռացնել այն տարրերը որոնք երկուսից ավել անգամ են կրկնվում:
Ով կլուծի?

[Կաթիլ]

Ժողովու՜րդ, եթե հնարավոր է ծրագիրը գրեք էլի՜
Տրված է A=[aij]nn մատրիցան, հաշվել A մատրիցի որոշիչը (դետերմինանտը) Գաուսի մեթոդով:

[freethinker]

Կաթիլ, եթե ասես Գաուսի մեթոդը որնա կարողա օգնենք

[Կաթիլ]

Կաթիլ, եթե ասես Գաուսի մեթոդը որնա կարողա օգնենք

Քանի որ չստացվեց հավաքել տեքստը, տեղադրում եմ նկարի ձևով
Նախապես շնորհակալություն

[freethinker]

Կաթիլ , ցավոք, Pascal-ի իմ ունեցած գիտելիքները բավարար չեն լուծելու համար (8 տարում համարյա ամեն ինչ մոռացել եմ)

[Cyborg]

Այսոր սկսեցի pascal սովորել ու գրեցի մի հատ ծրագիր
Program Anunt_Incha;
const
anungreq='Anunt incha?';
Barev='Barev ';
var A:string;
begin
WriteLn(Anungreq);
read (A);
WriteLn(Barev+A);
end.
կոմպիլացիաից հետո հարձը տալիսա:
Anunt incha?
Tiko
Ու ստեղ ծրագիրը պագվումա առանց բարեվելու:

[Ներսես_AM]

Այսոր սկսեցի pascal սովորել ու գրեցի մի հատ ծրագիր
Program Anunt_Incha;
const
anungreq='Anunt incha?';
Barev='Barev ';
var A:string;
begin
WriteLn(Anungreq);
read (A);
WriteLn(Barev+A);
end.
կոմպիլացիաից հետո հարձը տալիսա:
Anunt incha?
Tiko
Ու ստեղ ծրագիրը պագվումա առանց բարեվելու:

end. առաջ մի հատ readln(); դիր որ ծրագիրդ կանգնի

[Աշխեն]

Այսոր սկսեցի pascal սովորել ու գրեցի մի հատ ծրագիր
Program Anunt_Incha;
const
anungreq='Anunt incha?';
Barev='Barev ';
var A:string;
begin
WriteLn(Anungreq);
read (A);
WriteLn(Barev+A);
end.
կոմպիլացիաից հետո հարձը տալիսա:
Anunt incha?
Tiko
Ու ստեղ ծրագիրը պագվումա առանց բարեվելու:

ծրագիրը փակվումա, որովհետև էլ կարդալու բան չունի, բայց եթե մի անգամ էլ աշխատացնես, կամ սեղմես alt+f5 կտեսնես որ գրելա բարևը:
Եթե ցանկանում ես միանգամից տեսնել բարևը, նոր փակվի, առաջարկում եմ սկզբից ավելացնես uses crt; ամենավերջում էլ գրես readkey;
Այդ դեպքում ծրագիրը կսպասի, որ ստեղն սեղմես նոր կփակվի:

[Cyborg]

Մերսի

[Nnn]

Ես սկսնակ եմ և ինձ խորհուրդ են տվել սկսել այս լեզվից…
Ես կարդացել ու կարդում եմ տարբեր գրքեր այս լեզվի մասին...բայց չեմ կարողանում ստեղծած ֆայլի պարունակությունը տպիչով տպել...
Օգնեք խնդրում եմ

[A.r.p.i.]

Ես սկսնակ եմ և ինձ խորհուրդ են տվել սկսել այս լեզվից…
Ես կարդացել ու կարդում եմ տարբեր գրքեր այս լեզվի մասին...բայց չեմ կարողանում ստեղծած ֆայլի պարունակությունը տպիչով տպել...
Օգնեք խնդրում եմ

Ֆայլի պարունակությունը տեղափոխի Word--ի էջ, նոր տպի, իսկ դրա համար կատարիր հետևյալ քայլերը.
1.տես նկար

2.ապա մկնիկի նշիչով նշիր ծրագիրդ ու սեղմիր Enter կոճակը
3.տեղադրիր Word-ում:
միայն թե մի բան հաշվի առ , Paskal-ում ծրագիրն ամբողջությամբ նշել հնարավոր չի, ինչքան որ ցույցա տրվում էջի վրա , այնքան էլ նշի, ամբողջ ծրագիրը էջ առ էջ նշիր ու տեղափոխիր Word ու տպի: