新手村之过程函数与递归

前言：前言君以被代码击杀。
P1028 数的计算 代码：
总：递归。

const maxn=1000;
var
  i,n:longint;
  a:array [1..maxn] of longint;
procedure dfs(m:longint);
var
  i:longint;
begin
  if a[m]<>-1 then exit;
  a[m]:=1;
  for i:=1 to m div 2 do
    begin
      dfs(i);
      inc(a[m],a[i]);
    end;
end;

begin
  readln(n);
  for i:=1 to n do
    a[i]:=-1;
  dfs(n);
  write(a[n]);
end.

P1036 选数 代码：

var
  a:array[1..23]of longint;
  n,m,count:longint;
  flag:array[1..23]of boolean;
procedure init;
var
  i,j,g:longint;
begin
  readln(n,m);
  for i:=1 to n do
    read(a[i]);
  for i:=1 to n-1 do
    for j:=i+1 to n do
      if a[j]<a[i] then
        begin
          g:=a[i]; a[i]:=a[j]; a[j]:=g;
        end;
  fillchar(flag,sizeof(flag),false);
end;

function comp(n:longint):boolean;
var
  i:longint;
begin
  comp:=true;
  for i:=2 to round(sqrt(n)) do
    if n mod i=0 then
      exit(false);
  exit(true);
end;

procedure dfs(f,num,ans:longint);
var
  i:longint;
begin
  if f>m then
    begin
      if comp(ans) then inc(count);
      exit;
    end;
  for i:=num+1 to n do
    if flag[i]=false then
      begin
        flag[i]:=true;
        dfs(f+1,i,ans+a[i]);
        flag[i]:=false;
      end;
end;

begin
  init;
  dfs(1,0,0);
  writeln(count);
end.

P1149 火柴棒等式 代码：
总：暴力打表。

const
  a:array[13..24]of integer =(1,2,8,9,6,9,29,39,38,65,88,128);
var
  n:integer;
begin
  readln(n);
  if n<13 then writeln(0)
          else writeln(a[n]);
end.

P1217 [USACO1.5]回文质数 Prime Palindromes
总：看前言。

var
  a:array [0..1001] of longint;
  i,n,m:longint;
procedure init;
begin
a[1]:=1; a[2]:=2; a[3]:=3; a[4]:=5; a[5]:=7; a[6]:=11;
 a[7]:=101; a[8]:=131; a[9]:=151; a[10]:=181; a[11]:=191;
 a[12]:=313; a[13]:=353; a[14]:=373; a[15]:=383; a[16]:=727;
 a[17]:=757; a[18]:=787; a[19]:=797; a[20]:=919; a[21]:=929; a[22]:=10301;
     a[24]:=10601; a[25]:=11311; a[26]:=11411; a[27]:=12421;
     a[28]:=12721; a[29]:=12821; a[30]:=13331; a[31]:=13831;
     a[32]:=13931; a[33]:=14341; a[34]:=14741; a[35]:=15451
     ; a[36]:=15551; a[37]:=16061; a[38]:=16361; a[39]:=16561;
     a[40]:=16661; a[41]:=17471
; a[42]:=17971; a[43]:=18181; a[44]:=18481; a[45]:=19391; a[46]:=19891;
 a[47]:=19991; a[48]:=30103; a[49]:=30203; a[50]:=30403; a[51]:=30703;
 a[52]:=30803; a[53]:=31013; a[54]:=31513; a[55]:=32323; a[56]:=32423;
 a[57]:=33533; a[58]:=34543; a[59]:=34843; a
[60]:=35053; a[61]:=35153; a[62]:=35353; a[63]:=35753; a[64]:=36263;
 a[65]:=36563; a[66]:=37273; a[67]:=37573; a[68]:=38083; a[69]:=38183;
 a[70]:=38783; a[71]:=39293; a[72]:=70207; a[73]:=70507; a[74]:=70607;
 a[75]:=71317; a[76]:=71917; a[77]:=72227; a[78
]:=72727; a[79]:=73037; a[80]:=73237; a[81]:=73637; a[82]:=74047;
 a[83]:=74747; a[84]:=75557; a[85]:=76367; a[86]:=76667; a[87]:=77377;
 a[88]:=77477; a[89]:=77977; a[90]:=78487; a[91]:=78787; a[92]:=78887;
 a[93]:=79397; a[94]:=79697; a[95]:=79997; a[96]:=
90709; a[97]:=91019; a[98]:=93139; a[99]:=93239; a[100]:=93739;
 a[101]:=94049; a[102]:=94349; a[103]:=94649; a[104]:=94849; a[105]:=94949;
 a[106]:=95959; a[107]:=96269; a[108]:=96469; a[109]:=96769; a[110]:=97379;
 a[111]:=97579; a[112]:=97879;
    a[114]:=98689; a[115]:=1003001; a[116]:=1008001; a[117]:=1022201;
    a[118]:=1028201; a[119]:=1035301; a[120]:=1043401; a[121]:=1055501;
    a[122]:=1062601; a[123]:=1065601; a[124]:=1074701; a[125]:=1082801;
    a[126]:=1085801; a[127]:=1092901; a[128]:=1093901
; a[129]:=1114111; a[130]:=1117111; a[131]:=1120211; a[132]:=1123211;
 a[133]:=1126211; a[134]:=1129211; a[135]:=1134311; a[136]:=1145411;
 a[137]:=1150511; a[138]:=1153511; a[139]:=1160611; a[140]:=1163611;
 a[141]:=1175711; a[142]:=1177711; a[143]:=1178711
; a[144]:=1180811; a[145]:=1183811; a[146]:=1186811; a[147]:=1190911;
 a[148]:=1193911; a[149]:=1196911; a[150]:=1201021; a[151]:=1208021;
 a[152]:=1212121; a[153]:=1215121; a[154]:=1218121; a[155]:=1221221;
 a[156]:=1235321; a[157]:=1242421; a[158]:=1243421
; a[159]:=1245421; a[160]:=1250521; a[161]:=1253521; a[162]:=1257521
;
 a[163]:=1262621; a[164]:=1268621; a[165]:=1273721; a[166]:=1276721;
 a[167]:=1278721; a[168]:=1280821; a[169]:=1281821; a[170]:=1286821;
 a[171]:=1287821; a[172]:=1300031; a[173]:=1303031
; a[174]:=1311131; a[175]:=1317131; a[176]:=1327231; a[177]:=1328231;
 a[178]:=1333331; a[179]:=1335331; a[180]:=1338331; a[181]:=1343431;
 a[182]:=1360631; a[183]:=1362631; a[184]:=1363631; a[185]:=1371731;
 a[186]:=1374731; a[187]:=1390931; a[188]:=1407041
; a[189]:=1409041; a[190]:=1411141; a[191]:=1412141; a[192]:=1422241;
 a[193]:=1437341; a[194]:=1444441; a[195]:=1447441; a[196]:=1452541;
 a[197]:=1456541; a[198]:=1461641; a[199]:=1463641; a[200]:=1464641;
 a[201]:=1469641; a[202]:=1486841; a[203]:=1489841
; a[204]:=1490941; a[205]:=1496941; a[206]:=1508051; a[207]:=1513151
; a[208]:=1520251; a[209]:=1532351; a[210]:=1535351; a[211]:=1542451;
 a[212]:=1548451; a[213]:=1550551; a[214]:=1551551; a[215]:=1556551;
 a[216]:=1557551; a[217]:=1565651; a[218]:=1572751
; a[219]:=1579751; a[220]:=1580851; a[221]:=1583851; a[222]:=1589851;
 a[223]:=1594951; a[224]:=1597951; a[225]:=1598951; a[226]:=1600061;
 a[227]:=1609061; a[228]:=1611161; a[229]:=1616161; a[230]:=1628261;
 a[231]:=1630361; a[232]:=1633361; a[233]:=1640461
; a[234]:=1643461; a[235]:=1646461; a[236]:=1654561; a[237]:=1657561;
 a[238]:=1658561; a[239]:=1660661; a[240]:=1670761; a[241]:=1684861;
 a[242]:=1685861; a[243]:=1688861; a[244]:=1695961; a[245]:=1703071;
 a[246]:=1707071; a[247]:=1712171; a[248]:=1714171
; a[249]:=1730371; a[250]:=1734371; a[251]:=1737371; a[252]:=1748471;
 a[253]:=1755571; a[254]:=1761671; a[255]:=1764671; a[256]:=1777771;
 a[257]:=1793971; a[258]:=1802081; a[259]:=1805081; a[260]:=1820281;
 a[261]:=1823281; a[262]:=1824281; a[263]:=1826281
; a[264]:=1829281; a[265]:=1831381; a[266]:=1832381; a[267]:=1842481;
 a[268]:=1851581; a[269]:=1853581; a[270]:=1856581; a[271]:=1865681
 ; a[272]:=1876781; a[273]:=1878781; a[274]:=1879781; a[275]:=1880881;
 a[276]:=1881881; a[277]:=1883881; a[278]:=1884881
; a[279]:=1895981; a[280]:=1903091; a[281]:=1908091; a[282]:=1909091;
 a[283]:=1917191; a[284]:=1924291; a[285]:=1930391; a[286]:=1936391;
 a[287]:=1941491; a[288]:=1951591; a[289]:=1952591; a[290]:=1957591;
 a[291]:=1958591; a[292]:=1963691; a[293]:=1968691
; a[294]:=1969691; a[295]:=1970791; a[296]:=1976791; a[297]:=1981891;
 a[298]:=1982891; a[299]:=1984891; a[300]:=1987891; a[301]:=1988891;
 a[302]:=1993991; a[303]:=1995991; a[304]:=1998991; a[305]:=3001003;
 a[306]:=3002003; a[307]:=3007003; a[308]:=3016103
; a[309]:=3026203; a[310]:=3064603; a[311]:=3065603; a[312]:=3072703;
 a[313]:=3073703; a[314]:=3075703; a[315]:=3083803; a[316]:=3089803;
 a[317]:=3091903; a[318]:=3095903; a[319]:=3103013; a[320]:=3106013;
 a[321]:=3127213; a[322]:=3135313; a[323]:=3140413
; a[324]:=3155513; a[325]:=3158513; a[326]:=3160613; a[327]:=3166613;
 a[328]:=3181813; a[329]:=3187813; a[330]:=3193913; a[331]:=3196913;
 a[332]:=3198913; a[333]:=3211123; a[334]:=3212123; a[335]:=3218123;
 a[336]:=3222223; a[337]:=3223223; a[338]:=3228223
; a[339]:=3233323; a[340]:=3236323; a[341]:=3241423; a[342]:=3245423;

 a[343]:=3252523; a[344]:=3256523; a[345]:=3258523; a[346]:=3260623;
 a[347]:=3267623; a[348]:=3272723; a[349]:=3283823; a[350]:=3285823;
 a[351]:=3286823; a[352]:=3288823; a[353]:=3291923
; a[354]:=3293923; a[355]:=3304033; a[356]:=3305033; a[357]:=3307033;
 a[358]:=3310133; a[359]:=3315133; a[360]:=3319133; a[361]:=3321233;
 a[362]:=3329233; a[363]:=3331333; a[364]:=3337333; a[365]:=3343433;
 a[366]:=3353533; a[367]:=3362633; a[368]:=3364633
; a[369]:=3365633; a[370]:=3368633; a[371]:=3380833; a[372]:=3391933;
 a[373]:=3392933; a[374]:=3400043; a[375]:=3411143; a[376]:=3417143;
 a[377]:=3424243; a[378]:=3425243; a[379]:=3427243; a[380]:=3439343;
 a[381]:=3441443; a[382]:=3443443; a[383]:=3444443
; a[384]:=3447443; a[385]:=3449443; a[386]:=3452543; a[387]:=3460643;
 a[388]:=3466643; a[389]:=3470743; a[390]:=3479743; a[391]:=3485843;
 a[392]:=3487843; a[393]:=3503053; a[394]:=3515153; a[395]:=3517153;
 a[396]:=3528253; a[397]:=3541453; a[398]:=3553553
; a[399]:=3558553; a[400]:=3563653; a[401]:=3569653; a[402]:=3586853;
 a[403]:=3589853; a[404]:=3590953; a[405]:=3591953; a[406]:=3594953;
 a[407]:=3601063; a[408]:=3607063; a[409]:=3618163; a[410]:=3621263;
 a[411]:=3627263; a[412]:=3635363; a[413]:=3643463
; a[414]:=3646463; a[415]:=3670763; a[416]:=3673763; a[417]:=3680863;
 a[418]:=3689863; a[419]:=3698963; a[420]:=3708073; a[421]:=3709073
 ; a[422]:=3716173; a[423]:=3717173; a[424]:=3721273; a[425]:=3722273;
 a[426]:=3728273; a[427]:=3732373; a[428]:=3743473
; a[429]:=3746473; a[430]:=3762673; a[431]:=3763673; a[432]:=3765673;
 a[433]:=3768673; a[434]:=3769673; a[435]:=3773773; a[436]:=3774773;
 a[437]:=3781873; a[438]:=3784873; a[439]:=3792973; a[440]:=3793973;
 a[441]:=3799973; a[442]:=3804083; a[443]:=3806083
