tran编程题

1. 编程题：9、角谷猜想(Tran.pas) 【问题描述】 在数学上，有一个称为角谷猜想(最早由日本数学家角谷静夫提出

var
n,s:longint;
begin
read(n);
while s<>1 do
begin
if odd(n) then begin
s:=n*3+1;
writeln(n,'*3+1=',s);
end
else begin
s:=n div 2;
writeln(n,'/2=',s);
end;
n:=s;
end;
end.

2. Foetran编程中，语句open(unit=9,file=filename,status='unknown')在运行出现中断，提示invalid argument

sample.dat里的数字项一定是1到2000吗？这个程序应该可以。
注意：程序里的nn是result文件的个数，result文件必须存为Result_1.dat、Result_2.dat以此类推。
××××××××××××××××××××××××××××××××××××××××××××××××××
character*(20) filename,str
dimension a(2000,2),num(2000),c(2000)
real a,c
do i=1,2000
num(i)=i
c(i)=0.0
enddo
nn=100
do k=1,nn
write(str,*) k
str=adjustl(str)
str=trim(str)
filename=trim('Result_'//str)//'.dat'
call get_n(filename,n)
open(12,file=filename,status='old')
do i=1,n
read(12,*) (a(i,j),j=1,2)
enddo
close(12)
call cumul(n,a,c)
enddo
open(13,file='sample.dat',status='unknown')
do i=1,2000
write(13,*) num(i),c(i)
enddo
close(13)
end

subroutine get_n(filename,n)
character*(*) filename
real temp
n=0
open(11,file=filename,status='old')
do while(.not.eof(11))
read(11,*) temp
n=n+1
enddo
close(11)
end subroutine

subroutine cumul(n,a,c)
dimension a(2000,2),c(2000)
real a,c
do i=1,n
k=int(a(i,1))
c(k)=c(k)+a(i,2)
enddo
end subroutine
××××××××××××××××××××××××××××××××××××××××××××××××××

3. 用C语言编程实现10进制数值转16进制字符串

根据10进制转换为16进制的规则，编写C语言程序将10进制数转换为16进制数。
具体实现方法可参考如下程序：
#include<stdio.h>void main(){
int i, x; // x表示欲转换的10进制数
int data[10], index=0; // data数组存放转换后的16进制数，index表示下标
scanf("%d", &x); // 接受欲转换的10进制数
for(i=0; i<10; i++) // 对数组data进行初始赋值操作
data[i] = 0; printf("%d对应的16进制为：", x); // 反复相除取余，并将余数存放在data数组中
while(x>0) {
data[index] = x%16; x = x/16; index++;
} // 逆序输出data数组中的元素，即为10进制数对应的16进制数 for(i=index-1; i>=0; i--) printf("%d", data[i]); printf("\n");
}

4. foetran90子程序设计最后一题求答案

综合实验二 约瑟夫环问题 1．实验说明 已知n（编号1, 2, 3, …, n别表示）围坐张圆桌周围编号k（1 k n）始报数数m列；1始报数数m列；依规律重复直圆桌周围全部列 2. 实验要求 1）通输入n, m, k三整数求列序列 2）尝试设计实现功能：若要使列序列1, 2, 3, …, n则何安排n初始位置（选做） 综合实验三 迷宫求解 1．实验说明 给矩形迷宫行数、列数、迷宫入口坐标口坐标及迷宫布图求其至少条迷宫路径 2. 实验要求 1）设计友文交互界面 2）打印标示所求迷宫路径 3）迷宫路径信息存文件文件名自定
1、创建点类 Point其 X、Y 轴坐标作数据员同拥构造函数、设置
访问 X、Y 轴坐标员函数、求面积虚函数 Area、求体积虚函数Volume Point
类直接或间接基类派圆类Circle、矩形类Rectangle、形类Square、圆柱类Cylinder、
体类 Cuboid、体类 Cube自行定义些类继承关系、类数据员其内
容并改写 AreaVolume函数确求各几何象面积体积编写测试代码创建述类象并通指针或引用使用 Area Volume函数计算面积或体积

2、定义抽象基类 CElement 其定义显示、求面积等公共接口（纯虚函数）
CElement类直接或间接派CPoint（点）、CLine（线）、CArc（圆弧）、CCircle（圆）、
CRectangle（矩形）、CTriangle（三角形）、CEllipse（椭圆）等图形元素类并重定义基类
虚函数完相应功能再定义 CElemList 链表类链表节点通指针指向
CElement 类型象编写测试代码各具体图形类象加入链表
并通链表指针访问各图形显示、求面积等函数实现运行态显示或计
算确数据

3、定义员类 Person姓名、性别、身份证号、期等信息同拥
能够显示设置些信息函数； Person 类派类 Student 教师类 Teacher类号、级、班级等信息教师类职称等信息；再 Student Teacher 类派职习教师类StuTeacher类信息采用态内存配存储要构造函数配存储空间要析构函数释放空间要拷贝构造函数实现深拷贝类继承关系要合理利用虚拟继承避免二义性问题要派类重写基类继承员函数类其内容自行设计编写测试代码使用些类

4、试着写能想所形状（二维三维）形层结构定义图形类
Shape并由该类派类 TwoDimensionalShap （二维图形）类ThreeDimensionalShape （三维图形）些类都定义虚函数 print 输类型名称纬度TwoDimensionalShape类定义虚函数area求二维图形面积 ThreeDimensionalShape类定义虚函数volume,求三维图形体积已经定义 Shape、TwoDimensionalShap ThreeDimensionalShape类派各种具体形状同重定义area或volume函数计算具体形状象面积体积类其内容自行设计编写测试代码使用些类

5. 三菱plc编程中的tran代表什么意思

代表SFC编程中的条件转换。

转换条件是与转换相关的逻辑命题，转换条件可以用文字语言来描述，如“触点A与触点B同时闭合”；也可以用表示转换的短线旁边的布尔代数表达式来表示，如“I0.1+I2.O”。S7 Graph中的转换条件用梯形图或功能块图来表示，如果没有使用S7 Graph语言，一般用布尔代数表达式来表示负条件。

整数转换为字节指令ITB (I_B)将字(IN)转换成字节后存入OUT指定的变量中。输入数为0～255，其他数值将会产生溢出，但输出不受影响。使ENO=0的错误条件：0006(间接地址)，SM1.1（溢出），SM4.3(运行时间)。这些指令影响SM1.1(溢出位)。

(5)tran编程题扩展阅读：

转换条件I0.O表示I0.O为1状态时转换实现，转换条件I2.0表示I0.0为O状态时转换实现。转换条件I0. 1+I2.0表示I0.1的常开触点闭合或I2.0的常闭触点闭合时转换实现，在梯形图中则用两个触点的并联来表示这样的“或”逻辑关系。

符号↑I2.3和↓I2.3分别表示当I2.3从0状态变为l状态和从1状态变为0状态时转换实现。实际上转换条件↑I2.3和I2.3是等效的，因为一旦I2.3由0状态变为1状态（在I2.3的上升沿），转换条件12.3也会马上起作用。

6. 求大侠帮忙~看看这个C语言程序 题目是算术表达式求值

把Status InitStack1 (Stack1 *S)改成Status InitStack1 (Stack1 *&S)试试。
InitStack2也相应改。

又发现一个问题，你的Push2遇到数字字符时是直接把该字符入栈的，比如遇到1，入栈的是字符'1'，其真实的值是'1'的ASCII码49。然后你的Operate函数又是直接拿这个49来运算的。。。。。。

再发现一个问题，你的Push1和Push2函数的原理不一样。Push1的结果是top指针始终指向栈顶元素的下一个位置。Push2的结果则是top指针指向栈顶元素。而你的两个Pop函数都是以Push2的原理而设计的，当然有问题。要么都用Push1的原理，要么都用Push2的原理。 根据你的栈初始化函数的设计，top指针应该是指向栈顶元素的下一个位置，所以建议push和pop函数都要坚持这一原则。

最后发现一个问题。 Push2(OPND,(Operate(a,theta,b)));
要注意，栈的入栈序列和出栈序列是相反的，比如你输入8-5#，入栈的时候8在5下面，所以出栈的时候5先出来，赋给了a，8再出来，赋给了b，这时候Operate(a,theta,b)就成了计算5-8，当然错误了。应该改成 Push2(OPND,(Operate(b,theta,a)));

好了，貌似没发现什么问题了，你自己再测试一下吧，我要睡了。

7. C语言，这个代码是指向函数的指针的问题，想实现利用系统给定的库函数sin和cos求tan和cot的

tran是个函数名,tran函数返回值是double型，里面有三个参数，第一个和第二个都是返回值为double类型的函数参数（这两个函数的参数也是double类型，f1，f2是指向函数的指针，*f是函数，整个函数的返回值是double类型，返回给tran函数作为参数使用），第三个是double类型的参数。

y=tran(sin,cos,v)调用tran函数，sin函数是tran第一个参数*f1，cos是第二个*f2，v是第三个x
再看tran函数：
return (*f1)(x)/(*f2)(x) 调用了*f1和*f2两个函数，而x是这两个函数的参数

8. c编程的一个不懂的地方，希望大家帮个忙

前面的 tran
double tran(double (*)(double),double (*)(double),double);
是 tran 函数的声明。告诉编译器有一个这样的函数，声明函数的格式
返回类型 函数名( 参数1类型，参数2类型 )；
后边的'；'是格式要求

后面的 tran
double tran(double (*f1)(double),double (*f2)(double),double x)
{return (*f1)(x)/(*f2)(x);}
是tran 函数的实现。

这里 tran 函数 有三个参数，其中
第一个参数： 返回类型为 double 指向 带有 一个 double 参数 的 函数的指针；
第二个参数： 返回类型为 double 指向 带有 一个 double 参数 的 函数的指针；
第三个参数: double

参数1 参数2 传递的不是普通的变量 而是一个函数的入口

调用
y=tran(sin,cos,v); //* *//

是说 tran 的 参数1 参数2 在函数的实现部分 形参1 *f1 形参2 *f2 分别用
double sin(double) 和 double cos(double) 两个实际的函数代替
(*f1)(x)/(*f2)(x) 实际计算的是 sin(v)/cos(v)
计算的结果是 tan(v)

如果要计算 cot(v)
y=tran(cos,sin,v)

你也可以编写自己的 函数作为实参调用 tran
double myfun1(double x)
{
return exp(-x);
}
double myfun2(double x)
{
return x*x;
}

调用

y=tran(myfun1,myfun2,v);

这个调用计算的是 exp(-v)/(v*v)

x 是 一 double型 数值参数

9. C语一道小问题

规则：第i个字母变成第(26-i+1)个字母。
分析可知加密和解密的规则相同。
设：原字母s[j]， 转成字母t[j]。 （以下分析以小写字母为例）
则：原字母s[j]为： 第 i = s[j]-'a'+1 个字母
转成字母t[j]为：第 26-i+1 = 26-(s[j]-'a'+1)+1个字母
按第i个字母的ASCII码为：i+'a'-1
转成字母t[j]的ASCII码为：(26-(s[j]-'a'+1)+1)+'a'-1
即：t[j] = (26-(s[j]-'a'+1)+1)+'a'-1
= 26-s[i]+'a'-1+1+'a'-1
= 2*'a'+25-s[i]
= 'a'+'z'-s[i]

main()
{
int i;
char s[81],tran[81];
gets(s);

for(i=0;s[i];i++)
if(s[i]>='A' && s[i]<='Z')
tran[i]='A'+'Z'-s[i];
else if (s[i]>='a' && s[i]<='z')
tran[i]='a'+'z'-s[i];
else
tran[i]=s[i];
tran[i]=s[i];

puts(s);
puts(tran);
}