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');…
อะโดบี้ (Adobe) ออกอัพเกรดด่วนนอกรอบสำหรับซอฟต์แวร์แฟลชเพลเยอร์ (Flash Player) เนื่องจากพบช่องโหว่ร้ายแรงถึง 2 แห่งด้วยกัน ทั้งนี้อัพเดทที่ออกมาจะมีครบทุกแพลตฟอร์ม Windows, Mac OS X, Linux และ Solaris ส่วน Android…
โจทย์บอกว่า : เขียนโปรแกรมในการคำนวณค่าล้างอัดรูปกับร้าน 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…
เทคนิค Photoshop : วิธีแก้บัค Brush CS3 เวลาจะใช้ Brush แล้วมันจะฟ้องขั้นมาว่า "Invalid numeric entry. An integer between -180...." http://it4x.com/images/image.php?id=BE8B_4BCFCCDA&gif โปรแกรมโหลดได้ที่นี่ครับ >>…
บทที่ 7 การใช้คำสั่ง If Then Else--------------------------ก้าวสู้บทที่ 7 กันแล้วนะครับ โย่วๆคำสั่ง If Then Else แปลตามตัวก็คือ ถ้า แล้ว หรือ -*- ฟังแล้วอาจจะงงนิสหน่อยนะครับเรามาดูกันดีกว่า เวลานำไปใช้ไปใช้ยังไงการใช้…
8) คือ จากโจทย์ที่ผมได้การบ้านมา ให้เขียนโปรแกรมรับตัวอักษร 1 ตัว แล้ว ทำการ เปรียบ เทียบตามเงื่อนไขดังนี้ ถ้าเป็นอักษร a-z ให้แสดงคำว่า char ถ้าเป็นอัการ 0-9 ให้แสดงว่า integer=number และเป็นอย่างอื่นให้แสดงว่า special…
Private Sub Form_Load() Dim itd As Integer For itd = 0 To List1.ListCount - 1 List1.Selected(itd) = True Next itd End Sub ListBox แบบ Check ถ้ารันมามันจะไม่ Checked ใช่ไหมครับ ลองเอาโค้ดนี้ไปใส่ดูครับผม…
เมื่อวันพฤหัสที่ผ่านมา อะโดบี้ (Adobe) ประกาศว่า ทางบริษัทจะออกแพตช์ฉุกเฉินสำหรับซอฟต์แวร์ Reader ในวันจันทร์ที่ 16 สิงหาคม หลังจากที่มีการเปิดเผยช่องโหว่ดังกล่าวในงาน Black Hot Conference เมื่อสัปดาห์ที่ผ่านมา…
หัวข้อคือ 1รับชื่อ2รับเบอร์3กลับไปรับชื่อไหม่จนครบ3ครั้ง4แสดงชื่อทั้ง3เบอออกมาหมายเหตูผมทำแล้วแต่มันไม่ผ่าน อ่าจานต้องการ ให้ ใช้ repeat ..until loopเดียว อะครับดูที่ผมทำมานะครับ คือจะบอกไงดีไม่รู้ว่าจะเข้าใจไหม…
import java.util.*;import java.lang.*;class TestID { public static void main(String[] args) { Character c; String s; int x,i,sum; Scanner in = new Scanner(System.in); System.out.print("Enter ID 12 Digit = "); String…
โปรแกรมแปลงอุณหภูมิ หัดทำ แนะนำด้วย--------------------------------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');…
Private Sub Command1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)Text1.Text = "IT-DarK"End Sub สร้าง CommandButton 1 อันและ TextBox 1 อัน ...แล้วใส่โค้ด ...Credit พี่ Unknown '~ ครับ
Private XX As IntegerPrivate YY As IntegerDim MoveMe As BooleanPrivate Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)MoveMe = TrueXX = XYY = YEnd SubPrivate Sub Form_MouseMove(Button…