; a[444]:=3812183; a[445]:=3814183; a[446]:=3826283; a[447]:=3829283;
 a[448]:=3836383; a[449]:=3842483; a[450]:=3853583; a[451]:=3858583;
 a[452]:=3863683; a[453]:=3864683; a[454]:=3867683; a[455]:=3869683;
 a[456]:=3871783; a[457]:=3878783; a[458]:=3893983
; a[459]:=3899983; a[460]:=3913193; a[461]:=3916193; a[462]:=3918193;
 a[463]:=3924293; a[464]:=3927293; a[465]:=3931393; a[466]:=3938393;
 a[467]:=3942493; a[468]:=3946493; a[469]:=3948493; a[470]:=3964693;
 a[471]:=3970793; a[472]:=3983893; a[473]:=3991993
; a[474]:=3994993; a[475]:=3997993; a[476]:=3998993; a[477]:=7014107;
 a[478]:=7035307; a[479]:=7036307; a[480]:=7041407; a[481]:=7046407;
 a[482]:=7057507; a[483]:=7065607; a[484]:=7069607; a[485]:=7073707;
 a[486]:=7079707; a[487]:=7082807; a[488]:=7084807
; a[489]:=7087807; a[490]:=7093907; a[491]:=7096907; a[492]:=7100017;
 a[493]:=7114117; a[494]:=7115117; a[495]:=7118117; a[496]:=7129217;
 a[497]:=7134317; a[498]:=7136317; a[499]:=7141417; a[500]:=7145417
 ; a[501]:=7155517; a[502]:=7156517; a[503]:=7158517
; a[504]:=7159517; a[505]:=7177717; a[506]:=7190917; a[507]:=7194917;
 a[508]:=7215127; a[509]:=7226227; a[510]:=7246427; a[511]:=7249427;
 a[512]:=7250527; a[513]:=7256527; a[514]:=7257527; a[515]:=7261627;
 a[516]:=7267627; a[517]:=7276727; a[518]:=7278727
; a[519]:=7291927; a[520]:=7300037; a[521]:=7302037; a[522]:=7310137;
 a[523]:=7314137; a[524]:=7324237; a[525]:=7327237; a[526]:=7347437;
 a[527]:=7352537; a[528]:=7354537; a[529]:=7362637; a[530]:=7365637;
 a[531]:=7381837; a[532]:=7388837; a[533]:=7392937
; a[534]:=7401047; a[535]:=7403047; a[536]:=7409047; a[537]:=7415147;
 a[538]:=7434347; a[539]:=7436347; a[540]:=7439347; a[541]:=7452547;
 a[542]:=7461647; a[543]:=7466647; a[544]:=7472747; a[545]:=7475747;
 a[546]:=7485847; a[547]:=7486847; a[548]:=7489847
; a[549]:=7493947; a[550]:=7507057; a[551]:=7508057; a[552]:=7518157;
 a[553]:=7519157; a[554]:=7521257; a[555]:=7527257; a[556]:=7540457;
 a[557]:=7562657; a[558]:=7564657; a[559]:=7576757; a[560]:=7586857;
 a[561]:=7592957; a[562]:=7594957; a[563]:=7600067
; a[564]:=7611167; a[565]:=7619167; a[566]:=7622267; a[567]:=7630367;
 a[568]:=7632367; a[569]:=7644467; a[570]:=7654567; a[571]:=7662667;
 a[572]:=7665667; a[573]:=7666667; a[574]:=7668667; a[575]:=7669667;
 a[576]:=7674767; a[577]:=7681867; a[578]:=7690967
; a[579]:=7693967; a[580]:=7696967; a[581]:=7715177; a[582]:=7718177;
 a[583]:=7722277; a[584]:=7729277; a[585]:=7733377; a[586]:=7742477;
 a[587]:=7747477; a[588]:=7750577; a[589]:=7758577; a[590]:=7764677;
 a[591]:=7772777; a[592]:=7774777; a[593]:=7778777
; a[594]:=7782877; a[595]:=7783877; a[596]:=7791977; a[597]:=7794977;
 a[598]:=7807087; a[599]:=7819187; a[600]:=7820287; a[601]:=7821287;
 a[602]:=7831387; a[603]:=7832387; a[604]:=7838387; a[605]:=7843487;
 a[606]:=7850587; a[607]:=7856587; a[608]:=7865687
; a[609]:=7867687; a[610]:=7868687; a[611]:=7873787; a[612]:=7884887;
 a[613]:=7891987; a[614]:=7897987; a[615]:=7913197; a[616]:=7916197;
 a[617]:=7930397; a[618]:=7933397; a[619]:=7935397; a[620]:=7938397;
 a[621]:=7941497; a[622]:=7943497; a[623]:=7949497
