IT4X เทคนิคคอมพิวเตอร์ โน๊ตบุค ข่าว IT

ข่าวสาร / ความรู้ => คนเขียนโปรแกรม => ข้อความที่เริ่มโดย: MonalizaVr ที่ กันยายน 02, 2012, 22:59:00

หัวข้อ: ถาม admin เรื่อง วิธีการเขียนโปรแกรม
เริ่มหัวข้อโดย: MonalizaVr ที่ กันยายน 02, 2012, 22:59:00
พี่ครับ

ตอนนี้ผมเรียนเขียนโปรแกรมอยู่ อยากจะให้พี่ เขียนโปรแกรมในลักษณะ

การรับ เลข ID 13 หลัก ให้มันตรวจสอบอ่ะครับว่า เวลารับค่ามา ค่าของมันเกิน หรือ ขาด 13 หลัก

ถ้าขาดหรือเกินให้มัน Error แล้วกลับไปรับค่าใหม่ อีกรอบ จนกว่า จะได้ ค่า 13 หลัก พอดีอ่ะครับ

ขอบคุณมาก ๆๆ ครับ  :)
หัวข้อ: Re: ถาม admin เรื่อง วิธีการเขียนโปรแกรม
เริ่มหัวข้อโดย: Moshi ที่ กันยายน 03, 2012, 00:09:20
อ้างอิงข้อมูลนะครับ

http://math.uww.edu/~harrisb/courses/cs171/strings.html

ใช้ ประมาณนี้ครับ

 Var
            St: String[20];  Len: Integer;

            St := 'a';              { ตัวแปรถ้ารับค่าก็ readln มาเอาเลยครับ }
            Len := Length(St);     { นับตัวอักษรได้  1 }

จากนั้นก็เข้าเงื่อนไขประมาณนี้ครับ

if Len<13 then
    คำสั่ง
หัวข้อ: Re: ถาม admin เรื่อง วิธีการเขียนโปรแกรม
เริ่มหัวข้อโดย: MonalizaVr ที่ กันยายน 04, 2012, 18:49:37
ขอบคุณครับ พี่ Admin ^^ :-*