pascal简单编程问题？ pascal编程
pascal简单的编程问题
{６、输入一整数A，判断它是否质数。（提示：若从2到A的平方根的范围内，
没有一个数能整除A，则A是质数。）}
function IsPrime(N: Word): Boolean;
var
i: Integer;
begin
Result := True;
for i :=2 to Trunc(Sqrt(N)) do
if N mod i = 0 then
begin
Result := False;
Break;
end;
end;
var
N: Word;
begin
Readln(N);
if IsPrime(N) then
Writeln('The Number is prime')
else
Writeln('The Number isn''t prime');
Readln;
end.
pascal简单编程问题
program pp;
var a,b,c,l:integer;
s:real;
begin
write('please input a,b,c:');
readln(a,b,c);
if (a+b>c and a+c>b and b+c>a) then
begin
l=(a+b+c)/2;
s=sqrt(s*(s-a)*(s-b)*(s-c));
writeln('area=',s);
end
else
writeln('Can''t');
end.
一个简单的PASCAL编程问题
这个就是穷举法，把每个情况都列出来，然后判断；如果 c mod a[i]<>b[i]，剩下得猪数不等
c:=c+d;{当前猜解数加上余数，即猜有去掉余数有多少母猪+剩余母猪。即母猪数}
d:=d*a[i];{跟本题没关，懒得看}
BY：丁 应该对
非常简单的PASCAL问题
字符串比较大小 要一位一位比，只要有一位不同 就是不相同~简单写下
lena=length（a）；lenb=length (b);flag=1;if (lena=lenb) 字符长度肯定要一样啊,不然怎么相等beginfor i:=1 to lena doif (a[i]<>b[i]) 只要有一位不相等 ，字符串a，b就是补相等了begin flag=0; break;end;end else flag=0;if (flag=1) writeln('yes')else writeln('no');
LZ 明白了吗~~
不管怎么样版本都有问题....汗...都没办法 分成一行一行，不好意思了...