Մերսիedv2-ի խոսքերից
Մերսի
Ժող սենց խնդիր կա շտապ ա,պետք ա գրել Տուրբո Պասկալով,
Խնդիր.Մուտքագրել N (3<=N<=10) բնական թվեր, որոնք կարող են լինել եռանկյան կողմերի (a1, a2,...,aN) երկարություն: Հաշվել այդ եռանկյունների թիվը (q), նշել այն եռանկյան կողմերը (ai, aj, ak), որի մակերեսն ամենամեծն է և հաշվել մակերեսը (s):
Կլասիկ, ոչ բարդ խնդիր ա - պերեստանովկեք ու եռանկյունաչափություն. Եթե գոնե մի քանի բան արած լինեիր, ինչ որ բան մոտդ ստացվելուց չլիներ, կփորձեի օգնել (թեև հենց պասկալ/դելֆի լեզուն լավ չգիտեմ), բայց քո փոխարեն քիչ մարդ կլինի որ ժամանակ ծախսի գրի, իմ կարծիքով.
Եթե տույլ կտաս - խորհուրդ:
երբ որ ուզում ես քո փոխարեն մեծ հավանականությամբ մեկին գտնես որ գրի (ոչ թե հանկարծ էդ օրը մի բարի մարդ հանդիպեց), իմ կարծիքով կարող ես դրա դիմաց ինչ-որ բան առաջարկել. Ի նկատի չունեմ ինձ, ընդհանրապես եմ ասում..
Վերջին խմբագրող՝ Աթեիստ: 16.03.2011, 09:23: Պատճառ: տրանսլիտ
edv2 ջան արդեն պատասխանել են պետք չի ի տարբերություն հայերի կան ռուսներ,որոնցից մեկը նստել,գրել ու բացատրել ա ես ծրագիրը:Մարդը ժամանակ ա գտել ես ծրագիրը գրել ա ու ինձ էլ բացատրել e-mail-ով ուղղարկել,ու ինձ օգնել առանց փոխհատուցման,ոչ թե հայերի նման,մի բան ես խնդրում,տասը տակ պարտքի տակ ես ընգնում:Համենայն դեպս մերսի:Որ գոնե հավես արիր ու գրեցիր
kkkk.jpgԻնձ պետկ ա սենց մի ծրագիր Պասկալով գրած:
Որ են որ գրած ա Ջնջեմ? դրա փոխարեն ինչ որ տեքստ ու Ընտրությոան հնարավորություն և 2 հնարավորության դեպքում էլ ուղակի դուրս գա <<ծրագրից>>
Որ խնդրեմ մի քիչ կմանրամասնես?
ուզում եմ որ լինի հարց, և 2 ընտրության հնարավորություն
Էդ ձևի խնդիրը մոտավորապես էս տեսքը ունի`
uses crt;
var a:char;
Begin write('Y or N?'); a:=readkey; if a='Y' then operator1 else if a='N' then operator2
end.
Կարծում եմ operator1 և operator2-ը հասկացար թե ինչ են:
Երևի հարցն ա
Ով գիտի, ոնց կարելի ա համակարգչի մեջի նկարը "քցել" Պասկալի գրաֆիկական ռեժիմ?
Ժողովուրդ միհատ օգնեք:Ուրեմն ես խնդիրն է.
Սեղանի շուրջ շրջանաձև նստած են N մարդ,որոնք համարակալված են 1-ից N համարներով:Հերթով յուրաքանչյուր 3-րդը հերանում է սեղանից:
Գտնել վերջինը մնացած մարդու համարը:
Մուտքային ֆայլը պառունակւմ է 1 թիվ N(N<=10^6)
Ելքային ֆայլը պարունակում է 1 թիվ՝ մնացած հյուրի համարը:
Օրինակ՝ 7 հոգու դեպքում ամեն երրորդին հանելուց հետո մնում է 4 համարով մարդը:
Ալգորիթմը գրել եմ բայց սխալ կա չի աշխատում միհատ ստուգեք:
program_vardan;
uses crt;
var k,n,i:integer;
a:array [1..1000000] of integer;
begin
clrscr;
readln(n);
if (a div 3)*3=n then
begin
write('Nermucac tiv@ sxal e!'); #3-i bajanvox tvi depqum nuyn tver en durs galis
readln;
halt;
end;
for i:=1 to n do #andaneri hamarner@ hertov
a[i]:=i;
i:=1;
for k:=1 to n-1 do #N-i hamar amen 3-in hanelis mekna mnum (n-1)-rd qaylum
begin
i:=i+3;
a[i]:=o
end;
for i:=1 to n do
if a[i]<>0 then writeln(a[i]);
readln;
end.
Վերջին խմբագրող՝ l2sky: 04.04.2011, 13:38:
Նախ ասեմ, որ խնդրի մեջ մի երկու տեղ վրիպումներ կան`
program_vardan;
uses crt;
var k,n,i:integer;
a:array [1..1000000] of integer;
begin
clrscr;
readln(n);
if (n div 3)*3=n then
begin
write('Nermucac tiv@ sxal e!');
readln;
halt;
end;
for i:=1 to n do
a[i]:=i;
i:=1;
for k:=1 to n-1 do
begin
i:=i+3;
a[i]:=0
end;
for i:=1 to n do
if a[i]<>0 then writeln(a[i]);
readln;
end.
Բայց էս ձևով խնդիրը անհնար է, որ ճիշտ պատասխան տա, քանի որ դու ինքդ խնդրի պահանջի մեջ գրում ես, որ պետք է արտածվի մի թիվ, բայց արտածումը կատարում ես ցիկլով: Իսկ կարողա ես խնդիրը սխալ եմ հասկացել? Որ խնդրեմ մի քիչ կկոնկրետացնես?
Իմ հասկանալով, ես մի քանի օրինակ արեցի և ստացա էս պատասխանները, եթե ճիշտ եմ ստացել, ուրեմն ասա, կփորձեմ ալգորիթմը գրել:
4-ի դեպքում 4
5-ի դեպքում 4
7-ի դեպքում 4
8-ի դեպքում 7
10-ի դեպքում 10
11-ի դեպքում 7
13-ի դեպքում 13
14-ի դեպքում 11
Մեկ էլ մի հարց- թույլատրվում ա օգտագործել տող տիպ?
Մի բան հարցնեմ, ես ունեմ գրած ծրագիր (օրինակ A1.PAS ֆայլ), ես կարող եմ այդ ծրագրիը "կցել" (միացնել) մի ուրիշ ծրագրի առանց պրոցեդուրա կամ ֆունկցիա օգտագործելու?
Այս պահին թեմայում են 1 հոգի. (0 անդամ և 1 հյուր)
Ձեր իրավունքները բաժնում
Մեջբերել
Էջանիշներ