ข่าว IT ล่าสุด
ถูกใจอย่าลืม Like Fanpage
แบบฝึกหัดตัวอย่าง PASCAL ที่หลายๆคนขอมาครับ
แสดงแล้ว 200960 ครั้ง /
กันยายน 05, 2011, 10:55:47
สมาชิกไม่มีภาพ

bunlusak

ออฟไลน์
กระทู้ : 5
คะแนนขอบคุณ : 0
รบกวนของตัวอย่างโปรแกรมคำนวณคะแนน รวมจากการรับค่าคะแนนกลางภาค และปลายภาค เพื่อนพิจารณาว่าสอบผ่านหรือสอบตก โดยแสดงผลการสอบ ถ้าคะแนนรวมต่ำกว่า 60 คะแนน

input midterm score=>( รอรับค่าคะแนนกลางภาค)
input final score= > (รอรับค่าคะแนนปลายภาค)
you Pass!! (ในกรณีสอบได้มากกว่า 60 คะแนน)
you Fall  !! (ในกรณีสอบไม่ถึง 60 คะแนน)


รบกวนของตัวอย่างทีนะครับ


Moshi

ออฟไลน์
กระทู้ : 16,996
คะแนนขอบคุณ : 45
it4x สังคมแห่งการเรียนรู้
กันยายน 06, 2011, 12:33:01
รบกวนของตัวอย่างโปรแกรมคำนวณคะแนน รวมจากการรับค่าคะแนนกลางภาค และปลายภาค เพื่อนพิจารณาว่าสอบผ่านหรือสอบตก โดยแสดงผลการสอบ ถ้าคะแนนรวมต่ำกว่า 60 คะแนน

input midterm score=>( รอรับค่าคะแนนกลางภาค)
input final score= > (รอรับค่าคะแนนปลายภาค)
you Pass!! (ในกรณีสอบได้มากกว่า 60 คะแนน)
you Fall  !! (ในกรณีสอบไม่ถึง 60 คะแนน)


รบกวนของตัวอย่างทีนะครับ

ดัดแปลงจากโค๊ดตัดเกรดได้เลยครับ

สมาชิกไม่มีภาพ

bunlusak

ออฟไลน์
กระทู้ : 5
คะแนนขอบคุณ : 0
กันยายน 07, 2011, 15:43:14
ขอบใจมากเดียวผมลองดูครับ

สมาชิกไม่มีภาพ

cartoonzazz

ออฟไลน์
กระทู้ : 3
คะแนนขอบคุณ : 0
กันยายน 14, 2011, 13:21:17
ขอ โปรแกรมตัวอย่าง . . ราคาสินค้า ค่ะ

จำนวนสินค้า       ราคาต่อชิ้น

1- 10               50 บ.

11 – 100           45บ.

101 – 1,000       40บ.

มากกว่า 1,000 ขึ้นไป 30บ.

ประมาณนี้ ค่ะ    ::)

ɹǝʞɔɐɹɔ-[ɹ]ǝuunƃ

ออฟไลน์ ( กันเนอร์-แคร็กเกอร์ )
กระทู้ : 34
คะแนนขอบคุณ : 1
GN194 - This is my Codename
กันยายน 18, 2011, 09:04:51
ขอ โปรแกรมตัวอย่าง . . ราคาสินค้า ค่ะ

จำนวนสินค้า       ราคาต่อชิ้น

1- 10               50 บ.

11 – 100           45บ.

101 – 1,000       40บ.

มากกว่า 1,000 ขึ้นไป 30บ.

ประมาณนี้ ค่ะ    ::)


สมาชิกไม่มีภาพ

markkuza007

ออฟไลน์
กระทู้ : 1
คะแนนขอบคุณ : 0
กรกฎาคม 13, 2012, 22:04:49
ผมอยากได้ตัวอย่าง ภาษาปาสคาลที่แสดงเฉพาะเลขคู่ ไปจนถึง n ครับ

