pascal问题

pascal问题~

想了想...
1--
var
n,m:integer;
function f(n,m:integer):longint;
var
i,s:longint;{因为总和可能很大 所以用longint}
begin
for i:=n to m do inc(s,i); {inc(i,x)的意思是i:=i+x}
f:=s;{值赋给函数f}
end;
begin
readln(n,m);
write(f(n,m));{直接调用函数f 得到结果}
end.


2--
var
i:integer;
check:array[10..99]of boolean;{在这里定义布尔型数组来记录符不符合条件}
begin
for i:=10 to 99 do begin{因为是两位数 所以10~99}
for j:=2 to i-1 do if i mod j=0 then check[i]:=false;
{如果可以被非1和他本身的数整除就记录为false}
k:=(i div 10)+(i mod 10)*10;{k代表倒序i}
for j:=2 to j-1 do if j mod k=0 then check[i]:=false;{同上，若可被整除就记录false}
end;
for i:=10 to 99 do if check[i] then write(i,' ');{如果正确则输出i 这里用' '实现空格}
end.


想了半天呐...望采纳！
刚才没看到追问...把注解写上了。

pascal pascal pascal!!!!!!

var
c1,c2,c3:char;
a,b,c:integer;
begin
readln(c1,c2,c3);
a:=ord(c1);
b:=ord(c2)
c:=ord(c3)
writeln(a,' ',b,' ',c);
writeln(c3,c1,c2);
end.
大哥，我好累

2.
var t,c:real;
begin
readln(t);
if t<=1 then write(t*1.5)
else write(1.5+0.8*(t-1));
end.

---

义马市15592221052： PASCAL出现问题？
乐软那琦： 一般遇到这种问题重新启动FP就好了,编译器的问题,我常遇到,没很大影响,因为FP常常不稳定,所以内部出现错误后会崩溃,重启FP就好了. 调试一下,到哪部出错看一下,如果有过程函数的,直接按F8,出问题后,光标自动停在出错的那行. 在程序末尾设断点,出问题后,光标也会自动停在出错的那行.

义马市15592221052： Pascal 循环问题 - ？
乐软那琦： 循环做法:枚举女生人数x,则男生人数为50-x 然后模拟女生进来,如果最后一个女生给9个男生礼物,则x是对的.数学做法:设女生人数为x,则男生人数为50-x 据题意,(50-x)-x=(9-1),所以x=21.所以女生有21个,男生有29个.

义马市15592221052： PASCAL 扑克问题 - ？
乐软那琦： 设定数组为1到54,单位为boolean,先排除倍数2的数,从3到53逐个检测,存入变量i,在这个循环中再套入一个循环,表示检测i到54之间有哪个能被i整处则翻牌.程序:Program fs(input,output); Var a:array[1..52]of boolean; b:array[1..52]of ...

义马市15592221052： pascal问题:谁是小偷?(具体要求:↓) - ？
乐软那琦： program tou;var t:char;begin for t:='a' to 'd' do if ord(t<>a)+ord(t=c)+ord(t=d)+ord(t<>d)=1 then writeln(t);readln;end.解释一下:o...

义马市15592221052： 急!pascal问题？
乐软那琦： 可以告诉你,这是区间DP.这道题做法和合并石子几乎一样,只是把加换成乘.用F[i,j]表示从i到第j个数相乘的最大值.之后的我想你可以完成了.

义马市15592221052： Pascal 的几条简单问题？
乐软那琦： 嗯、第一题要是等于2.5怎么办、 我来回答吧: 第一题: PROGEAM x1; var x:real; begin read(x); write('y='); if x<=2.5 then writeln(x*x+1:0:2) else writeln(x*x-1:0:2); write('z='); if x<0 then writeln(-pi/2*x+3:0:2) else if x=0 then writeln(0) else writeln(-pi/...

义马市15592221052： Pascal问题(急!!!) - ？
乐软那琦： 1.可以用字符.定义如下:var a:array['A'..'Z']of longint;2.Pascal运行错误对照表Pascal运行错误对照表 运行错误是指程序运行时出现的错误,当发生时,Turbo Pascal显示如下信息: RUNTIME ERROR NNNN AT XXXX:YYYY 其中,nnnn是运行...

义马市15592221052： 有关pascal的问题 - ？
乐软那琦： exe文件执行一些小程序的速度是很快的,在一瞬间就执行完了,自然就关闭了,只不过看起来就像是直接关闭一样. 在以后你会学文件输入输出的.当然,如果你确实想看程序的屏幕输出结果的话,在程...

义马市15592221052： PASCAL基础的一些问题？
乐软那琦： program kertvar x,y,s:real; ch:char; // 以上是定义变量部分 begin //程序开始 writeln('input x & y & ch:'); // 输出提示 readln(x,y); readln(ch); //输入x,y,ch case ch of //case语句判断是要做什么运算 '+':s:=x+y; //如果ch为'+',为加法 '-':s:=x-y;'*':s:=x*y; '/':s=x/y end; //case语句结束 writeln(x,ch,y,'=',s) // 输出表达式和运算结果 end. // 程序结束

义马市15592221052： Pascal问题 - ？
乐软那琦： Program xx; Var x,y:real; n:integer; Function mi(x:real;n:integer):real; Var i:integer; Begin mi:=1; For i:=1 to n Do mi:=mi*x; End; Function s(x:real;n:integer):real; Var i:integer; Begin For i:=1 to n Do s:=s+mi(x,i)/i; End; Procedure calculate(Var y:real); ...