LậP TRÌNH TRONG MAPLE…
Người soạn: LêMinh Trung
Vòng lặp While…
Cú pháp:
while
điều_kiện
do
công_việc
od;
Trong khi điều_kiện đúng , thực thi công việc.
Dùng các câu lệnh như RETURN,break,quit để thoát ra
giữa vòng lặp.
Phải là kiểu
Boolean
Tìm USCLN và BSCNN cuả x,y…
Dùng thuật toán Euclide:
Nhập x,y
Y<>0
r := x mod y
x:=y
y:=r
In ra x
Minh hoạ thuật toán…
x
y
r
30
12
While y<> 0 do
r = x mod y
x:= y
y := r
6
12
6
0
6
0
In ra x=6
Chương trình…
> x:=30;
y:=12;
m:=x;
n:=y;
while y<>0 do
r:=irem(x,y);
x:=y;
y:=r;
od:
USCLN:=x;
BSCNN := (m*n)/x;
print(`USCLN la:`);
value(USCLN);
print(`BSCNN la:`);
value(BSCNN);