สมาชิกไม่มีภาพ

sake0077

ออฟไลน์
กระทู้ : 4
คะแนนขอบคุณ : 0
กรกฎาคม 31, 2012, 00:23:57
อยากให้ลองเขียนแบบนี้ให้ดูหน่อยอะครับ คำนวณภาษ๊เงินได้โดยการรับข้อมูลเป็น  เงินเดือน โบนัส โอที มีเงื่อนไขว่า ถ้าเงินได้คงเหลือ 1-100000 บาท เสียภาษี 5% 100001-150000 บาทเสียภาษี 7% 150001-200000 บาทเสียภาษี 10% 200001-ขึ้นไป เสียภาษี 15% แสดงผลรวมที่ได้ทั้งหมด กับภาษีที่ต้องชำระ   รบกวนทำให้ดูหน่อยได้ปะครับ ขอบพระคุณล่วงหน้าเป็นอย่างยิ่งนะครับบบบบบ :P :P

Moshi

ออฟไลน์
กระทู้ : 16,996
คะแนนขอบคุณ : 45
it4x สังคมแห่งการเรียนรู้
กรกฎาคม 31, 2012, 11:30:20
อยากให้ลองเขียนแบบนี้ให้ดูหน่อยอะครับ คำนวณภาษ๊เงินได้โดยการรับข้อมูลเป็น  เงินเดือน โบนัส โอที มีเงื่อนไขว่า ถ้าเงินได้คงเหลือ 1-100000 บาท เสียภาษี 5% 100001-150000 บาทเสียภาษี 7% 150001-200000 บาทเสียภาษี 10% 200001-ขึ้นไป เสียภาษี 15% แสดงผลรวมที่ได้ทั้งหมด กับภาษีที่ต้องชำระ   รบกวนทำให้ดูหน่อยได้ปะครับ ขอบพระคุณล่วงหน้าเป็นอย่างยิ่งนะครับบบบบบ :P :P

ใช้ IF then else ครับให้แนวคิดแล้วกันครับ ประมาณว่า

 if money<=100000 then
        writeln('เสียภาษี 5% = ',(5/100)*money:1:2);
     else
        begin
        if money<=150000 then
            writeln('เสียภาษี 7% = ',(7/100)*money:1:2);
        end

ให้แนวทางคร่าวๆแล้วครับ ลองไปดัดแปลงดูครับ

Moshi

ออฟไลน์
กระทู้ : 16,996
คะแนนขอบคุณ : 45
it4x สังคมแห่งการเรียนรู้
กรกฎาคม 31, 2012, 11:34:46
ขอ โปรแกรมตัวอย่าง . . ราคาสินค้า ค่ะ

จำนวนสินค้า       ราคาต่อชิ้น

1- 10               50 บ.

11 – 100           45บ.

101 – 1,000       40บ.

มากกว่า 1,000 ขึ้นไป 30บ.

ประมาณนี้ ค่ะ    ::)

ใช้ IF then else ครับให้แนวคิดแล้วกันครับ ประมาณว่า

 if amount<=10 then
        writeln('จำนวนชิ้น 1-10 ราคา 50 = ',50*amount:1:2);
     else
        begin
        if money<=100 then
            writeln('จำนวนชิ้น 11-100 ราคา 45 = ',45*amount:1:2);
        end

ให้แนวทางคร่าวๆแล้วครับ ลองไปดัดแปลงดูครับ

Moshi

ออฟไลน์
กระทู้ : 16,996
คะแนนขอบคุณ : 45
it4x สังคมแห่งการเรียนรู้
กรกฎาคม 31, 2012, 11:37:20
ผมอยากได้ตัวอย่าง ภาษาปาสคาลที่แสดงเฉพาะเลขคู่ ไปจนถึง n ครับ

ใช้ for loop ครับ มีตีวอย่างในหน้าแรกแล้วครับ

โค๊ด: [Select]
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.

