program Restaurant;uses WinCrt;var Food : string ;var Amount : integer;var Price, Total : real;begin Write('Input Food: '); Readln(Food); Write('Input Price: '); Readln(Price); Write('Input Amount: '); Readln(Amount);…
การ Copy คัดลอก ข้อความตัวอย่างจากเว็ปลง สู่ Turbo Pascal--------------------------------------------------สมมุติตัวอย่างนึงนะครับ ในที่นี้ขอสมมุติโปรแกรม รับชื่อและ แสดงชื่อProgram test1;uses crt;var x:integer;begin…
program test;uses crt;const donller=30; euro = 50; yen = 40;var mn:string; baht,money:integer; totol:real;beginrepeat clrscr; writeln('inset you money='); writeln('1.donller'); writeln('2.euro'); writeln('3.yen');…
คือตอนนี้ผมเรียน ปวช.3 ภาควันอาทิตย์อาจารย์ให้แก้โปรแกรมตัวนึงครับ เค้าบอกว่ามีที่ผิดอยู่ 2 จุด แต่ผมลองแก้หลายๆอย่างแล้วก็ยังไม่ได้จึงใคร่ขอรบกวน ผู้รู้ช่วยแก้ให้หน่อยครับ…
โจทย์บอกว่า : เขียนโปรแกรมในการคำนวณค่าล้างอัดรูปกับร้าน PhotoShop โดยมีการให้บริการ 2 บริการ คือ ล้าง-อัดรูป และ ถ่ายรูป ราคาค่าถ่ายรูปคิดดังนี้ถ่าย 6 ใบ ราคา 90 บาทถ่าย 12 ใบ ราคา 120 บาทส่วนราคาในการล้าง-อัดรูป…
คำนวณยอดเงินที่ลูกค้าต้องการชำระจากการซื้อสินค้าชนิดหนึ่ง สินค้าที่ซื้อมีราคาชิ้นละ 50 บาทแต่หากซื้อในปริมาณมาก ทางร้านจะขายในราคาที่ถูกลงดังนี้ จำนวนสินค้า ราคาต่อชิ้น1- 10 50 บ.11 – 100 45บ.101 – 1,000 40บ.มากกว่า…
จากโจทย์123456789 2345678 34567 456 5จากที่ผมทำProgram Benz;uses crt;var i,j,k,l:integer;beginclrscr; gotoxy(5,5);write('loop&loop');k:=1;for i:=1 to 5 do begin gotoxy(10-i,14-i); for j:=1 to k do write(j); writeln;…
Program Oat;Uses Crt;Var i,sum,a,b,x:integer;Begin clrscr; write('Input Number : ');readln(a); write('Input Number : ');readln(b); sum:=0; i:=2; repeat sum:=sum+i; i:=i+2; x:=x+1; until i>b; writeln('Summary of even…
คือโจทย์ให้รับค่าเริ่มต้นและค่าสุดท้ายอะคับ แล้วให้โปรแกรมบวกเฉพาะเลขคู่ แล้วแสดง และ หาค่าเฉลี่ยของผลบวกเลขคู่ผมทำแล้ว หาผลบวกเลขคู่ได้ แต่ Average มันได้ไม่ตรงอะคับ อย่าง a เป็น 1 b เปง 10 เลขคู่ก้อจะเปง 2 4 6 8 10…
http://www.khaosod.co.th/news-photo/khaosod/2010/10/spo01141053p1.jpg ศาลสูงของอังกฤษตัดสินให้บอร์ดบริหารของ "หงส์แดง"ลิเวอร์พูล นำโดยมาร์ติน บรอห์ตั้น ประธานสโมสรลิเวอร์พูล พร้อมคริสเตียน เพอร์สโลว์ ซีอีโอ และเอียน…
บทที่ 7 การใช้คำสั่ง If Then Else--------------------------ก้าวสู้บทที่ 7 กันแล้วนะครับ โย่วๆคำสั่ง If Then Else แปลตามตัวก็คือ ถ้า แล้ว หรือ -*- ฟังแล้วอาจจะงงนิสหน่อยนะครับเรามาดูกันดีกว่า เวลานำไปใช้ไปใช้ยังไงการใช้…
แท่นชาร์จสำหรับแก็ดเจ็ต (Gadget) ของ Apple กำลังอยู่ในกระแสความต้องการของตลาด เนื่องจากวันนี้ผู้ใช้มีอุปกรณ์ของ Apple ในมือ 2 - 3 ชิ้น ว่ากันตั้งแต่ iPod, iPhone ไปจนถึง iPad…
หัวข้อคือ 1รับชื่อ2รับเบอร์3กลับไปรับชื่อไหม่จนครบ3ครั้ง4แสดงชื่อทั้ง3เบอออกมาหมายเหตูผมทำแล้วแต่มันไม่ผ่าน อ่าจานต้องการ ให้ ใช้ repeat ..until loopเดียว อะครับดูที่ผมทำมานะครับ คือจะบอกไงดีไม่รู้ว่าจะเข้าใจไหม…
แม้สองอัจฉริยะ (แนวบ้าๆ บ๊องส์ๆ) ที่พยายามสร้างสรรค์การทดลองแปลกๆ ด้วยการใช้แรงอัดจากปฏิกริยาที่เกิดขึ้นระหว่างโค้ก (coke) กับลูกอมเมนทอส (mentos) จะเคยแว้บไปรับจ๊อบทำงานศิลปะให้กับกระดาษโปสต์อิทของ 3M มาบ้าง…
โปรแกรมแปลงอุณหภูมิ หัดทำ แนะนำด้วย--------------------------------program temp;uses crt;var temperature:real; i:integer; ans:char;beginrepeat clrscr; writeln('***** Wellcome To Program Temperature Conversion *****');…
อาจารเค้าบอกว่า ตอนเลือก เมนู ที่มี 6 ข้อ อ่ะคับ มันออกโปรแกรมตั้งแต่ตอนนั้นเลยไม่ได้ต้องกดเลือก เมนูก่อน ถึงจะเลือก Y or N ได้อ่ะคับพอจะมีวิธีไห้มีเมนู 7.exit กดแล้วออกเลย ไม่ต้องถาม Y or N ได้มั้ยคับwelcome my…
รอบกวน ท่านแอดมีนอีกซักทีครับ(งานครั้งนี้มีผลต่อผมเป็นอย่างมากครับ ผมทำไม่ได้จริงๆครับโง่มากมาย) กรุณาด้วยครับ(ต้องส่งวันจันทร์ ผมก็งมทำอยู่เหมือนกันแต่กลัวทำไม่ได้และไม่ทันครับ งานนี้จำเป็นอย่างมากครับ)Program…
คืออาจารย์ที่โรงเรียนสอนไม่รู้เรื่องเลย หรือว่าหนูไม่รู้เรื่องเองก็ไม่รู้ เอาแต่สั่งๆๆๆอย่าเดียวเลย=.=เดี๋ยวก็จะสอบอีกแล้ว ตอนนี้ถึง If ...Then อยู่อ่ะค่ะแล้ว คืออาจารย์สั่งให้ทำโปรแกรมคนละ 1…
คือ อ. สั่งงานมาให้ผมทำแต่ผมอ่านแล้ว ลองแล้วก็ทำไม่ได้ (ผมไม่เข้าใจ*-*)Program demo6_4;uses crt;var c : byte; s,t : real; na : string ;const line='====================================';begin clrscr; Writeln(' *** Report…
แม้ว่าในงาน CES 2010 กระแส LED TV ทั้งจอใหญ่บิ๊กบึ้มขนาด 60 นิ้ว บางเฉียบไม่ถึงนิ้วไปจนถึงทะลุมิติด้วยเทคโนโลยี 3D ที่ต่างแข่งขันกันนำเสนอให้คุณอยากได้มีไว้ในห้องนั่งเล่น…