今有5羊4犬3鸡2兔值钱1496，4羊2犬6鸡3兔值钱1175，3羊1犬7鸡5兔值钱958，2羊3犬5鸡1兔值钱861，求鸡值多
5q+4w+3e+2r=1496 方程1
4q+2w+6e+3r=1175 方程2
3q+w+7e+5r=958 方程3
2q+3w+5e+r=861 方程4
由方程2乘以2-方程1消去w 得方程5： 3q+9e+4r=854
由方程3乘以3-方程4消去w 得方程6： 7q+16e+14r=2013
由方程3乘以4-方程1消去w 得方程7： 7q+25e+18r=2336
由方程6、7联立消去q得 方程8：9e+4r=323
由方程5、7联立消去q得 方程9：6e+13r=515
联立 方程8、9解得 e=23
所以鸡值23元。
给分啊！！！
收藏大多动物了只留下了23只,他们的吃的程序太血了,不重覆解说了!!
四元一次方程而已，很简单。
1、今有5羊4犬3鸡2兔值钱1496，4羊2犬6鸡3兔值钱1175，3羊1犬7鸡5兔值钱958，2羊3犬5鸡1兔值钱861，求鸡值~
看来你也很喜欢几斗的样子嘛？经常去守护甜心吧嘛？
现在开始回答你的问题。
（我是用的编译环境是Radstudio XE,属于Delphi编译器。如果你使用的编译器是Freepascal 或者Turbo Pascal,程序可能需要注释掉一行。）
程序一：
分析：很多人一上来就用for循环，可是因为计算量大，会导致超时，无法达到NOI比赛规定的时限。这里我使用全主元高斯约当消去法。
这个程序可以瞬间解答出来，输出答案 23.000
program GaussSolve;
{$APPTYPE CONSOLE} // 如果是Free pascal的编译器就注释掉
uses
SysUtils;
type
matrx2 = array of array of real;
procedure GAUSSJ(VAR A: matrx2; N: integer; VAR B: array of real);
var
IPIV, INDXR, INDXC: array [1 .. 50] of integer;
J, I, K, L, LL: integer;
BIG, PIVINV, DUM: real;
IROW, ICOL: integer;
begin
For J := 1 To N do
IPIV[J] := 0;
For I := 1 To N do
begin
BIG := 0;
For J := 1 To N do
begin
If IPIV[J] 1 Then
begin
For K := 1 To N do
begin
If IPIV[K] = 0 Then
begin
If Abs(A[J, K]) >= BIG Then
begin
BIG := Abs(A[J, K]);
IROW := J;
ICOL := K;
end;
end
Else if IPIV[K] > 1 Then
Writeln('Singular matrix.');
end;
end;
end;
IPIV[ICOL] := IPIV[ICOL] + 1;
If IROW ICOL Then
begin
For L := 1 To N do
begin
DUM := A[IROW, L];
A[IROW, L] := A[ICOL, L];
A[ICOL, L] := DUM;
end;
DUM := B[IROW];
B[IROW] := B[ICOL];
B[ICOL] := DUM;
end;
INDXR[I] := IROW;
INDXC[I] := ICOL;
If A[ICOL, ICOL] = 0 Then
Writeln('Singular matrix.');
PIVINV := 1 / A[ICOL, ICOL];
A[ICOL, ICOL] := 1;
For L := 1 To N do
A[ICOL, L] := A[ICOL, L] * PIVINV;
B[ICOL] := B[ICOL] * PIVINV;
For LL := 1 To N do
begin
If LL ICOL Then
begin
DUM := A[LL, ICOL];
A[LL, ICOL] := 0;
For L := 1 To N do
A[LL, L] := A[LL, L] - A[ICOL, L] * DUM;
B[LL] := B[LL] - B[ICOL] * DUM;
end;
end;
end;
For L := N DownTo 1 do
begin
If INDXR[L] INDXC[L] Then
begin
For K := 1 To N do
begin
DUM := A[K, INDXR[L]];
A[K, INDXR[L]] := A[K, INDXC[L]];
A[K, INDXC[L]] := DUM;
end;
end;
end;
end;
var
A: matrx2;
B: Array [0 .. 4] of real;
I: integer;
begin
setlength(A, 5, 5);
// 输入已知的方程组的系数矩阵
// 5 4 3 2
// 4 2 6 3
// 3 1 7 5
// 2 3 5 1
A[1, 1] := 5;
A[1, 2] := 4;
A[1, 3] := 3;
A[1, 4] := 2;
A[2, 1] := 4;
A[2, 2] := 2;
A[2, 3] := 6;
A[2, 4] := 3;
A[3, 1] := 3;
A[3, 2] := 1;
A[3, 3] := 7;
A[3, 4] := 5;
A[4, 1] := 2;
A[4, 2] := 3;
A[4, 3] := 5;
A[4, 4] := 1;
// 输入已知的方程组的右端向量B
// 1496
// 1175
// 958
// 861
B[1] := 1496;
B[2] := 1175;
B[3] := 958; // 这是需要求解的量
B[4] := 861;
GAUSSJ(A, 4, B);
for I := 1 to 4 do
Writeln(B[I]:3:3);
Writeln('WANTED:',B[3]:3:3); // 输出答案 （23.000）
Readln;
end.
程序二：
分析：石头剪子布可能会遇到的问题是产生随机数，产生随机数之前必须 randomize，用来产生种子，很多初学者忽略了这一点。
program tick_teck_tick;
{$APPTYPE CONSOLE}
uses
SysUtils;
var
c, c1: Char;
i: Integer;
begin
// 用S表示剪刀，用R表示石头，用P表示布
Writeln('Input [S],[R],[P] and press[ENTER].');
Readln(c);
c := UpCase(c);
// 这是电脑总是赢的一种算法
// 如果需要随机，则使用random方法
case (c) of
'S':
Writeln('R');
'R':
Writeln('P');
'P':
Writeln('S');
end;
// ---------------华丽的分割线------------------------
// 下面是计算机随机出，然后判断输赢 ，对人类公平的算法
randomize;
i := random(900);
if (i <= 300) then
c1 := 'S'
else if (i 300) then
c1 := 'P'
else
c1 := 'R';
Writeln('You-->', c, ',Computer-->', c1);
// 决断胜负
if (c = c1) then
Writeln('-O-..Tie..')
else if (((c = 'S') and (c1 = 'P')) or ((c = 'R') and (c1 = 'S')) or
((c = 'P') and (c1 = 'R'))) then
Writeln('=U=..You win!')
else if (((c = 'S') and (c1 = 'R')) or ((c = 'R') and (c1 = 'P')) or
((c = 'P') and (c1 = 'S'))) then
Writeln('ToT..You lose.');
Readln;
end.
^-^祝福您学习愉快！
'用穷举法解，有多种答案
Private Sub Command1_Click()
Dim a As Integer, b As Integer, c As Integer, d As Integer
For b = 1 To 300
For c = 1 To 100
For d = 1 To 100
a = (1496 - (4 * b + 3 * c + 2 * d)) / 5
If 5 * a + 4 * b + 3 * c + 2 * d = 1496 _
And 4 * a + 2 * b + 6 * c + 3 * d = 1175 _
And 3 * a + 1 * b + 7 * c + 5 * d = 958 Then
Print a, b, c, d
End If
Next d
Next c
Next b
End Sub
有5羊4犬3鸡2兔值钱1496,4羊2犬6鸡3兔值钱1175,3羊1犬7鸡5兔值钱958...
答：累死我了,没算出来!有难度!
一个《九章算术》中的题目,大家帮我求证下!
答：①*3-②*2得 7x+8y-3a=2138 ⑤ ④*5-③得 7x+14y+18a=3347 ⑥ ④*2-①得 -x+2y+7a=226 ⑦ ⑤*6+⑥得49x+62y=16175 ⑧ ⑤*7+⑦*3得46x+62y=15644 ⑨ ⑧-⑨ 得3x=531，x=177，将x代入⑨解得y=121 将x、y代入⑦解得a=23 将x、y、a代入④解得b=29...
您好,请问重庆彭水县至马武镇或者石柱县最晚的一班客车是几点啊?我要...
答：D3健康村 - 石笋部(卫生村2队)走一小时 - 小溪 - 顺溪汞河口营地,整个过程需要四个小时。 D4:银河沿水,涉水看风景,游泳,悠闲地步行五小时要达到的...D2:谢杨玉良洞 - 无底洞 - 黑风洞 - 兔子洞 - 知青孔的英雄事迹在早晨,午餐,琵琶洞有20分钟的步行路程,(名),在接下来的孔冒险参观羊的,的鹿去伍兹...
古代方程
答：今有5羊、4犬、3鸡、2兔，直钱1496；4羊、2犬、6鸡、3兔，直钱1175；3羊、1犬、7鸡、5兔，直钱958；2羊、3犬、5鸡、1兔，直钱861。问：羊、犬、鸡、兔价各几何？解：设：羊a元一只，犬b元一头，鸡c元一只，兔d元一只 5a+4b+3c+2d=1496 4a+2b+6c+3d=1175 3a+b+7c+5d=...
四元一次方程(出自《九章算术》)要过程!
答：设羊 犬 鸡 兔单价分别为a b c d,则有：5a+4b+3c+2d=1496 ① 4a+2b+6c+3d=1175 ② 3a+ b+7c+5d=958 ③ 2a+3b+5c+ d=861 ④ 联立这4个方程 解得a=177 b=121 c=23 d=29
