— ɹǝʞɔɐɹɔ-[ɹǝuunƃ link=topic=1138.msg24600#msg24600 date=1314281348]
อยากทำแบบว่า.. คำนวณเลขบัตรประชาชนอ่ะครับ ทำยังไงหรอครับ
— Pornurai22 link=topic=1138.msg24608#msg24608 date=1314287237
ถึงเจ้าของกระทู้ คืออยากจะรบกวนหน่อยนะคะว่าช่วยเขียนปาสคาล1โปรแกรมหลักแล้รมีห้าโปรแกรมย่อยอยู่ในนั้นน่ะค่ะ ขอเป็นเรื่องการหาพ.ท.สี่เหลี่ยมอะไรก็ได้ค่ะ รบกวนด้วยนะค่ะ อันนี้ด่วนจริงๆ ขอบคุณมากมากนะคะ :)
:'( :-*
— Moshi link=topic=1138.msg24603#msg24603 date=1314283355
[quote author=ɹǝʞɔɐɹɔ-[ɹ]ǝuunƃ link=topic=1138.msg24600#msg24600 date=1314281348]
อยากทำแบบว่า.. คำนวณเลขบัตรประชาชนอ่ะครับ ทำยังไงหรอครับ
— bunlusak link=topic=1138.msg24782#msg24782 date=1315194947
รบกวนของตัวอย่างโปรแกรมคำนวณคะแนน รวมจากการรับค่าคะแนนกลางภาค และปลายภาค เพื่อนพิจารณาว่าสอบผ่านหรือสอบตก โดยแสดงผลการสอบ ถ้าคะแนนรวมต่ำกว่า 60 คะแนน
input midterm score=>( รอรับค่าคะแนนกลางภาค)
input final score= > (รอรับค่าคะแนนปลายภาค)
you Pass!! (ในกรณีสอบได้มากกว่า 60 คะแนน)
you Fall !! (ในกรณีสอบไม่ถึง 60 คะแนน)
รบกวนของตัวอย่างทีนะครับ
— cartoonzazz link=topic=1138.msg24982#msg24982 date=1315981277
ขอ โปรแกรมตัวอย่าง . . ราคาสินค้า ค่ะ
จำนวนสินค้า ราคาต่อชิ้น
1- 10 50 บ.
11 – 100 45บ.
101 – 1,000 40บ.
มากกว่า 1,000 ขึ้นไป 30บ.
ประมาณนี้ ค่ะ ::)
— sake0077 link=topic=1138.msg28517#msg28517 date=1343669037
อยากให้ลองเขียนแบบนี้ให้ดูหน่อยอะครับ คำนวณภาษ๊เงินได้โดยการรับข้อมูลเป็น เงินเดือน โบนัส โอที มีเงื่อนไขว่า ถ้าเงินได้คงเหลือ 1-100000 บาท เสียภาษี 5% 100001-150000 บาทเสียภาษี 7% 150001-200000 บาทเสียภาษี 10% 200001-ขึ้นไป เสียภาษี 15% แสดงผลรวมที่ได้ทั้งหมด กับภาษีที่ต้องชำระ รบกวนทำให้ดูหน่อยได้ปะครับ ขอบพระคุณล่วงหน้าเป็นอย่างยิ่งนะครับบบบบบ :P :P
— cartoonzazz link=topic=1138.msg24982#msg24982 date=1315981277
ขอ โปรแกรมตัวอย่าง . . ราคาสินค้า ค่ะ
จำนวนสินค้า ราคาต่อชิ้น
1- 10 50 บ.
11 – 100 45บ.
101 – 1,000 40บ.
มากกว่า 1,000 ขึ้นไป 30บ.
ประมาณนี้ ค่ะ ::)
— markkuza007 link=topic=1138.msg28263#msg28263 date=1342191889
ผมอยากได้ตัวอย่าง ภาษาปาสคาลที่แสดงเฉพาะเลขคู่ ไปจนถึง n ครับ
program For_1_100;
uses crt;
var i,x:integer;
begin
clrscr;
x:=1;
writeln('Program 1_100/5 Use For');
writeln('***********************');
writeln;
for i:=1 to 100 do
begin
if(i mod 5)=0 then
begin
writeln(x,') Number = ',i);
x:=x+1;
end;
end;
readln;
end.