1樓：匿名使用者
這是我寫的，都對，為了理解方便，寫得有註釋，希望能幫助你。
第一題： var
a,b,c:integer;
beginread(a,b,c);
if (a>b)and(a>c) then writeln(a);
if (b>a)and(b>c) then writeln(b);
if (c>a)and(c>b) then writeln(c);
end. 第二題：
var a:1..12;
beginread(a);
case a of
1:writeln(january);
2:writeln(february);
3:writeln(march);
4:writeln(april);
5:writeln(may);
6:writeln(june);
7:writeln(july);
8:writeln(august);
9:writeln(september);
10:writeln(october);
11:writeln(novemer);
12:writeln(december);
end; end.
第三題： var
a,c:integer;
b:char;
beginread(a,b,c);
case b of
'+'writeln(a+c);
'-'writeln(a-c);
'*'writeln(a*c);
'/'writeln(a/c);
end; end.
對於學pascal，從小學或中學都是很好的（最好是中學），當然再大一點也是可以的，建議你買一本《全國青少年奧林匹克聯賽培訓教材（中學）》，講得很好，是南京大學出版的，比較權威。
要加分哦~o(∩_o~
2樓：匿名使用者
pascal中學要學的。當然，找工作（程式設計的）是也要學的。
3樓：匿名使用者
樓上的第三題讀入方法不是很好。
var a,b,c:integer;
beginreadln(a,b,c);
if a>b then
if a>c then writeln(a) else writeln(c)
else if b>c then writeln(b) else writeln(c); end.
var a:integer;
beginread(a);
case a of
1:writeln('january');
2:writeln('february');
3:writeln('march');
4:writeln('april');
5:writeln('may');
6:writeln('june');
7:writeln('july');
8:writeln('august');
9:writeln('september');
10:writeln('october');
11:writeln('november');
12:writeln('december');
end; end.
var s:string;
a,c:integer;
beginreadln(s);
a:=ord(s[1])-ord('0');c:=ord(s[3])-ord('0');
case s[2] of
'+'writeln(a+c);
'-'writeln(a-c);
'*'writeln(a*c);
'/'writeln(a/c);
end; end.
pascal小學就可以開始學，中學開始也可以。
c語言基礎題 一題選擇題，C語言基礎題 一題選擇題
答案是d。8lx中8的意思是規定了輸出欄位的寬度按，l的意思是long，也就是按長整形輸出，x是按十六進位制輸出，整個的意思就是將a以長整形的十六進位制輸出，輸出欄位的寬度為8.a是錯的，因為還可以使用 ld等等。選d，其中8代表寬度，l代表整數作為long型別列印，x代表無符號16進製制。選d吧a...
PASCAL的題，要多少分都行
1 var a array 0.101,0.101 of integer x,y,k,i,j,l,n longint begin readln n fillchar a,sizeof a 255 for i 1 to n do for j 1 to n do a i,j 0 x 0 y n k 0 ...
急急幫我做幾道會計基礎題 5 謝謝
一 單項選擇題 本部分共10小題，每題1分，每題只有乙個正確答案，請選出正確答案的標記填入括號之中 1 下列各項核算組織程式中，具有直接根據記賬憑證逐筆登記總分類賬特點的是 a a 記賬憑證核算組織程式 b 科目彙總表核算組織程式 c 彙總記賬憑證核算組織程式 d 多欄式日記賬核算組織程式 2 關於...