ข่าว IT ล่าสุด
ถูกใจอย่าลืม Like Fanpage
ช่วยเขียนโปรแกรมการขายเสื้อผ้าหัยน่อยน๊ค๊า
แสดงแล้ว 6004 ครั้ง /
กันยายน 12, 2010, 16:39:56

party02

ออฟไลน์
กระทู้ : 2
คะแนนขอบคุณ : 0
เขียนโปรแกรมการขายเสื้อผ้าอ่าค่ะ
มี ชื่อร้าน ละก้อ ไซร์เสื้อ สี และก้อส่วนลด ละรวมราคา แค่นี้อ่าค่ะ

รบกวนช่วยน่อยน๊ค่ะๆ


สมาชิกไม่มีภาพ

dekpascal

ออฟไลน์
กระทู้ : 5
คะแนนขอบคุณ : 0
ตุลาคม 02, 2011, 21:57:22
program         dekpascal;
uses            crt;
var             store : string;
                size,color : char;
                raka,raka2 : real;
                Baht : longint;
begin
          clrscr;
          writeln('Store : ABC ');
          writeln;
          writeln('1 = Size S ');
          writeln('2 = Size L ');
          writeln('3 = Size M ');
          readln(size);
          writeln;
          case size of
          '1' : writeln('Size S');
          '2' : writeln('Size L');
          '3' : writeln('Size M');
          else
          writeln('No Size')
          end;
          writeln('1 = color red ');
          writeln('2 = color black ');
          writeln('3 = color greed ');
          readln(color);
          writeln;
          case color of
          '1' : writeln('color red ');
          '2' : writeln('color black ');
          '3' : writeln('color greed ');
          else
          writeln('No color');
          end;
          writeln('Please Baht Enter ');
          readln(Baht);
          if Baht <= 500 then
          raka := Baht * 10/100;
          raka2 := Baht - raka;
          writeln('You Pay 10% = ',raka2:2:2);
          end.
          else
          if Baht <= 1000 then
          raka := Baht * 10/100;
          raka2 := Baht - raka;
          writeln('You Pay 20% = ',raka2:2:2);
          end;
          readln;
end.

 

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

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

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