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

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

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

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

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

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

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

โค๊ด: [Select]

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 ครับ

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

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

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

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

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

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

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

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

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

เงินแปลงสกุลเงินต่างๆ
ก็ใช้ 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);

 
แล้วพอรันออกมาในช่วง 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

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

[/b]

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

โปรแกรมคำนวณหาค่า 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.