ให้เราเปลี่ยนเลข 5 เป็นเลข 2 เท่านั้นครับ แล้วให้ทำการรับค้า readln  มาลง 100 แทนครับ

สมาชิกไม่มีภาพ

farokingdom

ออฟไลน์
กระทู้ : 1
คะแนนขอบคุณ : 0
สิงหาคม 03, 2012, 19:44:53
อยากรู้เกี่ยวกับอัตรา ที่เกิดขึ้นบ่อยๆอะครับ พอดีตอนนี้มีงานเกี่ยวกับภาษี ก็พอจับใจความคร่าวๆได้บ้าง แต่ในหนังสือ
ไม่บอกเลยครับ ว่าอัตราส่วน 1:2 2:3 3:4 blah blah มันคืออะไร แล้วมีผลอย่างไร แถลงการให้ทีนะครับ ขอบคุณครับ

Moshi

ออฟไลน์
กระทู้ : 16,996
คะแนนขอบคุณ : 45
it4x สังคมแห่งการเรียนรู้
สิงหาคม 03, 2012, 21:11:30
อยากรู้เกี่ยวกับอัตรา ที่เกิดขึ้นบ่อยๆอะครับ พอดีตอนนี้มีงานเกี่ยวกับภาษี ก็พอจับใจความคร่าวๆได้บ้าง แต่ในหนังสือ
ไม่บอกเลยครับ ว่าอัตราส่วน 1:2 2:3 3:4 blah blah มันคืออะไร แล้วมีผลอย่างไร แถลงการให้ทีนะครับ ขอบคุณครับ


ขอดูโค๊ดทั้งหมดหน่อยครับ

สมาชิกไม่มีภาพ

sake0077

ออฟไลน์
กระทู้ : 4
คะแนนขอบคุณ : 0
สิงหาคม 27, 2012, 09:30:10
ช่วยคิดโปรแกรม คำนวนค่าแท๊กซี่ให้ทีสิครับ แบบ กิโลเมตรแรก 35 บาท ต่อไปกิโลละ 3  บาท   ขอบคุณล่วงหน้านะครับ  :) :)

Moshi

ออฟไลน์
กระทู้ : 16,996
คะแนนขอบคุณ : 45
it4x สังคมแห่งการเรียนรู้
สิงหาคม 27, 2012, 11:50:02
ช่วยคิดโปรแกรม คำนวนค่าแท๊กซี่ให้ทีสิครับ แบบ กิโลเมตรแรก 35 บาท ต่อไปกิโลละ 3  บาท   ขอบคุณล่วงหน้านะครับ  :) :)

ผมจะเขียนแต่า่วนคำนวให้นะครับ นำไปดัดแปลงต่อได้เลยครับ ให้ใช้ For loop i เข้ามาช่วยครับ ยอดเงินทั้งหมดจะถูกเก็บที่ total

โค๊ด: [Select]
if i=1 then
   total:=35;
else
   total:=total+3;
end;

สมาชิกไม่มีภาพ

sake0077

ออฟไลน์
กระทู้ : 4
คะแนนขอบคุณ : 0
สิงหาคม 27, 2012, 21:40:04
คือว่า  โปรแกรมคำนวณค่าแทกซี่ ขอละเอียดอีกนิดนึงได้ปะครับ  คือผมไม่ค่อยเก่งอ่าา  :P :P

 

ด้วยฟังค์ชั่น ตอบด่วน คุณสามารถใช้โค๊ดและ เครื่องหมายแสดงอารมณ์ได้ เหมือนการตั้งกระทู้ธรรมดา แต่สามารถทำได้สะดวกกว่า

ระวัง: หัวข้อนี้ไม่มีการอัพเดทมานานถึง 120 วัน

แจ้งเตือน: โพสของคุณจะไม่แสดงจนกว่าผู้ดูแลจะอนุมัติ.
ชื่อ: อีเมล์: