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

— farokingdom link=topic=1138.msg28583#msg28583 date=1343997893

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

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

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

— sake0077 link=topic=1138.msg28988#msg28988 date=1346034610

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

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

if i=1 then

   total:=35;

else

   total:=total+3;

end;

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

— sake0077 link=topic=1138.msg29002#msg29002 date=1346078404

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

ประมาณรับค่า i จากแป้นพิมพ์เป็นจำนวนกิโลเมตรครับผม

แล้วให้ for loop อยากให้ลองศึกษาจากตัวอย่างก่อนครับ ถ้าไม่เข้าใจเดียวมาอธิบายเพิ่มครับ

พอใน for loop  ก็เอาโค๊ดผมไปวางได้เลยครับ

สุดท้ายก็ให้แสดง Total ครับ

คืออยากให้เขียนตัวอย่างการใช้คำสั่ง for ให้ดูหน่อยอะครับ  รบกวนหน่อยนะครับ :P

program Taxi_Miter;

uses crt;

var i,x:integer;

begin

      clrscr;

      x:=1;

      distance:= 30;

      for i:=1 to distance do

      if i=1 then

         total:=35;

      else

         total:=total+3;

      end;

      i:=i+1;

end.

จะเปลี่ยนแปลงกิโลเมตรก็ตรง distance ครับ

ลองดูครับ ยังไม่ได้ลองเทสนะครับ

ขอบคุณกระทู้นี่มากๆครับ ผมทำงานเสร็จไปหลายงานเลย

ขอโปรแกรม    เครื่องคิดเลข

กับ    โปรแกรม แปลงค่า เงิน สกุลต่างๆ เช่น เงิน ไทยเป็นดอนล่า อะไรแบบนี้อะคับ

โปรแกรมแปลงค่าน่ำหนัก 

— toomdemon link=topic=1138.msg29336#msg29336 date=1347326644

ขอโปรแกรม    เครื่องคิดเลข

กับ    โปรแกรม แปลงค่า เงิน สกุลต่างๆ เช่น เงิน ไทยเป็นดอนล่า อะไรแบบนี้อะคับ

โปรแกรมแปลงค่าน่ำหนัก 

จะแนะนำเป็นแค่แนวทางนะครับ

เงินแปลงสกุลเงินต่างๆ
ก็ใช้ if เหมือนพวกตัดเกรด ขั้นตอนแรก แสดงเมนูก่อน ว่า 1,2,3,4 สกุลเงินอะไร แลกเปลี่ยนเป็นเงินบาทเท่าไหร่ จากนั้นก็ให้กรอกจำนวน แล้วแปลงตามเงื่อนไข นั้นๆ

เครื่องคิดเลข ก็ใช้เหมือนกันครับ รับค่าตัวเลข แล้วก็ให้ระบุเงื่อนไข ว่าให้ทำอะไร

ค่าน้ำ ค่าไฟ ก็ ให้รับจำนวนหน่วย มา * กับจำนวน หน่วย / บาท

สวัสดีครับ พอดีผมได้นำโปรแกรม pascal หาค่า total ของ salary จะเอาไปเสริมเป็น โปร ช่วยคำนวนหารถยนต์ยี่ห้อ honda โดยทำงานจากการ รับค่าเงินเดือนมาคิด ลบค่าภาษี ตาม เรท คือ ถ้า เงินเดือนน้อยกว่า10000บาท ไม่เสียภาษี
ถ้า เงินเดือน 10001-30000 เสียภาษี 3%
ถ้า เงินเดือน 30001-50000 เสียภาษี 5%
ถ้า เงินเดือน 50001 ขึ้นไป เสียภาษี 7% จากนั้นเมื่อได้ เงินเดือนสุทธิ ก็จะมาจัดเรทอีกรอบ ว่าเหมาะสมกับรอรุ่นไหนขอ honda คือ ถ้ามีเงินเดือนสุทธิ <= 15000 จะเป็นรุ่น BIRO // ถ้ามีเงินเดือนสุทธิ <= 25000 จะเป็นรุ่น JAZZ , CITY //  ถ้ามีเงินเดือนสุทธิ <= 35000 จะเป็นรุ่น CIVIC,FEED  //  นอกเหนือจากนี้ เป็นรุ่น ACCORD,CR-V,ODYSSEY,CR-Z
ประมาณนี้อะครับ แต่ตอนนี้ที่ผมจะเสริมเค้าไป
ช่วงเรทของ total อะครับ ผมเขียนแบบนี้เข้าไป

begin
if salary<=30000 then
begin
  tax:=salary*3/100;
  writeln('Your tax 3% = ',tax:1:2);
  total:=salary-tax:
  writeln('Your totalsalary = ',total:1:2); 
  if total<=10000 then
  begin
    writeln('Hoda Motorcycle');
  end
  else
  begin
    if total<=15000 then
      begin
      writeln('Honda BRIO');
      end
  end
  else
  end;
