举例
解题关键
►没有什么难度,关键是以下两点: ►1、掌握赋值覆盖的特点 ►2、草稿纸上细致的书写赋值经过
►2、PROGRAM EXAM1; ►VAR ► X,Y:BYTE; ►BEGIN ► READLN(X,Y); ► IF X>Y THEN WRITELN(X-Y) ELSE
WRITELN(Y-X); ►END. ►输入:24 36 ►输出:
►1、pascal编程基础 ►2、完善程序 ►3、算法专题
1、PASCAL编程基础知识
► 1、常量、变量 ► 2、数据类型(integer、real、byte、boolean、
char) ► 3、常用系统函数和运算符(trunc,mod,div) ► 4、三种基本程序结构、复合语句 ► For循环、while循环、repeat循环、循环嵌套以及配
总结算法基础上的求解
►1、第一次外循环结束时,i为1,s为1;以 而a[k]是原来1基础上加上k-1所得值,所以程 序实际在累加:
►1+2+3+…+10=55
► 8、program test3; ► const ► n1=4;n2=5; ► var ► max,s,i,j,k,t:integer; ► a:array[1..n1,1..n2] of integer; ► begin ► for i:=1 to n1 do ► begin ► for j:=1 to n2 do read(a[i,j]); ► readln; ► end; ► s:=0; ► for j:=1 to n2 do ► begin ► max:=0; ► for i:=1 to n1 do ► if max<a[i,j] then max:=a[i,j]; ► s:=s+max; ► end; ► writeln(s); ► end.