free pascal中鸡兔同笼问题的程序问题program homework33;var a,b,c,d:byte;begin write('INPUT THE NUMBER OF FEET IS '); READLN(a); write('INPUT THE NUMBER OF HEADS IS '); readln(b); for c:= 0 to b do for b:=0 to b do if 2*c+4*d=a then writeln
来源:学生作业帮助网 编辑:作业帮 时间:2024/08/01 08:38:33
![free pascal中鸡兔同笼问题的程序问题program homework33;var a,b,c,d:byte;begin write('INPUT THE NUMBER OF FEET IS '); READLN(a); write('INPUT THE NUMBER OF HEADS IS '); readln(b); for c:= 0 to b do for b:=0 to b do if 2*c+4*d=a then writeln](/uploads/image/z/6841710-54-0.jpg?t=free+pascal%E4%B8%AD%E9%B8%A1%E5%85%94%E5%90%8C%E7%AC%BC%E9%97%AE%E9%A2%98%E7%9A%84%E7%A8%8B%E5%BA%8F%E9%97%AE%E9%A2%98program+homework33%3Bvar+a%2Cb%2Cc%2Cd%3Abyte%3Bbegin+write%28%27INPUT+THE+NUMBER+OF+FEET+IS+%27%29%3B+READLN%28a%29%3B+write%28%27INPUT+THE+NUMBER+OF+HEADS+IS+%27%29%3B+readln%28b%29%3B+for+c%3A%3D+0+to+b+do+for+b%3A%3D0+to+b+do+if+2%2Ac%2B4%2Ad%3Da+then+writeln)
free pascal中鸡兔同笼问题的程序问题program homework33;var a,b,c,d:byte;begin write('INPUT THE NUMBER OF FEET IS '); READLN(a); write('INPUT THE NUMBER OF HEADS IS '); readln(b); for c:= 0 to b do for b:=0 to b do if 2*c+4*d=a then writeln
free pascal中鸡兔同笼问题的程序问题
program homework33;
var a,b,c,d:byte;
begin
write('INPUT THE NUMBER OF FEET IS ');
READLN(a);
write('INPUT THE NUMBER OF HEADS IS ');
readln(b);
for c:= 0 to b do
for b:=0 to b do
if 2*c+4*d=a
then
writeln('THE NUMBER OF CHICKS IS ',c);
write('THE NUBMER OF RABITS IS ',d);
readln
end.
问题在哪里,为什么算出的结果不对呢?
把程序改了一下
如下
program homework33;
var a,b,c,d:byte;
begin
write('INPUT THE NUMBER OF FEET IS ');
READLN(a);
write('INPUT THE NUMBER OF HEADS IS ');
readln(b);
for c:= 0 to b do
if 2*c+4*(b-c)=a
then
writeln('THE NUMBER OF CHICKS IS ',c);
writeln('THE NUBMER OF RABITS IS ',b-c);
readln
end.
free pascal中鸡兔同笼问题的程序问题program homework33;var a,b,c,d:byte;begin write('INPUT THE NUMBER OF FEET IS '); READLN(a); write('INPUT THE NUMBER OF HEADS IS '); readln(b); for c:= 0 to b do for b:=0 to b do if 2*c+4*d=a then writeln
program homework33;
var a,b,c,d:byte;
begin
write('INPUT THE NUMBER OF FEET IS ');
READLN(a);
write('INPUT THE NUMBER OF HEADS IS ');
readln(b);
for c:= 0 to b do
if 2*c+4*(b-c)=a
then
begin{加上begin,否则第二个语句没有执行}
writeln('THE NUMBER OF CHICKS IS ',c);
writeln('THE NUBMER OF RABITS IS ',b-c);
end;{加上end}
readln
end.