File indexing completed on 2024-05-12 04:02:06
0001 <!DOCTYPE html> 0002 <html><head> 0003 <meta http-equiv="Content-Type" content="text/html; charset=UTF-8"/> 0004 <title>highlight.cgis</title> 0005 <meta name="generator" content="KF5::SyntaxHighlighting - Definition (CGiS) - Theme (Breeze Light)"/> 0006 </head><body style="background-color:#ffffff;color:#1f1c1b"><pre> 0007 <span style="font-weight:bold">PROGRAM</span> testtest; 0008 0009 0010 <span style="font-weight:bold">INTERFACE</span> 0011 0012 <span style="font-weight:bold">extern</span> <span style="font-weight:bold">inout</span> <span style="color:#0057ae">int</span> inputs_int[]; 0013 <span style="font-weight:bold">extern</span> <span style="font-weight:bold">out</span> <span style="color:#0057ae">int</span> nur_out[]; 0014 <span style="font-weight:bold">extern</span> <span style="font-weight:bold">in</span> <span style="color:#0057ae">int</span> nur_in[]; 0015 0016 <span style="font-weight:bold">CODE</span> 0017 0018 <span style="font-weight:bold">function</span> jetzt_mach_schon(<span style="font-weight:bold">in</span> <span style="color:#0057ae">int</span> grenze, <span style="font-weight:bold">out</span> <span style="color:#0057ae">int</span> fak)<span style="color:#ca60ca">{</span> 0019 <span style="color:#0057ae">int</span> temp, counter; 0020 counter=grenze; 0021 temp=<span style="color:#b08000">1</span>; 0022 <span style="font-weight:bold">while</span>(counter><span style="color:#b08000">1</span>) 0023 temp*=(counter--); 0024 fak=temp; 0025 <span style="color:#ca60ca">}</span> 0026 0027 <span style="font-weight:bold">function</span> mach_mal(<span style="font-weight:bold">inout</span> <span style="color:#0057ae">int</span> i)<span style="color:#ca60ca">{</span> 0028 <span style="font-weight:bold">if</span>(i==<span style="color:#b08000">3</span>) i=<span style="color:#b08000">6</span>; 0029 <span style="font-weight:bold">else</span> <span style="font-weight:bold">if</span>(i==<span style="color:#b08000">4</span>) i=<span style="color:#b08000">24</span>; 0030 <span style="font-weight:bold">else</span> <span style="font-weight:bold">if</span>(i>=<span style="color:#b08000">5</span>) jetzt_mach_schon(i,i); 0031 <span style="color:#898887">// 1 und 2: gleich.</span> 0032 <span style="color:#ca60ca">}</span> 0033 0034 <span style="font-weight:bold">function</span> mach_nochmal(<span style="font-weight:bold">in</span> <span style="color:#0057ae">int</span> k1, <span style="font-weight:bold">out</span> <span style="color:#0057ae">int</span> k2, <span style="font-weight:bold">in</span> <span style="color:#0057ae">int</span> vektor)<span style="color:#ca60ca">{</span> 0035 <span style="color:#0057ae">int4</span> hossa; 0036 hossa=k1; 0037 <span style="color:#0057ae">int4</span> hasso; 0038 hasso=-vektor; 0039 0040 k2=(hasso|hossa>k1)?k1:-k1; <span style="color:#898887">//parse error before `|'</span> 0041 <span style="color:#898887">// k2=(hasso||hossa>k1)?k1:-k1; //only works on expressions of equal dimension</span> 0042 0043 <span style="color:#ca60ca">}</span> 0044 0045 <span style="font-weight:bold">CONTROL</span> 0046 <span style="font-weight:bold">forall</span> (<span style="color:#0057ae">int</span> i <span style="font-weight:bold">in</span> inputs_int:<span style="font-weight:bold">1D</span>) <span style="font-weight:bold">do</span> <span style="color:#ca60ca">{</span> 0047 mach_mal(i); 0048 <span style="color:#ca60ca">}</span> 0049 <span style="font-weight:bold">forall</span> (<span style="color:#0057ae">int</span> j <span style="font-weight:bold">in</span> inputs_int:<span style="font-weight:bold">1D</span>; 0050 <span style="color:#0057ae">int</span> i <span style="font-weight:bold">in</span> nur_out:<span style="font-weight:bold">1D</span>; 0051 <span style="color:#0057ae">int</span> vektor <span style="font-weight:bold">in</span> nur_in:<span style="font-weight:bold">1D</span>) <span style="font-weight:bold">do</span> <span style="color:#ca60ca">{</span> 0052 mach_nochmal(j,i, vektor); 0053 <span style="color:#ca60ca">}</span> 0054 </pre></body></html>