Delphi機試試題1
請用Delphi或C++寫一個小
程序,從一個文本文件中把所有數字累加起來,然後顯示出結果。文本文件內容如下所示:
華倫巴菲特-世界首富的選股法則:
1.股東權益報酬率(1季及2年平均)均大於3.75%
2.現金流量成長率(1季及2年平均)均大於5%
3.價格/淨值比小於2
4.毛利率(1季及2年平均)均大於15%
5.本益比小於20
結果=1+2+3+75+1+2+5+2+1+2+15+20
2.计算并输出300至500以内所有素数(即质数)中最大的前10个数之和k与300至500以内所有素数的个数j,并将结果
输出到文件mydata.dat中.
Delphi程式語言測驗(每題10分共10題總分100分)
1.試定義常數PI為3.14159,變數a整數,b小數型態.
2.定義Record包含變數a整數,b小數型態,c字串.
3.定義陣列xx元素為100個整數.
4.變數A為2,B為5,以程式表達進行交換(A為5,B為2)
5.寫出攔截例外並可顯示錯誤訊息.
6.請寫出2種
常用的迴圈(語法即可)?
7.動態陣列宣告方式及使用方式?
8.Case的語法或使用方式?
9.欲找出部份相同字元或字串命令為何?
10.多執行緒(多線程)的建立及執行方式?
答:
1.const
pi=3.14159;
var
a:integer;
b:double;
2.typerecordname=record
a:integer;
b:real;
c,:string;
end;
3.typexx=array[0..99]ofinteger
4.var
a,b,c:integer;
begin
a:=2;
b:=5;
c:=a;
a:=b;
b:=c;
end;
5.try
srttoint(self.edit1.texe);
except
showmessage('不能转换');
end;
6.1.for计算数:=初值to终值do循环体语句
2.while表达式do循环体语句
7.
8.case表达式of
选择项1:语句1;
选择项2:语句2;
选择项3:语句3;
........
选择项N:语句N;
else
语句N+1;
end;