pascal编程 pascal菜鸟教程

program 程序 const 常量 type 类型 var 变量 function 函数 procedure 过程 begin 开始 end 结束 if 如果 then 那么 else 否则 case of 分支 for to do 计数循环 while 当循环 repeat 循环 until 直到 in 属于

Pascal是一种计算机通用的高级程序设计语言.它由瑞士Niklaus Wirth教授于六十年代末设计并创立. 以法国数学家命名的Pascal语言现已成为使用最广泛的基于DOS的.

像其它通用语言一样,可以编写各种软件,不过它是面向过程的,而且不是可视化的,可视化的可以用Delphi,里面用OO Pascal语言

var a,b,c,d,sum:longint; begin readln(a,b,c,d); if (a<60)or(b<60)or(c<60)or(d<60) then begin writeln('Poor LanYangYang'); exit; end; if a>=90 then sum:=sum+1; if b>=90 then sum:=sum+1; if c>=90 then sum:=sum+1; if d>=90 then sum:=sum+1; if sum=4 then sum:=5; writeln(sum); end.没编译过,直接打出来的,你可以试试看.

{所有题目都运行过了, 没有报错} {第一题} var n, i, k: Integer; S: string; begin Write. w=pascal&spi=1&sr=2&w8=pascal&qf=10&rn=30&qs=1 var N, i: Byte;{记录输入个.

Var st:string; I:longint;Begin Readln(st); For i:=length(st) downto 1 do Write(st[i]); Writeln;End.

网上买书 当当网上就有很多 有很多好书的算法都是用pascal写的

Pascal 排序有四种方法:选择排序、冒泡排序、基数排序、类型排序 下面给出用一条数组,进行的对20个元素的选择排序的程序段 FOR i:=1 TO 19 DO FOR J:=1 TO 20 DO IF a[i]<a[j] THEN BEGIN temp:=a[i]; a[i]:=a[j]; a[j]:=temp END; 其中 a 是已经说明为 a:ARRAY[1..20] OF integer; 的数组变量,并且必须每一个元素都有值

var i,j,tmp:integer;begin for i:= 2 to 1000 do begin tmp:=0; for j:= 1 to i-1 do if i mod j =0 then tmp := tmp + j; if tmp = i then writeln(i); end; readln;end.

var a,b:integer;beginreadln(a,b);a:=a+b;b:=a-b;a:=a-b;writeln('a=',a,' b=',b);end.长时间不写P语言的代码了,语法不知道有没有错,但是算法没有问题.