先入先出法での単純総合原価計算，２等級別総合原価計算｜高精度計算サイト https://keisan.casio.jp/exec/user/1608773570

総合原価計算.txt

/*
d = 期首仕掛品量; d = 期首仕掛品加工進捗度;
d = 当期投入量;

d = 当期完成品量;
d = 期末仕掛品量; d = 期末仕掛品加工進捗度;

d = 期首仕掛品材料費; d = 期首仕掛品加工費;
d = 当期投入材料費; d = 当期投入加工費;
*/

完成品換算した期首仕掛品量 = 期首仕掛品量 * 期首仕掛品加工進捗度;
完成品換算した期末仕掛品量 = 期末仕掛品量 * 期末仕掛品加工進捗度;
完成品換算した当期投入量 = 当期完成品量 + 完成品換算した期末仕掛品量 - 完成品換算した期首仕掛品量;

if (材料一括投入) {
    期末仕掛品原価 = 当期投入材料費 * 期末仕掛品量 / 当期投入量
    + 当期投入加工費 * 完成品換算した期末仕掛品量 / 完成品換算した当期投入量;
}
else {
    期末仕掛品原価 = 当期投入材料費 * 完成品換算した期末仕掛品量 / 完成品換算した当期投入量
    + 当期投入加工費 * 完成品換算した期末仕掛品量 / 完成品換算した当期投入量;
}

完成品原価 = 期首仕掛品材料費 + 期首仕掛品加工費 + 当期投入材料費 + 当期投入加工費 - 期末仕掛品原価;

完成品原単価 = 完成品原価 / 当期完成品量;

print(完成品原価, 完成品原単価, 期末仕掛品原価);

/* 等級別計算 */
if (等級別計算) {
    積数合計 = 0;
    
    A積数 = A等級完成品量 * A等価係数;
    積数合計 = 積数合計 + A積数;
    
    B積数 = B等級完成品量 * B等価係数;
    積数合計 = 積数合計 + B積数;
    
    A完成品原価 = 完成品原価 * A積数 / 積数合計;
    A完成品原単価 = A完成品原価 / A等級完成品量;
    
    B完成品原価 = 完成品原価 * B積数 / 積数合計;
    B完成品原単価 = B完成品原価 / B等級完成品量;
    
    print(A完成品原価, A完成品原単価);
    print(B完成品原価, B完成品原単価);
}