258编的奥 begin real a, b print ('Enter a number: ')i if a< o then print ('Sorry, the number was negative. else print ('The square root of ',a, ,b) 左尖括号<是小于号。如果用户输入的一个数小于0,则执行第一个prin语句。否则,该数大 于等于0,则执行包含另一个 print语句的语句块。 到目前为此,本章程序中的每个变量只能存放一个值。用一个变量来存放多个值也是很 方便的,这就是数组。 ALGOL程序中声明一个数组的方法如下所示: eal array a[1: 1001 本例中,表明要用该变量来存储100个不同的浮点值,这些值称作数组元素。第一个为 a[1],第二个为a[2],最后一个为a100]。方括号中的数字称作数组下标 下例程序计算从1~100的所有数的平方根,把结果存放在数组中并显示出来 real array a[1: 100]i integer 1 step 1 until 100 pr⊥nt square root of,i a[i]); 程序中也声明了一个整型变量,名为i(因为它是 Integer的第一个字母,所以经常用来作 为整型变量名)。在第一个for循环中,数组的每一个元素赋值为它的下标的平方根;第二个 for循环中,输出这些值。 除了实型和整型外,变量还可以声明为布尔型(为了纪念第10章提到的乔治·布尔) 个布尔变量只有两个可能的值,即true和 False。本章的最后一个程序里将用到布尔数组(和到 目前为止学到的几乎所有特性)。该程序实现称为“ Eratosthenes漏勺”的用来找到素数的著 名算法。 Eratosthenes(大约公元前276-196年)是亚历山大传说中的图书馆的管理员,他由 于精确地计算出了地球的圆周长而名垂史册。 素数是指只能被1和它本身整除的自然数。第一个素数是2(唯一的偶数素数),此外,素 数还有3、5、7、11、13、17等等 Eratosthenes方法是从以2开始的正的自然数列表开始。因为2是素数,则要删除所有是2begin real a, b; print ('Enter a number: '); read (a); if a< 0 then print ('Sorry, the number was negative.'); else begin b = sqrt (a); print ('The square root of ', a, 'is ', b); end end 左尖括号＜是小于号。如果用户输入的一个数小于 0，则执行第一个p r i n t语句。否则，该数大 于等于0，则执行包含另一个p r i n t语句的语句块。 到目前为此，本章程序中的每个变量只能存放一个值。用一个变量来存放多个值也是很 方便的，这就是数组。A L G O L程序中声明一个数组的方法如下所示： real array a[1:100]; 本例中，表明要用该变量来存储 1 0 0个不同的浮点值，这些值称作数组元素。第一个为 a [ 1 ]，第二个为a [ 2 ]，最后一个为a [ 1 0 0 ]。方括号中的数字称作数组下标。 下例程序计算从1～1 0 0的所有数的平方根，把结果存放在数组中并显示出来： begin real array a[1:100]; integer i; for i :=1 step 1 until 100 do a[i] := sqrt(i); for i :=1 step 1 until 100 do print ('The square root of ', i, ' is ', a[i]); end 程序中也声明了一个整型变量，名为 i（因为它是i n t e g e r的第一个字母，所以经常用来作 为整型变量名）。在第一个for 循环中，数组的每一个元素赋值为它的下标的平方根；第二个 f o r循环中，输出这些值。 除了实型和整型外，变量还可以声明为布尔型（为了纪念第 1 0章提到的乔治·布尔）。一 个布尔变量只有两个可能的值，即 t r u e和f a l s e。本章的最后一个程序里将用到布尔数组（和到 目前为止学到的几乎所有特性）。该程序实现称为“ E r a t o s t h e n e s漏勺”的用来找到素数的著 名算法。E r a t o s t h e n e s（大约公元前2 7 6-1 9 6年）是亚历山大传说中的图书馆的管理员，他由 于精确地计算出了地球的圆周长而名垂史册。 素数是指只能被1和它本身整除的自然数。第一个素数是 2（唯一的偶数素数），此外，素 数还有3、5、7、11、1 3、1 7等等。 E r a t o s t h e n e s方法是从以 2开始的正的自然数列表开始。因为 2是素数，则要删除所有是 2 258 编码的奥秘 下载