บทที่ 10 While , for
----------------
For คือคำสั่งการวนลุปที่แน่นอน เพราะว่า for สามารถกำหนดครั้งได้ แน่นอนนั้นเอง
โครงสร้างคำสั่ง For
for ตัวแปร:= ค่าแรก to ค่าที่จะให้ถึง do
คำสั่ง;
เมื่อลองนำมาแทนค่าเล่นๆ จะได้คล้ายๆ แบบนี้
for i:=1 to 5 do
คำสั่ง;
พอเห็นภาพกันแล้วนะครับ คำสั่ง for จะเป็นคำสั่งที่ เพิ่มค่าไปทีละ 1 แต่ถ้าเราจะนำให้มันลดก็ได้เช่น
for i:=5 downto 1 do
คำสั่ง;
ยกตัวอย่างเขียนโปรแกรม โชว์ Number 1-5
program it4x;
uses crt;
var i:integer;
begin
clrscr;
for i:=1 to 5 do
writeln('Number ',i);
end.
ก็จะได้แบบภาพ
คำสั่ง While
เป็นคำสั่งวนลุปที่ใช้เงื่อนไข เมื่อเงื่อนไขเป็นจริง ให้ทำไปเรื่อยๆ จนกว่าเงื่อนไขจะเป็นเท็จ
โครงสร้างของ while จะเป็นดังนี้
while เงื่อนไข do
begin
คำสั่ง;
คำสั่ง;
end;
เมื่อเราลองนำมาเขียนเป็นโปรแกรมง่ายๆ เช่นแสดงเลขลดลงเรื่อยๆ จาก 7 ก็จะได้แบบภาพ
program it4x;
uses crt;
var i:integer;
begin
clrscr;
i:=7;
while i>=0 do
begin
writeln(i);
i:=i-1;
end;
readln;
end.
ลองรันแล้วจะได้แบบภาพครับ
เอาไปลงต่อที่ไหนกรุณาให้ Credit กันด้วยนะครับ
Credit : www.it4x.com
----------------
For คือคำสั่งการวนลุปที่แน่นอน เพราะว่า for สามารถกำหนดครั้งได้ แน่นอนนั้นเอง
โครงสร้างคำสั่ง For
for ตัวแปร:= ค่าแรก to ค่าที่จะให้ถึง do
คำสั่ง;
เมื่อลองนำมาแทนค่าเล่นๆ จะได้คล้ายๆ แบบนี้
for i:=1 to 5 do
คำสั่ง;
พอเห็นภาพกันแล้วนะครับ คำสั่ง for จะเป็นคำสั่งที่ เพิ่มค่าไปทีละ 1 แต่ถ้าเราจะนำให้มันลดก็ได้เช่น
for i:=5 downto 1 do
คำสั่ง;
ยกตัวอย่างเขียนโปรแกรม โชว์ Number 1-5
program it4x;
uses crt;
var i:integer;
begin
clrscr;
for i:=1 to 5 do
writeln('Number ',i);
end.
ก็จะได้แบบภาพ
คำสั่ง While
เป็นคำสั่งวนลุปที่ใช้เงื่อนไข เมื่อเงื่อนไขเป็นจริง ให้ทำไปเรื่อยๆ จนกว่าเงื่อนไขจะเป็นเท็จ
โครงสร้างของ while จะเป็นดังนี้
while เงื่อนไข do
begin
คำสั่ง;
คำสั่ง;
end;
เมื่อเราลองนำมาเขียนเป็นโปรแกรมง่ายๆ เช่นแสดงเลขลดลงเรื่อยๆ จาก 7 ก็จะได้แบบภาพ
program it4x;
uses crt;
var i:integer;
begin
clrscr;
i:=7;
while i>=0 do
begin
writeln(i);
i:=i-1;
end;
readln;
end.
ลองรันแล้วจะได้แบบภาพครับ
เอาไปลงต่อที่ไหนกรุณาให้ Credit กันด้วยนะครับ
Credit : www.it4x.com