1、编写一程序，验证角谷猜想。所谓的角谷猜想是："对于任意大于1的自然数n，若n为奇数，则将n变为3*n+1，否则将n变为n的一半。经过若干次这样的变换，一定会使n变为1。"
2、有一堆100多个的零件，若三个三个数，剩二个；若五个五个数，剩三个；若七个七个数，剩五个。请你编一个程序计算出这堆零件至少是多少个？
3、一辆快车和一辆慢车开往同一地点，快车票价为18元，慢车票价为13. 5元，共售出400张，共计5940元，求快车票和慢车票各多少张?.


…………
第一题 不知道
第二题 中国剩余定理
第三题 鸡兔同笼

若要实现括号里的东西的话请把程序了的“{”和“}”全部删掉，可以不删，不影响.
“//”后面的东西是我对程序的注释，编程时不要写.请连“//”一起删了
progarm diyiti;           //程序名称.可以不写
var n{,t}:integer;        //定义n,t为正整形（t是我用来计算计算次数的）
begin
readln(n);              //读入 n
if n<1 then             //如果n小于一
   begin
     write('error')        //输出“error”，就是错误的意思
     readln;              //停着显示结果.按回车跳出.
     helt;                 //结束整个程序
   end;
while n<>1 do           //当n不等于1时，
   begin
     if n mod 2=1        // 如果n除以2余一的话，既n是奇数数
     then
   {begin}
     n:=3*n+1{;             //n乘3加1 注：else前不能有";"
     writeln(n);          //(输出n让你看一下.)
      inc(t);               //(t增加1，既t:=t+1)
      readln;             //(停着显示结果.按回车跳出，有了这个，它算一次就停一次)
     end;}
    else                   //如果不符合if的条件，既n是偶数
    {begin}
    n:=n div 2             //n等于n整除2
    {inc(t)                 //(t增加1，既t:=t+1)
    writeln(n);            //(输出n让你看一下.)
    readln;               //(停着显示结果.按回车跳出,有了这个，它算一次就停一次)
     end;}
end;
write('true ');            //输出“true”
{write('t=',t);}           //(输出计算次数t )
readln;
end.
我也只是新手，可能这个程序会有点问题..

无聊得紧..
program disnti;
var k:integer;                     //假设快车卖出k张票
begin
   for k:=1 to (5940 div 18) do    //快车最多只可能卖出（5940 div 18）张票
   then 18*k+(400-k)*13.5=5940      //快车卖k张，慢车卖(400-k)张票
readln;
end.
这些都好简单....
我说，我毁了你的前途了.这么简单的题目原则上是不能教的..连这种题目都不去思考...那.......

回复：4楼
谢啦啊，大哥。

回复：2楼
额。。。还不如不回~~~~

回复：5楼
其实本人对pascal真的一窍不通，现在在上初一，老师就逼着学，不想学，但是，我想说的是，这正的好难诶~~~~~~~（我认为难的原因可能是我上课睡觉吧）(*^__^*) 嘻嘻……

随便吧..本人小五

初一被逼着学？
我们学校没这么流弊，
一个年段会pascal入门的也只有十个左右

艾玛。同样的命运！题目都看不懂内。。。

，全都会。哪题不会问我，LZ

感觉Lz的 题目 都还 蛮简单的把
顺便问两个题目、、 1怎么在一推数组中 删除 某个数
2怎么把i个元素起的X个数移至数组末尾，其余的数依次向前靠拢

楼上的问题啥意思？
果断看不懂。

1.procedure shan(c:integer);
var i:integer;
begin
for i:=c+1 to n do
a[i-1]:=a[i];
end;(把元素一次前移就行)
2.for i:=n downto i do
a[i+1]:=a[i];（依次后移，然后前移）

你那个第二题 只是把一推数往后移一个位子

var
a:array[1..100]of integer;
i,j,x,jin,n:integer;
begin
jin:=1;
readln(n);
for i:=1 to n do
read(a[i]);
readln(i,x);
for j:=i to i+x-1 do
begin
a[n+jin]:=a[j];
inc(jin);
end;
jin:=0;
for j:=i+x to n+i+x-1 do
begin
a[i+jin]:=a[j];
inc(jin);
end; for i:=1 to n do
write(a[i]:3);
readln;
readln;
end.
这下OK了

同意

目测第一个用while，第二、三个用穷举＋判断

哈哈，本人小五，但觉得这些题都好简单。我也是学pascal的。哈哈