คนเขียนโปรแกรม

ช่วยเขียน Pascal ให้ทีครับ เอาแบบ ยากปานกลางอ่าครับ พอดีผมทำรายงานส่งก่อนสอบ

eAgaintsz
👁 35,376 ครั้ง · 💬 5 ตอบ
:-*พอดีผมทำรายงานอะครับ มีเพื่อนอีก2คน ไม่ได้ช่วยอะไรผมเลย
ผมคนเดียวคิดไม่ออกจริงๆ ยังไงก็ช่วยด้วยนะครับ  ขอบคุณครับ
🏷️ หัวข้อที่เกี่ยวข้อง
พอด วยเข ยน pascal ให คร เอาแบบ ยากปานกลางอ าคร ผมทำรายงานส งก อนสอบ ผมทำรายงานอะคร เพ อนอ

💬 การตอบกลับ 5

#1
Moshi
Moshi
16,996 โพสต์
เกี่ยวกับอะไรครับ??
#2
eAgaintsz
eAgaintsz
6 โพสต์
— Moshi link=topic=14860.msg29096#msg29096 date=1346441413

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


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

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

✏️ แก้ไขล่าสุด: 1 กันยายน 2555

#3
Moshi
Moshi
16,996 โพสต์
http://www.it4x.com/forum/index.php/topic,1138.0.html

ลองดูในกระทู็นี้ครับ มีหลายโปรแกรมพื้นฐานเอาไปใช้ได้ยุครับ
#4
eAgaintsz
eAgaintsz
6 โพสต์
— Moshi link=topic=14860.msg29140#msg29140 date=1346605786

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.
#5
Moshi
Moshi
16,996 โพสต์
เป็นโปรแกรม ให้วน loop 1-100 แล้ว เอาค่า i มาบวกกัน จะได้ไป เลข 1-100 บวกกันครับ

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