ข่าว IT ล่าสุด
ถูกใจอย่าลืม Like Fanpage
ช่วยเขียนปาสคาลหน่อยคะ
แสดงแล้ว 3741 ครั้ง /
กุมภาพันธ์ 05, 2010, 17:34:57

milk_sj

ออฟไลน์
กระทู้ : 1
คะแนนขอบคุณ : 0
คืออาจารย์ที่โรงเรียนสอนไม่รู้เรื่องเลย หรือว่าหนูไม่รู้เรื่องเองก็ไม่รู้ เอาแต่สั่งๆๆๆอย่าเดียวเลย=.=
เดี๋ยวก็จะสอบอีกแล้ว ตอนนี้ถึง If ...Then อยู่อ่ะค่ะแล้ว คืออาจารย์สั่งให้ทำโปรแกรมคนละ 1 โปรแกรม
จะทำเป็นร้านขายอะไรก็ได้ แต่ต้องคำนวณด้วย ส่วนของหนูทำร้านขายvcd อ่ะค่ะคิดว่ามันไม่ได้ยุ่งยากมากนัก
ปัญหาคือคำนวณไม่ถูก ไม่ต้องทำให้ก็ได้นะคะ แค่อยากลองขอดูตัวอย่างว่า ต้องทำยังไงมาเป็นแนวคิดอะค่ะ
คือหนูอยากเรียนรู้และทำเองดูบ้างเพื่ออะไรจะได้ดีขึ้น รบกวนใครก็ได้นะคะนึกว่า สงสารเหอะ ตั้ง 30 คะแนนอ่ะคะ
ส่งก่อนปิดเทอมด้วย เวรรกรรมจริง :P ขอบคุณค่ะ


Program VCD;
Uses crt;
var Customer,Amount,NameType,Price,Total:string;
Begin
clrscr;
gotoxy(35,5);
Writeln('VCD Sapphire Blue');
gotoxy(15,8);
writeln('===========================================================');
gotoxy(15,10);
writeln('   Customer:    Amount:    NameType:      Price:     Total: ' );
gotoxy(15,12);
writeln('===========================================================');
gotoxy(15,14);
writeln('       A           2       Super Showl    1,500      3000      ');
gotoxy(15,16);
writeln('       B           4       Super Jr.05     300       12000     ');
gotoxy(15,18);
writeln('       C           1       Super Jr. M     500        500      ');
gotoxy(15,20);
writeln('       D           3       Super Showll   2,500      7500      ');
gotoxy(15,22);
writeln('------------------------------------------------------------');
gotoxy(15,24);
writeln('Circulation');
readln;
End.
 



ไปลองทำดูแล้วคะ แอต่คำนวณไม่ถูกช่วยดูหน่อยซิ




***ขอ บคุณ พี่ moshi มากๆๆคะ มันใช่เลยค่ะ แบบนี้ถูกต้องเลย !!!

แต่มีอีกเรื่องอะคะ หนูจะถามพี่ว่า ถ้าจะคำนวณผลรวมยอดขายTotalทั้งหมดเลย

ทำได้มั้ยอะคะ  รบกวนอีกนิดได้ปะคะ ยอดขายทั้งหมดอะคะ   ขอบคุณอีกครั้งนะคะ

งานหนูส่งพรุ่งนี้แล้วคะ ได้เต็มแน่ เลย คิคิ

« แก้ไขครั้งสุดท้าย: กุมภาพันธ์ 15, 2010, 11:56:01 โดย milk_sj »

ßë©äûšë

ออฟไลน์ ( แค่นี้ยังอ่อนหัดอยู่นะ )
กระทู้ : 1,534
คะแนนขอบคุณ : 13
เลขเด็ด เลขเด็ด เลขดัง เกร็งเลข ใบ้หวย ประจำงวดนี้ ที่นี่ อาจารย์ตี๋
กุมภาพันธ์ 05, 2010, 19:02:41
รอผู้รู้ละกันนะ :P

Moshi

ออฟไลน์
กระทู้ : 16,996
คะแนนขอบคุณ : 45
it4x สังคมแห่งการเรียนรู้
กุมภาพันธ์ 07, 2010, 09:12:51
ก็ไม่น่าจะมีอะไรยากนะครับ

