| 1 |
wakaba |
1.1 |
#!/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;
|
Parent Directory
| 
Revision Log