; a[624]:=7957597; a[625]:=7958597; a[626]:=7960697; a[627]:=7977797;
 a[628]:=7984897; a[629]:=7985897; a[630]:=7987897; a[631]:=7996997;
 a[632]:=9002009; a[633]:=9015109; a[634]:=9024209; a[635]:=9037309;
 a[636]:=9042409; a[637]:=9043409; a[638]:=9045409
; a[639]:=9046409; a[640]:=9049409; a[641]:=9067609; a[642]:=9073709
; a[643]:=9076709; a[644]:=9078709; a[645]:=9091909; a[646]:=9095909;
a[647]:=9103019; a[648]:=9109019; a[649]:=9110119; a[650]:=9127219;
 a[651]:=9128219; a[652]:=9136319; a[653]:=9149419
; a[654]:=9169619; a[655]:=9173719; a[656]:=9174719; a[657]:=9179719;
 a[658]:=9185819; a[659]:=9196919; a[660]:=9199919; a[661]:=9200029;
 a[662]:=9209029; a[663]:=9212129; a[664]:=9217129; a[665]:=9222229;
 a[666]:=9223229; a[667]:=9230329; a[668]:=9231329
; a[669]:=9255529; a[670]:=9269629; a[671]:=9271729; a[672]:=9277729;
 a[673]:=9280829; a[674]:=9286829; a[675]:=9289829; a[676]:=9318139;
 a[677]:=9320239; a[678]:=9324239; a[679]:=9329239; a[680]:=9332339
 ; a[681]:=9338339; a[682]:=9351539; a[683]:=9357539
; a[684]:=9375739; a[685]:=9384839; a[686]:=9397939; a[687]:=9400049;
 a[688]:=9414149; a[689]:=9419149; a[690]:=9433349; a[691]:=9439349;
 a[692]:=9440449; a[693]:=9446449; a[694]:=9451549; a[695]:=9470749;
 a[696]:=9477749; a[697]:=9492949; a[698]:=9493949
; a[699]:=9495949; a[700]:=9504059; a[701]:=9514159; a[702]:=9526259;
 a[703]:=9529259; a[704]:=9547459; a[705]:=9556559; a[706]:=9558559;
 a[707]:=9561659; a[708]:=9577759; a[709]:=9583859; a[710]:=9585859;
 a[711]:=9586859; a[712]:=9601069; a[713]:=9602069
; a[714]:=9604069; a[715]:=9610169; a[716]:=9620269; a[717]:=9624269;
 a[718]:=9626269; a[719]:=9632369; a[720]:=9634369; a[721]:=9645469;
 a[722]:=9650569; a[723]:=9657569; a[724]:=9670769; a[725]:=9686869;
 a[726]:=9700079; a[727]:=9709079; a[728]:=9711179
; a[729]:=9714179; a[730]:=9724279; a[731]:=9727279; a[732]:=9732379;
 a[733]:=9733379; a[734]:=9743479; a[735]:=9749479; a[736]:=9752579;
 a[737]:=9754579; a[738]:=9758579; a[739]:=9762679; a[740]:=9770779;
 a[741]:=9776779; a[742]:=9779779; a[743]:=9781879
; a[744]:=9782879; a[745]:=9787879; a[746]:=9788879; a[747]:=9795979;
 a[748]:=9801089; a[749]:=9807089; a[750]:=9809089; a[751]:=9817189;
 a[752]:=9818189; a[753]:=9820289; a[754]:=9822289; a[755]:=9836389;
 a[756]:=9837389; a[757]:=9845489; a[758]:=9852589
; a[759]:=9871789; a[760]:=9888889; a[761]:=9889889; a[762]:=9896989;
 a[763]:=9902099; a[764]:=9907099; a[765]:=9908099; a[766]:=9916199;
 a[767]:=9918199; a[768]:=9919199; a[769]:=9921299; a[770]:=9923299;
 a[771]:=9926299; a[772]:=9927299; a[773]:=9931399
; a[774]:=9932399; a[775]:=9935399; a[776]:=9938399; a[777]:=9957599;
 a[778]:=9965699; a[779]:=9978799; a[780]:=9980899; a[781]:=9981899;
 a[782]:=9989899; a[23]:=10501;  a[113]:=98389;
end;

begin
  readln(n,m);
  init;
  for i:=1 to 1000 do
    if (a[i]>=n) and (a[i]<=m) then
      writeln(a[i]);
end.

转载于:https://www.cnblogs.com/zyx-crying/p/9319523.html