free pascal题目：苹果摘淘淘 帮我修改一下,不是发程序！！！！！！！

C语言陶陶摘苹果问题，麻烦帮忙看一下我的代码哪里错了，为什么会停止运行？【急需】~

第11行出问题了
应该是：
scanf("%d",&b);

经标准free pascal评测，程序完全无误

for i:=1 to n do
begin
k:=0;
for j:=1 to n do
if (apple[i]>taotao[j]) and (text[j]=true) and (taotao[j]>k)then
k:=taotao[m];
text[k]:=false;
end;
这段写错了吧 k:=taotao[m]? 既然text[k]:=false 那k应该是陶陶的编号吧 但你又用taotao[j]>k来判断 我估计是你自己思路乱掉了。。。
k是编号 max是大小的话 这么写
for i:=1 to n do
begin
k:=0;
max:=9999999; (这里只要超过最高高度就行)
for j:=1 to n do
if (apple[i]>taotao[j]) and (text[j]=true) and (taotao[j]>max)then
begin
k:=j;
max:=taotao[j];
end;
text[k]:=false;
end;
记得前面加上max的定义 应该就对了

算法应该是:
把淘淘数组从大到小排序（或者从小到大，总之要排序）
把苹果数组从大到小排序
从淘淘最大值逐个向最小值遍历(for)，设逐个淘淘高为t，
同时从大到小逐个测试苹果的高值a与t的大小，
大或等于则算已摘，进入下一个t
小则跳过，换下一个a
直到淘淘或苹果被遍历完尽。
返回剩余的淘淘数(苹果先完则会自动返回>0的值)

。。同求。。。。

---

乐业县15917779537： 用Free Pascal做一道题!？
班吴龙芪： 题目:输入一个数,如果这个数是某数的平方,则输出某数. 程序: Program LFH; Var a :real; //定义变量a为real浮点型 begin read(a); //读入值a write(Sqrt(a)); //pascal函数Sqrt(x)求x的开方. 例:sqrt(16)=4 readln; //显示 end.

乐业县15917779537： free pascal题目:苹果摘淘淘 帮我修改一下,不是发程序!!!!!!!？
班吴龙芪： for i:=1 to n do begin k:=0; for j:=1 to n do if (apple[i]>taotao[j]) and (text[j]=true) and (taotao[j]>k)then k:=taotao[m]; text[k]:=false; end; 这段写错了吧 k:=taotao[m]? 既然text[k]:=false 那k应该是陶陶的编号吧 但你又用taotao[j]>k来判断 我估...

乐业县15917779537： 求FREE PASCAL高精度问题答案？
班吴龙芪： pascal; var s,a,b,n:integer; begin readln(a,b,n); if (a<=200) and (b<=200) and (n<=50) then s:=exp(ln(a)*n)+exp(ln(b)*n); writeln(s,'s='); end.

乐业县15917779537： 【急】Free Pascal 一道入门题 - ？
班吴龙芪： var name:array[1..10] of string[15]; money:array[1..10] of longint;...

乐业县15917779537： 两道非常简单的编程题(Free pascal)!! - ？
班吴龙芪： 第一题:(1)把a:=a+1;这句话去掉(2)把a赋个初值,因为默认值为0,0不能作为除数,你1/a自然就是错的(3) 这个和第二个程序问题一样 第二题:pascal 中不支持连等,比如a=b=c要写成(a=b) and(b=c)

乐业县15917779537： FREE PASCAL 2.0.4编程题？
班吴龙芪： 这样可以吗? begin readln; writeln('A','B','C'); end.

乐业县15917779537： free pascal 高难度题目 - ？
班吴龙芪： 解:①根据题目提供条件与数据,建立如下关系代码表:国家名 中国 意大利 英国 日本 法国 俄国 西班牙 德国 宾客代码 A B C D E F G H 语言代号12345678 懂外语代号37518246 总代码 A13 B27 C35 D41 E58 F62 G74 H86 表中总代码实际上...

乐业县15917779537： free pascal编程题目？
班吴龙芪： var a,b,c,i:integer; begin for i:=100 to 999 do begin a:=i div 100; b:=(i mod 100)div 10; c:=i mod 10; if i=a*a*a+b*b*b+c*c*c then writeln(i); end; end.

乐业县15917779537： free pascal 求最大公约数与最小公倍数 - ？
班吴龙芪： var a,b,aa,bb,r:longint; begin readln(a,b); aa:=a; bb:=b; while bb0 do begin r:=aa mod bb; aa:=bb; bb:=r; end; writeln(aa,' ',a*b div aa); end.麻烦给分啦

乐业县15917779537： 请用Free Pascal解答以下3道题.请答案简单一点,我是一个小菜鸟. - ？
班吴龙芪： 先打一下第二题:var a,b,c,m:longint; begin a:=36 div 3; b:=(48+a) div 3; c:=(64+a+b) div 3; writeln(a:4,48+a:4,64+a:4); writeln(a+b:4,b:4,64+a+b:4); writeln(a+b+c:4,b+c:4,c:4); end.