/[suikacvs]/perl/kanzan/kanzan.cgi
Suika

Contents of /perl/kanzan/kanzan.cgi

Parent Directory Parent Directory | Revision Log Revision Log

Revision 1.2 - (hide annotations) (download)
Sat Feb 23 11:49:52 2002 UTC (22 years, 9 months ago) by wakaba
Branch: MAIN
Changes since 1.1: +256 -256 lines 
2002-02-23  wakaba <w@suika.fam.cx>

	* kanzan.cgi: New file.
	* ChangeLog: New file.
1 wakaba 1.2 #!/usr/local/bin/perl
2    
3     use strict;
4     require Suika::CGI;
5    
6     my %ex_point1 = (
7     kokugo => 54,
8     suugaku => 55,
9     eigo => 57,
10     sekaishi => 53,
11     nihonshi => 0,
12     chiri => 0,
13     butsuri => 54,
14     kagaku => 52,
15     seibutsu => 0,
16     _OBJECT => 57,
17     );
18    
19     my %ex_point2 = (
20     kokugo => 53,
21     suugaku => 55,
22     eigo => 55,
23     sekaishi => 52,
24     nihonshi => 0,
25     chiri => 0,
26     butsuri => 54,
27     kagaku => 51,
28     seibutsu => 0,
29     _OBJECT => 58,
30     );
31    
32     my %ex_haiten1 = (
33     kokugo => 80,
34     suugaku => 80,
35     eigo => 80,
36     sekaishi => 40,
37     nihonshi => 0,
38     chiri => 0,
39     butsuri => 40,
40     kagaku => 0,
41     seibutsu => 0,
42     );
43    
44     my %ex_haiten2 = (
45     kokugo => 0,
46     suugaku => 300,
47     eigo => 150,
48     sekaishi => 0,
49     nihonshi => 0,
50     chiri => 0,
51     butsuri => 150,
52     kagaku => 150,
53     seibutsu => 0,
54     );
55    
56    
57     sub kanzan (%%%%) {
58     my ($point1, $full1, $point2, $full2) = @_;
59     my (%kanzaned1, %kanzaned2);
60     $$full1{_ALL} = 0;
61     for my $subject (keys %$full1) {
62     next if $subject =~ /^_/;
63     $kanzaned1{$subject} = $$point1{$subject}*$$full1{$subject}/100;
64     $kanzaned1{_ALL} += $kanzaned1{$subject};
65     $$full1{_ALL} += $$full1{$subject};
66     }
67     $kanzaned1{_PERCENT} = 100*$kanzaned1{_ALL}/$$full1{_ALL};
68     $$full2{_ALL} = 0;
69     for my $subject (keys %$full2) {
70     next if $subject =~ /^_/;
71     $kanzaned2{$subject} = $$point2{$subject}*$$full2{$subject}/100;
72     $kanzaned2{_ALL} += $kanzaned2{$subject};
73     $$full2{_ALL} += $$full2{$subject};
74     }
75     $kanzaned2{_PERCENT} = 100*$kanzaned2{_ALL}/$$full2{_ALL};
76    
77     my ($percent, $object_percent);
78     $percent = 100*($kanzaned1{_ALL}+$kanzaned2{_ALL})
79     /($$full1{_ALL}+$$full2{_ALL});
80     $object_percent = ($$point1{_OBJECT}*$$full1{_ALL}
81     +$$point2{_OBJECT}*$$full2{_ALL})
82     /($$full1{_ALL}+$$full2{_ALL});
83     ($percent, $object_percent, \%kanzaned1, \%kanzaned2);
84     }
85    
86     my (%mypoint1, %mypoint2, %haiten1, %haiten2);
87     if ($Suika::CGI::param{newform} ne 'no') {
88     %mypoint1 = %ex_point1;
89     %mypoint2 = %ex_point2;
90     %haiten1 = %ex_haiten1;
91     %haiten2 = %ex_haiten2;
92     } else {
93     for my $s (keys %Suika::CGI::param) {
94     $mypoint1{$1} = $Suika::CGI::param{$s} if $s =~ /^(.+[^H_])1$/;
95     $mypoint2{$1} = $Suika::CGI::param{$s} if $s =~ /^(.+[^H_])2$/;
96     $mypoint1{'_'.$1} = $Suika::CGI::param{$s} if $s =~ /^(.+)_1$/;
97     $mypoint2{'_'.$1} = $Suika::CGI::param{$s} if $s =~ /^(.+)_2$/;
98     $haiten1{$1} = $Suika::CGI::param{$s} if $s =~ /^(.+)H1$/;
99     $haiten2{$1} = $Suika::CGI::param{$s} if $s =~ /^(.+)H2$/;
100     }
101     }
102     my ($percent, $object, $kanzan1, $kanzan2)
103     = kanzan ({%mypoint1} => {%haiten1}, {%mypoint2} => {%haiten2});
104    
105     print STDOUT "Content-Type: text/html; charset=euc-jisx0213
106    
107     ";
108     output_html (\%mypoint1 => \%haiten1 => $kanzan1,
109     \%mypoint2 => \%haiten2 => $kanzan2,
110     percent => $percent, object => $object);
111    
112     sub diffmark ($) {
113     my $diff = shift;
114     return '□' if $diff < -4;
115     return '△' if $diff < -2;
116     return '○' if $diff < 0;
117     return '◎';
118     }
119    
120     sub output_html (%%%%%) {
121     my ($p1 => $h1 => $k1, $p2 => $h2 => $k2, %misc) = @_;
122     for my $n ($$k1{_PERCENT}, $$k2{_PERCENT}, $misc{percent}, $misc{object}) {
123     $n = int ($n);
124     }
125     $$k1{_DIFF} = $$k1{_PERCENT}-$$p1{_OBJECT};
126     $$k2{_DIFF} = $$k2{_PERCENT}-$$p2{_OBJECT};
127     $misc{_DIFF} = $misc{percent}-$misc{object};
128     $$k1{_DIFFMARK} = diffmark ($$k1{_DIFF});
129     $$k2{_DIFFMARK} = diffmark ($$k2{_DIFF});
130     $misc{_DIFFMARK} = diffmark ($misc{_DIFF});
131     print <<EOH;
132     <!DOCTYPE html PUBLIC "-//W3D//DTD HTML 4.01//EN">
133     <html lang="ja">
134     <head>
135     <title>配点換算</title>
136     <style type="text/css">
137     input {width: 3em}
138     </style>
139     </head>
140     <body>
141     <h1>配点換算</h1>
142     <form action="kanzan" method="post" accept-charset="iso-2022-jp, iso-2022-jp-3">
143     <table>
144     <thead>
145     <tr>
146     <th colspan="2">教科</th>
147     <th>国語</th><th>数学</th><th>英語</th>
148     <th>世界史</th><th>日本史</th><th>地理</th>
149     <th>物理</th><th>化学</th><th>生物</th>
150     </tr>
151     </thead>
152     <tbody>
153     <tr>
154     <th rowspan="3">一次</th><th>持ち点</th>
155     <td><input type="text" name="kokugo1" value="$$p1{kokugo}"></td>
156     <td><input type="text" name="suugaku1" value="$$p1{suugaku}"></td>
157     <td><input type="text" name="eigo1" value="$$p1{eigo}"></td>
158     <td><input type="text" name="sekaishi1" value="$$p1{sekaishi}"></td>
159     <td><input type="text" name="nihonshi1" value="$$p1{nihonshi}"></td>
160     <td><input type="text" name="chiri1" value="$$p1{chiri}"></td>
161     <td><input type="text" name="butsuri1" value="$$p1{butsuri}"></td>
162     <td><input type="text" name="kagaku1" value="$$p1{kagaku}"></td>
163     <td><input type="text" name="seibutsu1" value="$$p1{seibutsu}"></td>
164     </tr>
165     <tr>
166     <th>配点</th>
167     <td><input type="text" name="kokugoH1" value="$$h1{kokugo}"></td>
168     <td><input type="text" name="suugakuH1" value="$$h1{suugaku}"></td>
169     <td><input type="text" name="eigoH1" value="$$h1{eigo}"></td>
170     <td><input type="text" name="sekaishiH1" value="$$h1{sekaishi}"></td>
171     <td><input type="text" name="nihonshiH1" value="$$h1{nihonshi}"></td>
172     <td><input type="text" name="chiriH1" value="$$h1{chiri}"></td>
173     <td><input type="text" name="butsuriH1" value="$$h1{butsuri}"></td>
174     <td><input type="text" name="kagakuH1" value="$$h1{kagaku}"></td>
175     <td><input type="text" name="seibutsuH1" value="$$h1{seibutsu}"></td>
176     </tr>
177     <tr>
178     <th>換算点</th>
179     <td>$$k1{kokugo}</td><td>$$k1{suugaku}</td><td>$$k1{eigo}</td>
180     <td>$$k1{sekaishi}</td><td>$$k1{nihonshi}</td><td>$$k1{chiri}</td>
181     <td>$$k1{butsuri}</td><td>$$k1{kagaku}</td><td>$$k1{seibutsu}</td>
182     </tr>
183    
184     <tr>
185     <th rowspan="3">二次</th><th>持ち点</th>
186     <td><input type="text" name="kokugo2" value="$$p2{kokugo}"></td>
187     <td><input type="text" name="suugaku2" value="$$p2{suugaku}"></td>
188     <td><input type="text" name="eigo2" value="$$p2{eigo}"></td>
189     <td><input type="text" name="sekaishi2" value="$$p2{sekaishi}"></td>
190     <td><input type="text" name="nihonshi2" value="$$p2{nihonshi}"></td>
191     <td><input type="text" name="chiri2" value="$$p2{chiri}"></td>
192     <td><input type="text" name="butsuri2" value="$$p2{butsuri}"></td>
193     <td><input type="text" name="kagaku2" value="$$p2{kagaku}"></td>
194     <td><input type="text" name="seibutsu2" value="$$p2{seibutsu}"></td>
195     </tr>
196     <tr>
197     <th>配点</th>
198     <td><input type="text" name="kokugoH2" value="$$h2{kokugo}"></td>
199     <td><input type="text" name="suugakuH2" value="$$h2{suugaku}"></td>
200     <td><input type="text" name="eigoH2" value="$$h2{eigo}"></td>
201     <td><input type="text" name="sekaishiH2" value="$$h2{sekaishi}"></td>
202     <td><input type="text" name="nihonshiH2" value="$$h2{nihonshi}"></td>
203     <td><input type="text" name="chiriH2" value="$$h2{chiri}"></td>
204     <td><input type="text" name="butsuriH2" value="$$h2{butsuri}"></td>
205     <td><input type="text" name="kagakuH2" value="$$h2{kagaku}"></td>
206     <td><input type="text" name="seibutsuH2" value="$$h2{seibutsu}"></td>
207     </tr>
208     <tr>
209     <th>換算点</th>
210     <td>$$k2{kokugo}</td><td>$$k2{suugaku}</td><td>$$k2{eigo}</td>
211     <td>$$k2{sekaishi}</td><td>$$k2{nihonshi}</td><td>$$k2{chiri}</td>
212     <td>$$k2{butsuri}</td><td>$$k2{kagaku}</td><td>$$k2{seibutsu}</td>
213     </tr>
214     </tbody>
215     </table>
216    
217     <table>
218     <thead>
219     <tr>
220     <th></th><th>得点率</th><th>目標点</th><th colspan="2">差</th>
221     </tr>
222     </thead>
223     <tbody>
224     <tr>
225     <th>一次</th>
226     <td>$$k1{_PERCENT}</td>
227     <td><input type="text" name="OBJECT_1" value="$$p1{_OBJECT}"></td>
228     <td>$$k1{_DIFF}</td>
229     <td>$$k1{_DIFFMARK}</td>
230     </tr>
231     <tr>
232     <th>二次</th>
233     <td>$$k2{_PERCENT}</td>
234     <td><input type="text" name="OBJECT_2" value="$$p2{_OBJECT}"></td>
235     <td>$$k2{_DIFF}</td>
236     <td>$$k2{_DIFFMARK}</td>
237     </tr>
238     <tr>
239     <th>合計</th>
240     <td>$misc{percent}</td>
241     <td>$misc{object}</td>
242     <td>$misc{_DIFF}</td>
243     <td>$misc{_DIFFMARK}</td>
244     </tr>
245     </tbody>
246     </table>
247    
248     <p>
249     <input type="hidden" name="newform" value="no">
250     <input type="submit" value="OK">
251     </p>
252     </form>
253     EOH
254     }
255    
256     1;
admin@suikawiki.org
 ViewVC Help
Powered by ViewVC 1.1.24