PASCAL程序設計中的幾個基本問題

var a，b，c，d，x1，x2:real；

開始

readln(a，b，c)；

d:= sqrt(sqr(b)-4 * a * c)；

x 1:=(-b+d)/(2 * a)；x2:=(-b-d)/(2 * a)；

writeln(x 1:2:2)；writeln(x2:2:2)；

結束。

2.簡單排序

var a，b，c，t:整數；

開始

readln(a，b，c)；

如果a & ltb然後開始t:= a；a:= b；b:= t；結束；

如果a & ltc然後開始t:= a；a:= c；c:= t；結束；

如果b & ltc然後開始t:= b；b:= c；c:= t；結束；

writeln(a，' '，b，' '，c)；

結束。

3.簡單循環

var i，s:整數；

開始

s:= 0；

對於i:=1到100 do

如果我模2=1，那麽

s:= s+I；

書寫內容；

結束。