pascal询问——tyvj第k极值 为什么我的程序为0分?
来源:学生作业帮 编辑:作业帮 分类:综合作业 时间:2024/05/18 06:04:42
pascal询问——tyvj第k极值 为什么我的程序为0分?
给定一个长度为N(0
给定一个长度为N(0
弱弱问一句,你的程序呢?
这是我写得程序,参考一下吧.
program p1001;
var
a:array[1..10000]of int64;
i,m,n,k:longint;
f:boolean;
procedure qsort(l,r:longint);
var
ii,jj,mid,ch:int64;
begin
ii:=l;jj:=r;mid:=a[(l+r)div 2];
repeat
while a[ii]mid do dec(jj);
if iijj);
if iil then qsort(l,jj);
end;
begin
readln(n,k);
for i:=1 to n do
read(a[i]);
readln;
qsort(1,n);
m:=a[n-k+1]-a[k];
f:=true;
if m>0 then
for i:=2 to trunc(sqrt(m)) do
if m mod i=0 then f:=false;
if m
这是我写得程序,参考一下吧.
program p1001;
var
a:array[1..10000]of int64;
i,m,n,k:longint;
f:boolean;
procedure qsort(l,r:longint);
var
ii,jj,mid,ch:int64;
begin
ii:=l;jj:=r;mid:=a[(l+r)div 2];
repeat
while a[ii]mid do dec(jj);
if iijj);
if iil then qsort(l,jj);
end;
begin
readln(n,k);
for i:=1 to n do
read(a[i]);
readln;
qsort(1,n);
m:=a[n-k+1]-a[k];
f:=true;
if m>0 then
for i:=2 to trunc(sqrt(m)) do
if m mod i=0 then f:=false;
if m
大家帮我看看这Pascal的程序为什么会输出负数的?
pascal程序 定义一函数digit(n,k) 使得他回送整数n的从右边开始数第k个数字的值
问一下程序,pascal的.
求平均数的pascal程序
Pascal 也分 Turbo Pascal 和 Free Pascal 的
pascal 背包问题一段程序的解释
pascal的一个阅读程序题
Pascal语言编程问题,找出第k个被3,5,7除的时候,余数为2,3,2的数
这道是pascal的读程序题目,我要的是过程,不是单单一个答案
2007 矩阵取数把不用高精度的程序发给我好么.今天6点以前.我会尽我所能多给分的pascal语言.c++我看不懂.NO
PASCAL 编一个PASCAL程序,给定一堆正整数,要求分成两堆,两堆数的和分别为S1和S2,使S1²-S2
pascal金字塔编写一个程序,输入两个整数N和K(N,K