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

ข่าวสาร / ความรู้ => คนเขียนโปรแกรม => ข้อความที่เริ่มโดย: eAgaintsz ที่ กันยายน 01, 2012, 01:07:11

หัวข้อ: ช่วยเขียน Pascal ให้ทีครับ เอาแบบ ยากปานกลางอ่าครับ พอดีผมทำรายงานส่งก่อนสอบ
เริ่มหัวข้อโดย: eAgaintsz ที่ กันยายน 01, 2012, 01:07:11

:-*พอดีผมทำรายงานอะครับ มีเพื่อนอีก2คน ไม่ได้ช่วยอะไรผมเลย
ผมคนเดียวคิดไม่ออกจริงๆ ยังไงก็ช่วยด้วยนะครับ  ขอบคุณครับ

หัวข้อ: Re: ช่วยเขียน Pascal ให้ทีครับ เอาแบบ ยากปานกลางอ่าครับ พอดีผมทำรายงานส่งก่อนสอบ
เริ่มหัวข้อโดย: Moshi ที่ กันยายน 01, 2012, 02:30:13

เกี่ยวกับอะไรครับ??

หัวข้อ: Re: ช่วยเขียน Pascal ให้ทีครับ เอาแบบ ยากปานกลาง
เริ่มหัวข้อโดย: eAgaintsz ที่ กันยายน 01, 2012, 19:55:08

อ้างจาก: Moshi ที่ กันยายน 01, 2012, 02:30:13

เกี่ยวกับอะไรครับ??

คือ ๆ อาจารย์อะครับ เขาสั่งให้เขียนขึ้นมา 1 โปรแกรม โปรแกรมอะไรก็ได้ ถ้าโปรแกรมนั้นเขียนง่ายเกินไปก็จะโดนทำใหม่อ่าครับ
เป็นรายงานส่งก่อนสอบอะครับ

(ส่วนหัวข้อก็จะมี 1.อธิบายเป็นภาษาไทย  2.ชื่อโปรแกรม  3.ตัวแปร  4.ทำมาเพื่อ)
บางข้อเดี๋ยวไม่แน่ผมคิดเองอ่าครับ ขอบคุณอีกครั้งครับ

หัวข้อ: Re: ช่วยเขียน Pascal ให้ทีครับ เอาแบบ ยากปานกลางอ่าครับ พอดีผมทำรายงานส่งก่อนสอบ
เริ่มหัวข้อโดย: Moshi ที่ กันยายน 03, 2012, 00:09:46

http://www.it4x.com/forum/index.php/topic,1138.0.html

ลองดูในกระทู็นี้ครับ มีหลายโปรแกรมพื้นฐานเอาไปใช้ได้ยุครับ

หัวข้อ: Re: ช่วยเขียน Pascal ให้ทีครับ เอาแบบ ยากปานกลางอ่าครับ พอดีผมทำรายงานส่งก่อนสอบ
เริ่มหัวข้อโดย: eAgaintsz ที่ กันยายน 03, 2012, 00:51:33

อ้างจาก: Moshi ที่ กันยายน 03, 2012, 00:09:46

http://www.it4x.com/forum/index.php/topic,1138.0.html

ลองดูในกระทู็นี้ครับ มีหลายโปรแกรมพื้นฐานเอาไปใช้ได้ยุครับ

ขอบคุณครับ  ผมอยากได้ฮะิบายเป็นภาษาไทยอะครับ

โปรแกรมนี่>>>
program it4x;
uses crt;
var i,sum:integer;
begin
     clrscr;
     i:=1;
     repeat
     sum:=sum+i;
     i:=i+1;
     until i>=101;
     writeln('Average of 1 to 100 = ',sum/i:1:2);
     readln;
end.

หัวข้อ: Re: ช่วยเขียน Pascal ให้ทีครับ เอาแบบ ยากปานกลางอ่าครับ พอดีผมทำรายงานส่งก่อนสอบ
เริ่มหัวข้อโดย: Moshi ที่ กันยายน 03, 2012, 12:56:30

เป็นโปรแกรม ให้วน loop 1-100 แล้ว เอาค่า i มาบวกกัน จะได้ไป เลข 1-100 บวกกันครับ

พอบรรทัดล่าสุดจะเป็นการหาค่าเฉลี่ย ก็เอา sum/i