1樓：
下列變數說明哪些是不正確的？為什麼？
(1) var
a,b,c:integer; 這裡有b了，
bookname,b,y:char; //這裡不能再宣告瞭，這裡有個y了；
x,y:real //這裡就不能再用y;
(2) var
x1,x2,x3:integer;
a,b,tel:charactor; //見過char，沒有見過charactor;
m,n:bool; //
var 是用於宣告變數的；語法是：
var變數名：資料類別；
一、下列符號那些表示字元？哪些表示字串？哪些不屬於上述兩種範圍？
'book' //字串
'age' //字串
'x' //字串
'b' //字串
12 //不屬於上述兩種
'314' //字串
the //字串
'# # # # #' //字串
'8' //字串
'' //空字串
pen //不屬於上述兩種
'3'//字串
二、求出下列表示式的值（數值或邏輯值）
（1）13*6*8 div 3 //將前面三位相乘，最後再整除 208
（2）5/4*2.5/1.25*(4+6) //25
（3）24 div 4*sqr(6.0)/3.6 //60
（4）('a'>'b') or (succ('e')='f') //true
三、將下列代數式改寫成free pascal表示式
（1）(x+y)(x-y) // (x+y)*(x-y);
（2）b // b
四、編寫一個已知三角形的底和高，求它的面積的程式，並上機除錯通過。
vara,b:rea; //宣告變數， 用於儲存底與高；
area:real; //宣告變數，用於儲存面積；
begin
a:=5; //已知底；
b:=3; //已知高；
area := a*b/2 //如果不用判斷是否組成三角形，直接用計算三角形公式：底×高/2就是三角形面積；
showmessage('三角形面積是：' + floattostr(area)) ; //free pascal 是怎樣顯示出來，你檢視一下相關幫助了；
我用的是delphi 7寫的；
你參考一下吧；不一定是對的哦；自己再查查相關的幫助文件對你有幫助；
2樓：範書豪
是用vb嗎？
第四個答案是：
private sub command_click()a=inputbox("請輸入底的值"）
b=inputbox（"請輸入高的值"）
s=a*b
print s
end sub
3樓：匿名使用者
太失敗了，完全搞不懂
請大家分析一下我的成績 期末考試 數學105 語文103 英
說句實話，看您這次考試！您的薄弱科目只有英語和生物！高一數學 英語能考100以上，應該是很不錯的！在高三全面複習時，這兩科都可以提10 20分！您不用擔心！記住學好主科，高考成功了一半，希望繼續保持。至於英語，只要將單詞背好 相信，這麼聰明的您一定能學好英語的！還有理綜，最重要的是多總結！因此，一定...
兒子明天就要期末考試了，可每次考試我比兒子還緊張，這才初二，要是考大學我不緊張死啊！有同感的父母嗎
孩子就是自己生命的延續，每個父母神侍含都談激希望自己的孩子出色，有個好的未來，他們遊笑的成功凝聚了父母的辛勤付出。你為什麼要緊張哪，你緊張和不緊張對考試結果有影響嗎？我是一個初二的學生，明天就要期末考試了，我現在特緊張，怕考不好，怎麼辦呀 這是心抄理素質襲比較差的緣故 在一bai些特殊場合和物件面d...
這次期末考試考差了，我應該怎麼交待
態度要誠懇，表鎮鍵示自己知道最近不用功，一定會接下來很用功，希望媽媽相信自猜旅譁己穗行。記住，態度一定要誠懇，眼神要真摯。前邊好後邊不好。說明你沒有用功。戀愛了？還是總上網啊。現在青少年普通現象愛玩電腦。但是早期玩過多的電腦會給你將來造成前畝很大影響。其實犯了錯誤到沒什麼。主動承認就好了。就怕你錯了...