คำสั่ง IF – THEN – ELSE
เป็นคำสั่งใช้ตรวจสอบเงื่อนไขว่าเป็นจริงหรือเป็นเท็จ
ถ้าเงื่อนไขเป็นจริงจะไปทำงานที่คำสั่งที่อยู่หลัง Then
ถ้าเงื่อนไขเป็นเท็จจะไปทำงานคำสั่งที่อยู่หลัง Else หรือถ้ามีมีคำสั่ง Else ก็จะ
ไปทำงานที่คำสั่งบรรทัดถัดลงมาจาก IF
รูปแบบการใช้คำสั่ง
IF (เงื่อนไข) THEN (คำสั่ง)
ELSE (คำสั่ง);
เช่น
IF X > Y THEN Writeln(X + Y)
ELSE Writeln(X – Y);
IF NAME = ‘น’ THEN Writeln(NAME)
ELSE Readln(NAME);
ตัวอย่างโปรแกรม
Program TestIf;
Uses crt;
Var H,A,B : Real;
Begin
Clrscr;
Write(‘ให้พิมพ์ค่าของ A เป็นตัวเลขจำนวนเต็ม’);
Readln(A);
Write(‘ให้พิมพ์ค่าของ B เป็นตัวเลขจำนวนเต็ม);
Readln(B);
IF (A > 0) AND (B > 0) THEN H := Sqrt(Sqr(A) + Sqr(B);
Writeln(‘ด้านตรงข้ามมุมฉาก = ‘, H:5:2);
Readln;
End.
ตัวอย่างโปรแกรม
Program TestIf1;
Uses crt;
Var Name : String[30];
Sex : string[3];
Age : Integer;
Begin
Clrscr;
Writeln(‘ให้พิมพ์ชื่อของคุณ’);Readln(Name);
Writeln(‘ให้พิมพ์เพศหญิง หรือ ชาย’);Readln(Sex);
Writeln(‘ให้พิมพ์อายุของคุณ’);Readln(Age);
Clrscr;
IF Age > 17 THEN Writeln(‘คุณแก่กว่าฉัน’ : 30)
ELSE IF Age = 17 THEN Writeln(‘คุณอายุเท่ากับฉัน’ : 30);
ELSE IF Age < 17 THEN Writeln(‘คุณอายุน้อยกว่าฉัน’ : 30);
Writeln(Name,Sex,Age : 30);
Readln;
End.
Program TestIf2;
Uses crt;
Var nme1,nme2,nme3,tem : string[30];
Begin
Clrscr;
Writeln(‘ให้พิมพ์ชื่อคน 3 ชื่อ : 30’);
Write(‘คนที่ 1 ชื่อ’ : 25);Readln(nme1);
Write(‘คนที่ 2 ชื่อ’ : 25);Readln(nme2);
Write(‘คนที่ 3 ชื่อ’ : 25);Readln(nme3);
IF nme1 > nme2 THEN
Begin tem := nme1;
nme1 := nme2;
nme2 := tem;
End;
IF nme2 > nme3 THEN
Begin tem := mne2;
nme2 := nme3;
nme3 := tem;
End;
IF nme1 > nme2 THEN
Begin tem := nme1;
nme1 := nme2;
nme2 := tem;
End;
Clrscr;
Writeln(‘ชื่อที่เรียงลำดับแล้วคือ’ :25);
Writeln(nme1, ‘ ‘ ,nme2, ‘ ‘ ,nme3);
Readln;
End.
หากต้องการทราบการอัพเดทของ เขียนโปรแกรม คำสั่ง IF – THEN – ELSE ภาษาปาสคาล และเรื่องที่เกี่ยวข้อง แนะนำให้กด ที่ facebook ด้านล่างนี้เลยค่ะ เผื่อที่จะได้อัพเดทก่อนใคร
อัพเดทเมื่อ วันอาทิตย์ที่ 17 พฤศจิกายน พ.ศ. 2556 ในหมวดหมู่ของ เขียนโปรแกรม เรื่อง เขียนโปรแกรม คำสั่ง IF – THEN – ELSE ภาษาปาสคาล