mypaku,
Ну вот один выбор полотен (без дисейблов, например если человек выбирает полотно, все остальные полотна дисейблятся, а если он хочет изменить своё решение, то ему надо будет сбивать все выборы и заново их выбирать )
Код яваскрипта без изменений, а вот html изменён:
function Calc()
{
var pens=0;
var All=document.forms['calceR'];
for(var i = 0; i < All.elements.length; ++i) {
if(All.elements[i].checked){
pens = pens + parseInt(All.elements[i].value) ;
document.calceR.res.value=pens+' руб.';
}
}
}
<form name="calceR">
<table border="1" cellspacing="0" cellpadding="4" style="font-family:Verdana, Arial, Helvetica, sans-serif; font-size:12px; ">
<tr>
<td colspan="4" align="center"><b>Дверные ручки:</b></td>
</tr>
<tr>
<td>Ручки по цене 700 руб.</td>
<td><input name="pen" type="checkbox" value="700"></td>
</tr>
<tr>
<td>Ручки по цене 1400 руб.</td>
<td><input name="pen1" type="checkbox" value="1400"></td>
</tr>
<tr>
<td colspan="4" align="center"><b>Выберите одно из полотен:</b></td>
</tr>
<tr>
<td>Полотно 800 руб.</td><td><input type="radio" name="q1" value="800"></td>
</tr>
<tr>
<td>Полотно 1000 руб.</td><td><input type="radio" name="q1" value="1000"></td>
</tr
<tr>
<td>Полотно 1200 руб.</td><td><input type="radio" name="q1" value="1200"></td>
</tr
<tr>
<td align="center" colspan="4"><b>Полотна с внутренней отделкой:</b></td>
</tr>
<tr>
<td>Полотно 1400 руб.(внут. отделка)</td><td><input type="radio" name="q2" value="1400"></td>
</tr>
<tr>
<td>Полотно 1600 руб.(внут. отделка)</td><td><input type="radio" name="q2" value="1600"></td>
</tr
<tr>
<td>Полотно 1800 руб.(внут. отделка)</td><td><input type="radio" name="q2" value="1800"></td>
</tr
<tr>
<td>Полотно 2000 руб.(внут. отделка)</td><td><input type="radio" name="q2" value="2000"></td>
</tr
<tr>
<td>Полотно 2200 руб.(внут. отделка)</td><td><input type="radio" name="q2" value="2200"></td>
</tr
<tr>
<td>Выполнить рассчёт:</td><td><input onclick="Calc()" type="button" value="расчитать"></td>
</tr>
<td>Итого:</td><td><input name="res" type="text" size="8" disabled="disabled" value="0"></td>
<tr>
<td>Стереть:</td><td><input type="reset" value="Удалить всё"></td>
</tr>
</table>
</form>