นักโปรแกรมเมอร์ เซียน pascal เข้ามาทีครับ

[berg1100]

พอดีผมเพิ่งได้เรียนเกี่ยวกับภาษาครั้งแรกอ่ะครับแล้ว อ. ให้เขียน pascal
โดยให้เขียนชื่ออ่ะครับ โดยตัวอักษรต้องมีสีต่างกัน กระพริบไม่พร้อมกันอ่ะครับ
แต่ผมเขียนได้แค่ 2ตัวเอง(เขาให้เขียน4ตัว) ตามด้านล่างครับ

Program Exam1_4;
Uses Crt;
Begin
Clrscr;
TextColor(yellow+128); Write('BBBBBB');
TextColor(red); Writeln(' OOOOOO');
TextColor(yellow+128); Write('BB BB');
TextColor(red); Writeln(' OO OO ');
TextColor(yellow+128); Write('BB BB');
TextColor(red); Writeln(' OO OO');
TextColor(yellow+128); Write('BB BB');
TextColor(red); Writeln(' OO OO');
TextColor(yellow+128); Write('BB BB');
TextColor(red); Writeln(' OO OO');
TextColor(yellow+128); Write('BB BB');
TextColor(red); Writeln(' OO OO');
TextColor(yellow+128); Write('BBBBBB');
TextColor(red); Writeln(' OOOOOO');
Readln;
End.


คือจะให้มันได้หยั่งงี้อ่ะครับเวลาแสดงผล
B O Y D
แต่ตอนนี้ผมทำได้แค่ B O ในแถวเดียวกันอ่ะครับ ลองทำเท่าไหร่ ตัวY กับ D
ก็ไม่อยู่ในแถวเดียวกันสักทีอ่ะครับ
เซียนช่วยทีครับ

[oDeSTiNYo]

อยากช่วยนะครับ แต่ไม่ได้ จับ pascal มา 5 ปีแย้ว ลืมไปหมดแล้วว่าเรียกยังไงมี่ง -*-

[berg1100]

อยากช่วยนะครับ แต่ไม่ได้ จับ pascal มา 5 ปีแย้ว ลืมไปหมดแล้วว่าเรียกยังไงมี่ง -*-

รื้อฟื้นทีครับ อิอิ
ยังไงใครเซียนเข้ามาช่วยทีคร้าบบบบบบบบบบบบ

[skaz-]

Program Exam1_4;
Uses Crt;
Begin
Clrscr;
TextColor(yellow+128); Write('BBBBBB');
TextColor(red); Write(' OOOOOO');
TextColor(yellow+128); Write('BB BB');
TextColor(red); Write(' OO OO ');
TextColor(yellow+128); Write('BB BB');
TextColor(red); Write(' OO OO');
TextColor(yellow+128); Write('BB BB');
TextColor(red); Write(' OO OO');
TextColor(yellow+128); Write('BB BB');
TextColor(red); Write(' OO OO');
TextColor(yellow+128); Write('BB BB');
TextColor(red); Write(' OO OO');
TextColor(yellow+128); Write('BBBBBB');
TextColor(red); Write(' OOOOOO');
Readln;
End.



เอา writelnมาทำไมครับท่าน writeln มันเป็นคำสั่งเว้นบรรทัด มันจะอยู่บรรทัดเดวกันได้อย่างไร

[berg1100]

Program Exam1_4;
Uses Crt;
Begin
Clrscr;
TextColor(yellow+128); Write('BBBBBB');
TextColor(red); Write(' OOOOOO');
TextColor(yellow+128); Write('BB BB');
TextColor(red); Write(' OO OO ');
TextColor(yellow+128); Write('BB BB');
TextColor(red); Write(' OO OO');
TextColor(yellow+128); Write('BB BB');
TextColor(red); Write(' OO OO');
TextColor(yellow+128); Write('BB BB');
TextColor(red); Write(' OO OO');
TextColor(yellow+128); Write('BB BB');
TextColor(red); Write(' OO OO');
TextColor(yellow+128); Write('BBBBBB');
TextColor(red); Write(' OOOOOO');
Readln;
End.



เอา writelnมาทำไมครับท่าน writeln มันเป็นคำสั่งเว้นบรรทัด มันจะอยู่บรรทัดเดวกันได้อย่างไร

งั้นแสดงว่า ต้องใส่ Writeln ตอนจบบรรทัดใช่ป่ะครับ
ขอบคุณมากครับ

[skaz-]

คับ ใช่แล้ว แสดงว่าท่านไม่ตั้งใจฟังตอนอาจารย์อธิบายการใช้คำสั่งสินะ ระวังเรื่องprocedureนะครับ เจอแล้วรับรองจุก!!

[1two3]

^^

[berg1100]

คับ ใช่แล้ว แสดงว่าท่านไม่ตั้งใจฟังตอนอาจารย์อธิบายการใช้คำสั่งสินะ ระวังเรื่องprocedureนะครับ เจอแล้วรับรองจุก!!

- - รู้อีกว่าเราไม่ฟัง อ. 555
ส่วนอันนี้เป็นอีกบอร์ดที่ผมไปโพสถาม ยังไงช่วยทีครับ

http://www.soccersuck.com/soccer/viewtopic.php?t=209396

[b123k]

เคยเขียนมาตั้งนาน ใส่สีให้มันได้ด้วยรึนี่....หุหุ

[xculibur]

writeln เป็นแสดงหลังจากแสดงแล้วขึ้นบรรทัดใหม่

โปรแกรมนี้เขียน ไม่เคยใช้สีเลย 555+

[Mr.Iceman]

ลืมแล้วครับ ตอนนี้ใช้แต่ VB.net