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);
}