ข่าว IT ล่าสุด
ถูกใจอย่าลืม Like Fanpage
แบบฝึกหัดตัวอย่าง PASCAL ที่หลายๆคนขอมาครับ
แสดงแล้ว 170561 ครั้ง /
สิงหาคม 28, 2012, 00:47:26

Moshi

ออฟไลน์
กระทู้ : 16,996
คะแนนขอบคุณ : 45
it4x สังคมแห่งการเรียนรู้
คือว่า  โปรแกรมคำนวณค่าแทกซี่ ขอละเอียดอีกนิดนึงได้ปะครับ  คือผมไม่ค่อยเก่งอ่าา  :P :P

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

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

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

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


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

sake0077

ออฟไลน์
กระทู้ : 4
คะแนนขอบคุณ : 0
สิงหาคม 28, 2012, 20:32:22
คืออยากให้เขียนตัวอย่างการใช้คำสั่ง for ให้ดูหน่อยอะครับ  รบกวนหน่อยนะครับ :P

Moshi

ออฟไลน์
กระทู้ : 16,996
คะแนนขอบคุณ : 45
it4x สังคมแห่งการเรียนรู้
สิงหาคม 30, 2012, 14:09:32
โค๊ด: [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 ครับ

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

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

poppies

ออฟไลน์
กระทู้ : 1
คะแนนขอบคุณ : 0
กันยายน 04, 2012, 22:21:05
ขอบคุณกระทู้นี่มากๆครับ ผมทำงานเสร็จไปหลายงานเลย
« แก้ไขครั้งสุดท้าย: กันยายน 05, 2012, 22:35:26 โดย poppies »

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

toomdemon

ออฟไลน์
กระทู้ : 7
คะแนนขอบคุณ : 0
กันยายน 11, 2012, 08:24:04
ขอโปรแกรม     เครื่องคิดเลข

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

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

Moshi

ออฟไลน์
กระทู้ : 16,996
คะแนนขอบคุณ : 45
it4x สังคมแห่งการเรียนรู้
กันยายน 11, 2012, 14:28:59
ขอโปรแกรม     เครื่องคิดเลข

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

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

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

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

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

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

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

gband

ออฟไลน์
กระทู้ : 1
คะแนนขอบคุณ : 0
กันยายน 11, 2012, 23:25:34
สวัสดีครับ พอดีผมได้นำโปรแกรม 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 ให้ แสดงแต่ที่เราต้องการรบกวนช่วยแนะนำการวาง ที่ถูกต้องให้ดูหน่อยครับ  ขอขอบคุณล่วงหน้าเลยครับ ผม อิอิ ^^ :-*

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

toomdemon

ออฟไลน์
กระทู้ : 7
คะแนนขอบคุณ : 0
กันยายน 12, 2012, 20:06:32
แปลงค่าเงิน สกุลต่างๆ ผม ลองเขียนแล้ว 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.

Moshi

ออฟไลน์
กระทู้ : 16,996
คะแนนขอบคุณ : 45
it4x สังคมแห่งการเรียนรู้
กันยายน 12, 2012, 23:06:27
เดียวไว้เคลียงานเส็ดแวะมาดูให้นะครับ

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

toomdemon

ออฟไลน์
กระทู้ : 7
คะแนนขอบคุณ : 0
กันยายน 14, 2012, 16:53:57
แก้ให้ ด้วย น๊ะค๊าบ

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

playf0rfun

ออฟไลน์
กระทู้ : 1
คะแนนขอบคุณ : 0
ตุลาคม 28, 2012, 10:05:00
อยากให้ช่วยเขียนโปรแกรม แปลงเลขฐาน 2 เป็น 10 แล้ว จากฐาน 10 เป็น 2 ครับ ช่วยเขียนให้ดูหน่อยนะครับ ขอบคุณครับ

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

best868

ออฟไลน์
กระทู้ : 3
คะแนนขอบคุณ : 0
พฤศจิกายน 28, 2012, 23:49:10
พี่ครับ ผมขอคำสั่ง
โปรแกรม คำนวณ สี่เหลี่ยม สามเหลี่ยม วงกลม แบบเลือก Choice ใช้ Case แต่ให้เวลาคำนวนเสร็จแล้วก็ให้กลับไปหน้าเมนูเหมือนเดิม จะได้หรือปาวคับ
ขอขอบคุณร่วงหน้าครับ

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

jan_tao

ออฟไลน์
กระทู้ : 1
คะแนนขอบคุณ : 1
มกราคม 18, 2013, 10:19:45
รบกวนหน่อยนะค่ะ  :-*
เขียนโปรแกรมตัดเกรดโดยรับข้อมูล

รหัส ชื่อ สกุล คะแนนสอบ 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]

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

วาสนา

ออฟไลน์ ( it4x.com )
กระทู้ : 2
คะแนนขอบคุณ : 0
กุมภาพันธ์ 20, 2013, 20:41:07
พี่ค่ะ ช่วนคิดโปรแกรมคำนวนน้ำหนักว่าอ้วนหรือไม่อ้วน โดยให้พิมชื่อ อายุ ส่วนสูง แล้วน้ำหนัก แล้วบอกว่าส่วนสูงแค่นี้ควรมีน้ำหนักเท่าไหร่นะค่ะ ช่วยหน่อนนะค่ะ

Moshi

ออฟไลน์
กระทู้ : 16,996
คะแนนขอบคุณ : 45
it4x สังคมแห่งการเรียนรู้
กุมภาพันธ์ 20, 2013, 21:05:30
โปรแกรมคำนวณหาค่า 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.

 

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

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

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