ช่วยหน่อยนะคะ
ถ้าเราต้องการแปลงหน่วยที่ดินจากตารางวาเป็นตารางเมตร
ขอบคุณคะ
อยากทำแบบว่า.. คำนวณเลขบัตรประชาชนอ่ะครับ ทำยังไงหรอครับ
ถึงเจ้าของกระทู้ คืออยากจะรบกวนหน่อยนะคะว่าช่วยเขียนปาสคาล1โปรแกรมหลักแล้รมีห้าโปรแกรมย่อยอยู่ในนั้นน่ะค่ะ ขอเป็นเรื่องการหาพ.ท.สี่เหลี่ยมอะไรก็ได้ค่ะ รบกวนด้วยนะค่ะ อันนี้ด่วนจริงๆ ขอบคุณมากมากนะคะ :)
:'( :-*
อยากทำแบบว่า.. คำนวณเลขบัตรประชาชนอ่ะครับ ทำยังไงหรอครับ
Javascripts เถิดคับ Pascal ไม่ค่อยทำกันแล้วอ่ะครับ
รบกวนของตัวอย่างโปรแกรมคำนวณคะแนน รวมจากการรับค่าคะแนนกลางภาค และปลายภาค เพื่อนพิจารณาว่าสอบผ่านหรือสอบตก โดยแสดงผลการสอบ ถ้าคะแนนรวมต่ำกว่า 60 คะแนน
input midterm score=>( รอรับค่าคะแนนกลางภาค)
input final score= > (รอรับค่าคะแนนปลายภาค)
you Pass!! (ในกรณีสอบได้มากกว่า 60 คะแนน)
you Fall !! (ในกรณีสอบไม่ถึง 60 คะแนน)
รบกวนของตัวอย่างทีนะครับ
ขอ โปรแกรมตัวอย่าง . . ราคาสินค้า ค่ะ
จำนวนสินค้า ราคาต่อชิ้น
1- 10 50 บ.
11 – 100 45บ.
101 – 1,000 40บ.
มากกว่า 1,000 ขึ้นไป 30บ.
ประมาณนี้ ค่ะ ::)
อยากให้ลองเขียนแบบนี้ให้ดูหน่อยอะครับ คำนวณภาษ๊เงินได้โดยการรับข้อมูลเป็น เงินเดือน โบนัส โอที มีเงื่อนไขว่า ถ้าเงินได้คงเหลือ 1-100000 บาท เสียภาษี 5% 100001-150000 บาทเสียภาษี 7% 150001-200000 บาทเสียภาษี 10% 200001-ขึ้นไป เสียภาษี 15% แสดงผลรวมที่ได้ทั้งหมด กับภาษีที่ต้องชำระ รบกวนทำให้ดูหน่อยได้ปะครับ ขอบพระคุณล่วงหน้าเป็นอย่างยิ่งนะครับบบบบบ :P :P
ขอ โปรแกรมตัวอย่าง . . ราคาสินค้า ค่ะ
จำนวนสินค้า ราคาต่อชิ้น
1- 10 50 บ.
11 – 100 45บ.
101 – 1,000 40บ.
มากกว่า 1,000 ขึ้นไป 30บ.
ประมาณนี้ ค่ะ ::)
ผมอยากได้ตัวอย่าง ภาษาปาสคาลที่แสดงเฉพาะเลขคู่ ไปจนถึง n ครับ
program For_1_100;
uses crt;
var i,x:integer;
begin
clrscr;
x:=1;
writeln('Program 1_100/5 Use For');
writeln('***********************');
writeln;
for i:=1 to 100 do
begin
if(i mod 5)=0 then
begin
writeln(x,') Number = ',i);
x:=x+1;
end;
end;
readln;
end.
อยากรู้เกี่ยวกับอัตรา ที่เกิดขึ้นบ่อยๆอะครับ พอดีตอนนี้มีงานเกี่ยวกับภาษี ก็พอจับใจความคร่าวๆได้บ้าง แต่ในหนังสือ
ไม่บอกเลยครับ ว่าอัตราส่วน 1:2 2:3 3:4 blah blah มันคืออะไร แล้วมีผลอย่างไร แถลงการให้ทีนะครับ ขอบคุณครับ
ช่วยคิดโปรแกรม คำนวนค่าแท๊กซี่ให้ทีสิครับ แบบ กิโลเมตรแรก 35 บาท ต่อไปกิโลละ 3 บาท ขอบคุณล่วงหน้านะครับ :) :)
if i=1 then
total:=35;
else
total:=total+3;
end;
คือว่า โปรแกรมคำนวณค่าแทกซี่ ขอละเอียดอีกนิดนึงได้ปะครับ คือผมไม่ค่อยเก่งอ่าา :P :P
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.
ขอโปรแกรม เครื่องคิดเลข
กับ โปรแกรม แปลงค่า เงิน สกุลต่างๆ เช่น เงิน ไทยเป็นดอนล่า อะไรแบบนี้อะคับ
โปรแกรมแปลงค่าน่ำหนัก
พี่คะ คำสั่งนี้หนูลองเอามารันแล้ว มันผิดตรงไหนคะ พี่ช่วยหน่อยนะค่ะ
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.
program it4x;
uses crt;
var x,i,base,high:integer;
begin
clrscr;
writeln('Welcome To Program Calculator');
writeln('-----------------------------');
writeln('1.Rectangle');
writeln('2.Circle');
writeln('3.Triangle');
writeln;
write('Please Select Choice : ');
readln(i);
case i of
1 : begin
clrscr;
writeln('Program Rectangle');
writeln('-----------------');
writeln;
write('Input Your High = ');readln(high);
write('Input Your Base = ');readln(base);
writeln('Area Of Rectangle is = ',high*base);
end;
2 : begin
clrscr;
writeln('Program Circle');
writeln('--------------');
writeln;
write('Input Your Radius = ');readln(x);
writeln('Area Of Circle is = ',3.14*x*x:1:2);
end;
3 : begin
clrscr;
writeln('Program Triangle');
writeln('----------------');
writeln;
write('Input Your High = ');readln(high);
write('Input Your Base = ');readln(base);
writeln('Area Of Rectangle is = ',0.5*high*base:1:2);
end;
else
begin
clrscr;
writeln('Your Unkwon Choice!!')
end;
end;
writeln;
write('Press Any Key To Exit');
readln;
end.
____________________________________________
ถ้าเรา อยากเปลี่ยน จาก คำสั่ง CASE เป็น while เรา ต้องเลี่ยนแปลงเพิ่มเติม ตรงไหน บ้างค่ะ แร้ว ก็ เพิ่ม ให้ผู้ใช้ กด 1 ถ้าต้องการทำงานต่อ กด 0 ต้องการหยุดทำงาน.............ลอง เปลี่ยนหลายครังแระ แต่ ทำไม่ได้สักที รบกวนหน่อย นะค่ะ ........ขอบคุณ มากๆๆๆๆๆ ล่วงหน้า ค่ะ ขอบคุณ ค่ะ
รบกวน อีก ข้อ นะ ค่ะ :P :P :P
รับค่าคะแนน ยืยยันค่าคะแนนที่รับ ตรวจสอบเกรดที่ได้รับ ใช้คำสั่ง while
____________________________
enter score 79
you entered 79 correct? (y/n):n
Enter score again 97
this time you entered 97 correct? (y/n) : y
you grade : A
:-X 8) ??? :-* :-* :-*
รบกวนหน่อย นะค่ะ คุณ moshi ขอบคุณคร้าาาาาาา