聪明人的游戏 上课稿第06课.pptVIP

微软的人均营业收入 计算微软的人均营业收入 及时充电（输入语句） 输入语句 执行read(t1,t2,t3)时，有以下四种方式： 实数类型与输出场宽 实数类型标识符：real 变量说明格式：var 变量名表：real; 实数类型的范围：2.9e-39~1.7e+38，包括整数和小数 输出实数时，通常是用科学记数法格式显示。 1.7e+38 相当于1.7*1038 如果要以我们习惯的格式显示，就在输出中使用双场宽。 如writeln(3.51:5:1) 输出为 □□3.5 除法运算 1、整除运算：运算符为 “div” 结果为两个整 型数除法的整数商。 例如：10 Div4=2 2、求余数运算：运算符为 “mod” 结果为两个整型数除法的余数。 例如：10 mod 3=1 3、普通除法：运算符为 “/” 结果为两个任意数值相除的商(含小数)。 例如：10 /4=2.5 探索奥秘 探索奥秘 求任意一个三数的各位数字之和。按下面格式输出。 展示实力 1、写出下列表达式的值。 12*3+6/4= 45 div 4= 98 mod 10 = 2、写出下列程序段的运行结果。 展示实力 3、从键盘输入一个字符，然后显示一个由该字符组成的图案。 * * …… …… …… …… 2837000 50621 2002 2530000 48030 2001 2296000 39170 2000 ……. ……. …… …… 人均营业收入（万美元/人） 营业收入（万美元） 员工人数 财政年度 Program P1_6_1; Var rs:real; {rs用于存放人数} Zsr,pjsr:real; {zsr和pjsr用于存放总收入和平均收入} Begin Readln(rs,zsr); pjsr:=zsr/rs; Writeln(‘pingjun shouru:’,pjsr:10:5) End. 不接受数据，光标换行 Readln 接受键盘输入数据存入对应变量，然后光标换行 Readln（变量表） 接受键盘输入数据存入对应变量 Read（变量表） 作用 格式 输入数据时，数值数据之间可用空格分开，也可以每输入一个数按一次回车； 如果是输入字符或者字符串，两者之间不能用空格分开，只能每输入一个按一次回车。 50 32 75 50 32 75 50 32 75 50 32 75 方式4 方式3 方式2 方式1 但是如果将执read(t1,t2,t3)改成readln(t1);readln(t2,t3);时，只能按上表的 “方式2”和“方式4”. Program P1_6_2; Var x4,y:real; Begin Readln(x4); y:=x4*5; Writeln(‘value:+’, y:0:2) End. {运行时输入：13.7} Program P1_6_3; Var t1,t2:integer; ret:string; Begin read (t1);read(t2); t1:=t1+t2; ret:=‘Out’; Writeln(t1) End. {运行时分别输入：10和20} 写出下面程序的运行结果。 写出下面程序的执行后变量t1,t2,ret的值。 输入样例 输出样例 138 1+3+8=11 Program P1_6_4; Var a,b:integer; x,y,z:real; Begin read (a); z:=a mod 10; y:=(a div 10) mod 10; x:=a div 100; b:=x+y+z; Writeln(x,’+’,y,’+’,z,’=’,b) End. Var k1,k2,fn:integer; Begin Read(k1,k2); fn:=k1+2*k2; If fn7 then writeln(fn) End.{运行时输入1,2,3} Var w1,w2:integer; Begin writeln(‘Enter’); Read(w1,w2); W1:=0; W1:=w1+w2; Writeln(w1) End.{运行时输入15，36} Var n,v:integer; Begin read(n); v:=n mod 5; writeln(‘VP=’,v) End. {运行时输入 34} Var my:real; Begin my:=18/4-3; Writeln(my:10:2) End. 输入样例 输出样例 K k kkk kkkkk 4、输入两个整数，让计算机来求它们的和、差、积、商、整数商和余数。 输入