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…
Y-Girl Live Wallpaper: คู่รัก ✿ ทะนุถนอมช่วงเวลาอันแสนหวานบนมือถือของคุณได้ทุกวันด้วย Live Wallpaper คู่รัก ✿ ดาวน์โหลด ฟรี ได้จาก Google Play Store: http://i1226.photobucket.com/albums/ee415/inexco/Y-Girllivewallpaper-C…
SuperRam 6.1.21.2013 โปรแกรมปรับแต่งแรมให้ทำงานเต็มประสิทธิภาพ http://image.ohozaa.com/i/aa2/Wcmaeb.jpeg โปรแกรมที่จะช่วยให้ Ram ในเครื่องคอมพิวเตอร์ของเราทำงานได้เต็มประสิทธิภาพม ากยิ่งขึ้น…
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…
เชื่อว่า คุณผู้อ่านหลายๆ ท่านคงเคยอยากฝึกเล่น"เปียโน" แต่อาจจะรู้สึกเบื่อกับการเริ่มต้นฝึกด้วยเพลง "หนูมาลี" (มีลูกแมวเหมียว) ถ้าคุณเป็นเจ้าของ iPad และอยากฝึกเปียโนแบบได้สัมผัสจริงๆ มากกว่ากจิ้มหน้าจอ บางที Piano…
บทที่ 7 การใช้คำสั่ง If Then Else--------------------------ก้าวสู้บทที่ 7 กันแล้วนะครับ โย่วๆคำสั่ง If Then Else แปลตามตัวก็คือ ถ้า แล้ว หรือ -*- ฟังแล้วอาจจะงงนิสหน่อยนะครับเรามาดูกันดีกว่า เวลานำไปใช้ไปใช้ยังไงการใช้…
วันนี้จะแนะนำโปรแกรมที่น่าใช้ สำหรับเพื่อนๆ น้องๆ ที่ชอบแต่งรูปใส่ในไดอารี่ออนไลน์เป็นชีวิตจิตใจ ไม่ต้องพึ่งโฟโต้ช๊อปขาใหญ่เค้า.. โปรแกรมนี้ชื่อ PhotoScape นะคะ.. เอามาจากครูหมูแห่งบ้าน AF เอ้ยยยยย สอนวิธีการใช้งานโดย…
หัวข้อคือ 1รับชื่อ2รับเบอร์3กลับไปรับชื่อไหม่จนครบ3ครั้ง4แสดงชื่อทั้ง3เบอออกมาหมายเหตูผมทำแล้วแต่มันไม่ผ่าน อ่าจานต้องการ ให้ ใช้ repeat ..until loopเดียว อะครับดูที่ผมทำมานะครับ คือจะบอกไงดีไม่รู้ว่าจะเข้าใจไหม…
โปรแกรมแปลงอุณหภูมิ หัดทำ แนะนำด้วย--------------------------------program temp;uses crt;var temperature:real; i:integer; ans:char;beginrepeat clrscr; writeln('***** Wellcome To Program Temperature Conversion *****');…
โปรแกรม แปลงหน่อย องศา ครับprogram thermometer;var degree,i:integer; var ans:char;begin repeat writeln('Welcome To Program Calculator'); writeln('-----------------------------'); writeln('1.Fahrenheit To Celsius');…
อาจารเค้าบอกว่า ตอนเลือก เมนู ที่มี 6 ข้อ อ่ะคับ มันออกโปรแกรมตั้งแต่ตอนนั้นเลยไม่ได้ต้องกดเลือก เมนูก่อน ถึงจะเลือก Y or N ได้อ่ะคับพอจะมีวิธีไห้มีเมนู 7.exit กดแล้วออกเลย ไม่ต้องถาม Y or N ได้มั้ยคับwelcome my…
รอบกวน ท่านแอดมีนอีกซักทีครับ(งานครั้งนี้มีผลต่อผมเป็นอย่างมากครับ ผมทำไม่ได้จริงๆครับโง่มากมาย) กรุณาด้วยครับ(ต้องส่งวันจันทร์ ผมก็งมทำอยู่เหมือนกันแต่กลัวทำไม่ได้และไม่ทันครับ งานนี้จำเป็นอย่างมากครับ)Program…
คืออาจารย์ที่โรงเรียนสอนไม่รู้เรื่องเลย หรือว่าหนูไม่รู้เรื่องเองก็ไม่รู้ เอาแต่สั่งๆๆๆอย่าเดียวเลย=.=เดี๋ยวก็จะสอบอีกแล้ว ตอนนี้ถึง If ...Then อยู่อ่ะค่ะแล้ว คืออาจารย์สั่งให้ทำโปรแกรมคนละ 1…