ช่วยหน่อยค่ะโปรแกรมมันไม่วนLOOP
พอเราใส่ A ,a มันก็จะแสดงคำว่าAlphabet แล้วก็จะไม่จบลูปมันก็จะทำไปเรื่อยๆอ่าค่าช่วยหน่อยค่ะ Program set_type; var c :char; begin clrscr; writeln('ป้อนข้อมูลอักขระ 1 ตัว'); readln(c); while c<>'/' do begin if c in ['A'..'Z','a'..'z']then writeln('alphabet')
else if c in ['0'..'9') then writeln('number') else writeln('other'); readln; end end.
|