信息技術練習題

1、175名兒童到游樂場去玩。他們可以騎旋轉木馬，坐滑行鐵道，乘宇宙飛船。已知其中20人這三種東西都玩過，55人至少玩過其中的兩種。若每樣乘坐一次的費用是5元，游樂場總共收入700，可知有 名兒童沒有玩過其中任何一種。2已知a, b, c, d, e, f, g七個人中，a會講英語；b會講英語和漢語；c會講英語、意大利語和俄語；d會講漢語和日語；e會講意大利語和德語；f會講俄語、日語和法語；g會講德語和法語。能否將他們的座位安排在圓桌旁，使得每個人都能與他身邊的人交談？如果可以，請以“a b”開頭寫出你的安排方案： 。3rogram progam1;varu: array 0.3 of integ

2、er;a, b, c, x, y, z: integer;beginread(u0, u1, u2, u3);a := u0 + u1 + u2 + u3 - 5;b := u0 * (u1 - u2 div u3 + 8);c := u0 * u1 div u2 * u3;x := (a + b + 2) * 3 - u(c + 3) mod 4;y := (c * 100 - 13) div a div (ub mod 3 * 5);if(x+y) mod 2 = 0) then z := (a + b + c + x + y) div 2;z := (a + b + c x - y) *

3、 2;writeln(x + y - z);end.輸入：2 5 7 4輸出： 。4program program2;constu: array0.2 of integer = (1, -3, 2);v: array0.1 of integer = (-2, 3);vari, n, sum: integer;function g(n: integer): integer;var i, sum: integer;beginsum := 0;for i := 1 to n do inc(sum, ui mod 3 * i);g := sum;end;beginsum := 0;read(n);fo

4、r i := 1 to n do inc(sum, vi mod 2 * g(i);writeln(sum);end.輸入：103輸出： 。5program progam3;begin a1:=1;t:=0;for i:=2 to 6 do begins:=0;for j:=1 to i-1 do s:=s+aj; ai:=s+1; end;for i:=1 to 6 do t:=t+ai;writeln(t=,t);end.運行結果為： 6.rogram progam4;var i,s,max:integer;begin for i:=1 to 10 do read(ai); max:=a1

5、; s:=a1; for i:=2 to 10 dobegin if smax then max:=s;end;writeln(max=,max);end.輸入：8 9 1 24 6 5 11 15 28 9運行結果為： 7程序說明 設有個人依次圍成一圈，從第個人開始報數，數到第個人出列，然后從出列的下一個人開始報數，數到第個人又出列，如此反復到所有的人全部出列為止。設個人的編號分別為1，2，n，打印出出列的順序。本題用數組建立標志位等方法求解,用數組實現鏈式結構。 數組ai作為指針變量來使用，ai存放下一個結點的位置。設立指針j指向當前結點，則移動結點過程為j:=aj，當數到m時，m結點出鏈，則aj:=aaj。程序constn=14;m=4; vara:array1.nofinteger;i,j,k,p:integer;beginfori:=1ton-1doai:=i+1; an:=