第1讲Pascal语言基础知识一.pptVIP

Pascal语言程序设计 第一部分 第一讲 Pascal语言基础一 程序的基本结构 程序的上机调试和运行 语言基础一 例1： 要将一张100元的大钞票，换成等值的10元、5元、2元、1元一张的小钞票，每次换成40张小钞票，每种至少1张。 如，有一种换法： 10元： 9 张 5元： 1 张 2元： 2 张 1元： 1 张 问：一共有多少种换法。 程序的上机调试和运行 program ex1; var x1,x2,x3,x4,n:integer; begin n:=0; for x1:=1 to 10 do for x2:=1 to 20 do for x3:=1 to 50 do for x4:=1 to 100 do if (10*x1+5*x2+2*x3+x4=100)and(x1+x2+x3+x4=40) then n:=n+1; writeln(n); end. 例2? 、 已知： s=1+1/2+1/3+…+1/n 求：使s的值大于10时最小的n。 var s : real; n : integer; begin s:=