คำที่ค้นหา: readln — พบ 27 รายการ
บทที่ 6 คำสั่ง write,writeln,read,readln----------------------------------write = แสดงข้อความ ไม่เว้นบรรทัดwriteln = แสดงข้อความแล้วเว้นวรรค 1 บรรทัดread = รับค่า ไม่เว้นบรรทัดreadln = รัยค่าแล้วเว้นวรรค 1 บรรทัด…
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…
บทที่ 7 การใช้คำสั่ง If Then Else--------------------------ก้าวสู้บทที่ 7 กันแล้วนะครับ โย่วๆคำสั่ง If Then Else แปลตามตัวก็คือ ถ้า แล้ว หรือ -*- ฟังแล้วอาจจะงงนิสหน่อยนะครับเรามาดูกันดีกว่า เวลานำไปใช้ไปใช้ยังไงการใช้…
หัวข้อคือ 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…
คือ อ. สั่งงานมาให้ผมทำแต่ผมอ่านแล้ว ลองแล้วก็ทำไม่ได้ (ผมไม่เข้าใจ*-*)Program demo6_4;uses crt;var c : byte; s,t : real; na : string ;const line='====================================';begin clrscr; Writeln(' *** Report…
ไม่รู้แปลถูกไหม แก้ให้ หน่อย ว่าบรรทัดไหน แปลว่าไงProgram CheckWeight; Uses Crt; Var name : String ; Height,Weight,SuitWeight, Evaluation : Real; BEGIN Clrscr; Write('Input Your Name -> '); Readln(name); Write('Input…
คือว่าผมมีโค้ดปาสคาลอยู่อยากให้ท่านแอดมินช่วยหน่อยน่ะครับprogram ch10_13;uses crt;const row_limit = 20; column_limit = 20;type matrix = array of integer;var mat1,mat2,prod : matrix; rows1,cols1,rows2,cols2 : integer;…