最短路径..
数据结构上说的很详细..
Pascal难题 最优二叉树
要求求出最大的p记为maxp,最小的p记为minp,和他们的差K=maxp-minp。对于给定的数列,编程计算出它的max,min和K。输入文件(MAXMIN.IN):第一行是数列的长度N(不超过50),以下N行,每行一个正整数(不超过2位)。输出文件(MAXMIN.OUT):输出一共三行,每行一个整数,依次为max,min,K。输入输出样例:MAXMIN...
一道pascal编程题目,真搞不懂为什么会错,求大神指点一下!看了很多遍...
min:=maxlongint; 肯定放错了位置 ！我的程序：var a,b,c,d,e:integer; m,n:integer; aa,bb,cc,dd,ee:integer; t:array[1..5,1..1000] of longint; i,j,k:integer; min,s:longint; f:text;begin assign(f,'游泳比赛.in'); reset(f); readln...
一道pascal编程题目,看不懂样例输入和样例输出,求指点!
1# 2# 3# 4# 5 15 14 12 14 15 简单分析如下：1、1#赢则1#变16分其是冠军 2、2#赢则2#变15分，则1#、2#、5#是并列冠军 3、3#赢则3#变为13分，则1#、5#是并列冠军 4、4#赢则4#变15分，则1#、4#、5#是并列冠军 5、5# 赢则5#变16分其是冠军 所以1#...
用pascal编程算这道题:鸡兔同笼,头30,脚90,求鸡兔各多少只
已知每只鸡的脚数量是2 每只兔的脚数量为4 头是1 设鸡的脚数量为X 兔的脚数量为2X X+2X=90 X=30 鸡的数量是30除以2等于15只 兔的数量2乘以30除以4等于15只 鸡兔各15只
我有个PASCAL语言编程问题!!急
我是个编程初学者从0起点开始自己编了个输入a和b的数值,然后输出sum的程序,运行时老不成功下面是程序program kjk;vara,b:integer;sum:integer;beginread(a,b);sum:=a+b;end.调试正常,可一运行想输入a和b,刚按一下键盘,程序就结束了。倒底是什么问题呀???另外给个pascal的教程网站好吗?? 展开 ...
一道pascal编程题目!怎么看也看不懂它的样例输入和样例输出,求解释啊...
3、关于题目的样例输入——样例是一个对阵形势图，我们来看一下，以第二组样例来说明：第一行有一个3，说明这个组共有三支球队（我们分别用ABC来代表三支球队）；下面为了说明我把对输入样例中的各个内容拉大了些距离，另外左边和顶部又加上了ABC，如：A B C A - D D B L...
一道pascal问题,就是搞不懂他那个解释是什么意思。题目如下:
答案应该是：卡车运过来的！因此我认为，这个题目不会是500+500这个简单的问题，而是如何设置“点”，才能让油车在往返给“点”送油的前提下，通过沙漠的问题。也就是卡车不是一次通过了沙漠，而需要返回去带更多的油。嗯，从你复制的分析看，应该是这样吧，否则。。。这题确实太弱了。
pascal编程题目,真的不知道怎么做,求解答呀!
Pascal太久不写了，已经不会了，能给你个大致的思路。首先把展馆按从近到远排个序，然后i从1到n遍历，计算最远走到第i个展馆能参观多少。最远走到第i个展馆能参观多少个展馆呢？首先，参观的展馆一定在1到i之间，由于时间的缘故可能无法全部参观，所以这时要看前i个展馆里有多少1类多少2类，优先...
Pascal编程题:某小班,10个学生,输入十个学生的成绩,求及格的人数及及格...
某小班,10个学生,输入十个学生的成绩,求及格的人数及及格同学的平均分 var i,k,j,t:longint;begin for i:=1 to 10 do begin read(k);if k>=60 then begin inc(j);t:=t+k;end;end;writeln(j);writeln(t\/j:0:0);end.数组整体后移一位 var a:array[1..130]of longint;t,i...
pascal 编程 问题是:有100匹马,100块瓦,大马每次拉3块,中马每次2块...
program Project1;var i,j:integer;begin j:=0;for i:=1to 100do {i表示大马，则100-i表示小马} if 3*i+2*(100-i)then begin writeln('大马有',i,'匹,','小马有',i,'匹.');inc(j)end;writeln('有',j,'种方法');end....