begin
if salary<=50000 then
begin
  tax:=salary*7/100;
  writeln('Your tax 7% = ',tax:1:2);
  total:=salary-tax:
  writeln('Your totalsalary = ',total:1:2);

:-X
แล้วพอรันออกมาในช่วง 10001-15000 ที่ตั้งใจให้โชว์ออกมาแค่ รุ่น BIRO แต่มันโชว์ ทั้งแบบที่คิด เงินเดือน 10001 เอาไปคิด tax 5% ซื้อไม่ได้จะกำหนดให้โชว์ แล้วก็ รุ่นรถก็ขึ้นมาหมดเลย ที่พิมไป งงมาครับ ตรงวาง if  begin end ให้ แสดงแต่ที่เราต้องการรบกวนช่วยแนะนำการวาง ที่ถูกต้องให้ดูหน่อยครับ  ขอขอบคุณล่วงหน้าเลยครับ ผม อิอิ ^^ :-*

แปลงค่าเงิน สกุลต่างๆ ผม ลองเขียนแล้ว RUN ไม่ได้พี่แก้ให้ผมด้วยนะคับ
program teat1;
uses Crt;
var baht,donller,euro,yen,money:integer;
begin
    Clrscr;
    writeln('inset you money=');
    writeln('1.donller');
    writeln('2.euro');
    writeln('3.yen');
    writeln;
    case money of
        '1donller':begin
                    write('baht='); readln(baht);
                    write('donller='); readln(donller);
                    money: 30*donller*baht=;
                    writeln('money donller=')
                    end;
          '2euro'  :begin
                    write('baht='); readln(baht);
                    write('euro='); readln(euro);
                    money: 50*euro*baht=;
                    writeln('money euro=')
                    end;
          '3yen'  :begin
                    write('baht='); readln(baht);
                    write('yen='); readln(yen);
                    money 40*yen*baht=;
                    end;
        readln;
End.

เดียวไว้เคลียงานเส็ดแวะมาดูให้นะครับ

แก้ให้ ด้วย น๊ะค๊าบ

อยากให้ช่วยเขียนโปรแกรม แปลงเลขฐาน 2 เป็น 10 แล้ว จากฐาน 10 เป็น 2 ครับ ช่วยเขียนให้ดูหน่อยนะครับ ขอบคุณครับ

พี่ครับ ผมขอคำสั่ง
โปรแกรม คำนวณ สี่เหลี่ยม สามเหลี่ยม วงกลม แบบเลือก Choice ใช้ Case แต่ให้เวลาคำนวนเสร็จแล้วก็ให้กลับไปหน้าเมนูเหมือนเดิม จะได้หรือปาวคับ
ขอขอบคุณร่วงหน้าครับ

รบกวนหน่อยนะค่ะ  :-*

เขียนโปรแกรมตัดเกรดโดยรับข้อมูล

รหัส ชื่อ สกุล คะแนนสอบ 3 ครั้ง โดยมีเงื่อนไขดังนี้

80-100 เกรด 4

75-79 เกรด 3.5

70-74 เกรด 3

65-99 เกรด 2.5

60-64 เกรด 2

55-59 เกรด 1.5

50-54 เกรด 1

0-49 เกรด 0

ให้วนลูปด้วยค่ะ
ขอบคุณค่ะ

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

โปรแกรมคำนวณหาค่า BMI ภาษา Pascal

program bmi;
var bmi,x,y:real;
begin
writeln('กรุณาระบุความสูง (เมตร): ');
readln(x);
writeln('ระบุน้ำหนัก (กิโล): ');
readln(y);
bmi:=y/(x*x);
writeln('ค่า BMI ของคุณ = : ',bmi:0:2);
หากต้องการเช็คเงื่อนไขเพิ่มให้เขียนตรงนี้เช่น bmi>30 อ้วน ตรงนี้ห้ามเอาลงโค๊ด
readln;
end.

พี่คะ คำสั่งนี้หนูลองเอามารันแล้ว มันผิดตรงไหนคะ พี่ช่วยหน่อยนะค่ะ

program teat1;
uses Crt;
var baht,donller,euro,yen,money:integer;
begin
    Clrscr;
    writeln('inset you money=');
    writeln('1.donller');
    writeln('2.euro');
    writeln('3.yen');
    writeln;
    case money of
        '1donller':begin
                    write('baht='); readln(baht);
                    write('donller='); readln(donller);
                    money: 30*donller*baht=;
                    writeln('money donller=')
                    end;
          '2euro'  :begin
                    write('baht='); readln(baht);
                    write('euro='); readln(euro);
                    money: 50*euro*baht=;
                    writeln('money euro=')
                    end;
          '3yen'  :begin
                    write('baht='); readln(baht);
                    write('yen='); readln(yen);
                    money 40*yen*baht=;
                    end;
        readln;
End.