แบบฝึกหัดตัวอย่าง PASCAL ที่หลายๆคนขอมาครับ

รบกวนของตัวอย่างโปรแกรมคำนวณคะแนน รวมจากการรับค่าคะแนนกลางภาค และปลายภาค เพื่อนพิจารณาว่าสอบผ่านหรือสอบตก โดยแสดงผลการสอบ ถ้าคะแนนรวมต่ำกว่า 60 คะแนน

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


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

รบกวนของตัวอย่างโปรแกรมคำนวณคะแนน รวมจากการรับค่าคะแนนกลางภาค และปลายภาค เพื่อนพิจารณาว่าสอบผ่านหรือสอบตก โดยแสดงผลการสอบ ถ้าคะแนนรวมต่ำกว่า 60 คะแนน

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


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

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

ขอบใจมากเดียวผมลองดูครับ

ขอ โปรแกรมตัวอย่าง . . ราคาสินค้า ค่ะ

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

1- 10               50 บ.

11 – 100           45บ.

101 – 1,000       40บ.

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

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

ขอ โปรแกรมตัวอย่าง . . ราคาสินค้า ค่ะ

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

1- 10               50 บ.

11 – 100           45บ.

101 – 1,000       40บ.

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

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

ผมอยากได้ตัวอย่าง ภาษาปาสคาลที่แสดงเฉพาะเลขคู่ ไปจนถึง n ครับ

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

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

ใช้ 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

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

ขอ โปรแกรมตัวอย่าง . . ราคาสินค้า ค่ะ

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

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

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

ผมอยากได้ตัวอย่าง ภาษาปาสคาลที่แสดงเฉพาะเลขคู่ ไปจนถึง 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 แทนครับ

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

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

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

ช่วยคิดโปรแกรม คำนวนค่าแท๊กซี่ให้ทีสิครับ แบบ กิโลเมตรแรก 35 บาท ต่อไปกิโลละ 3  บาท   ขอบคุณล่วงหน้านะครับ 

ช่วยคิดโปรแกรม คำนวนค่าแท๊กซี่ให้ทีสิครับ แบบ กิโลเมตรแรก 35 บาท ต่อไปกิโลละ 3  บาท   ขอบคุณล่วงหน้านะครับ 

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

โค๊ด: [Select]

if i=1 then
   total:=35;
else
   total:=total+3;
end;


คือว่า  โปรแกรมคำนวณค่าแทกซี่ ขอละเอียดอีกนิดนึงได้ปะครับ  คือผมไม่ค่อยเก่งอ่าา