ร้านขาย Vcd เหรอ ก็อืม....

รับว่าจะซ์้อกี่แผ่น   แผ่นนี้ราคาเท่าไหร่

คราวนี้เราก็มาเพิ่ม If then ให้ โดยมีเงื่อนไขประมาณว่า

ถ้าซื้อเกิน 100 ลดให้ 1%

ซื้อเกิน 200 ลด 2%

อะไรก็ว่าไปครับ~ ลองทำดูนะ

Moshi

ออฟไลน์
กระทู้ : 16,996
คะแนนขอบคุณ : 45
it4x สังคมแห่งการเรียนรู้
กุมภาพันธ์ 08, 2010, 21:10:25
Program VCD;
Uses crt;
var amount,price,total:integer;
Begin
clrscr;
Writeln('VCD Sapphire Blue - Promotion Buy Up 1000 Down 100 Bath');
writeln('===========================================================');
writeln('   Customer:    Amount:    NameType:      Price:     Total: ' );
writeln('===========================================================');
amount:=2;price:=1500;total:=amount*price;

if total>=1000 then total:=(total-100);

writeln('       A           ',amount,'       Super Showl    ',price,'      ',total,'      ');

amount:=4;price:=300;total:=amount*price;

if total>=1000 then total:=(total-100);

writeln('       B           ',amount,'       Super Jr.05    ',price,'      ',total,'     ');

amount:=1;price:=500;total:=amount*price;

if total>=1000 then total:=(total-100);

writeln('       C           ',amount,'       Super Jr. M    ',price,'      ',total,'      ');

amount:=3;price:=2500;total:=amount*price;

if total>=1000 then total:=(total-100);

writeln('       D           ',amount,'       Super Showll   ',price,'      ',total,'      ');
writeln('------------------------------------------------------------');
writeln('End Program');
readln;
End.

ไปดัดแปลงต่อเอาเองนะ ช่วยแค่นี้แหละ

Moshi

ออฟไลน์
กระทู้ : 16,996
คะแนนขอบคุณ : 45
it4x สังคมแห่งการเรียนรู้
กุมภาพันธ์ 15, 2010, 12:48:09
เพิ่ม Sum หรือผลรวมนั้นเอง

Program VCD;
Uses crt;
var amount,price,total,sum:integer;
Begin
clrscr;
Writeln('VCD Sapphire Blue - Promotion Buy Up 1000 Down 100 Bath');
writeln('===========================================================');
writeln('   Customer:    Amount:    NameType:      Price:     Total: ' );
writeln('===========================================================');
amount:=2;price:=1500;total:=amount*price;

if total>=1000 then total:=(total-100);

writeln('       A           ',amount,'       Super Showl    ',price,'      ',total,'      ');sum:=sum+total;

amount:=4;price:=300;total:=amount*price;

if total>=1000 then total:=(total-100);

writeln('       B           ',amount,'       Super Jr.05    ',price,'      ',total,'     ');sum:=sum+total;

amount:=1;price:=500;total:=amount*price;

if total>=1000 then total:=(total-100);

writeln('       C           ',amount,'       Super Jr. M    ',price,'      ',total,'      ');sum:=sum+total;

amount:=3;price:=2500;total:=amount*price;

if total>=1000 then total:=(total-100);

writeln('       D           ',amount,'       Super Showll   ',price,'      ',total,'      ');sum:=sum+total;
writeln('------------------------------------------------------------');
writeln('Total = ',sum);
writeln('End Program');
readln;
End.

 

ด้วยฟังค์ชั่น ตอบด่วน คุณสามารถใช้โค๊ดและ เครื่องหมายแสดงอารมณ์ได้ เหมือนการตั้งกระทู้ธรรมดา แต่สามารถทำได้สะดวกกว่า

ระวัง: หัวข้อนี้ไม่มีการอัพเดทมานานถึง 120 วัน

แจ้งเตือน: โพสของคุณจะไม่แสดงจนกว่าผู้ดูแลจะอนุมัติ.
ชื่อ: อีเมล์: